FYI- the projekt blokować i nawet rozpoznawać Environ lub Format z biblioteczny błąd.
Jakkolwiek, próbować te zmiana.
Dla the funkcja SendMsg w Module1
Funkcja SendMsg (strSubject Jako Sznurek, _
strBody Jako Sznurek, _
strTO Jako Sznurek, _
Fakultatywny strDoc Jako Sznurek, _
Fakultatywny strCC Jako Sznurek, _
Fakultatywny strBCC Sznurek)
Ciemnawy oLapp
Ciemnawy oItem
Ciemnawy myattachments
Ustalony oLapp = CreateObject ("Outlook.Application
")
Ustalony oItem = oLapp.CreateItem (olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Jeżeli Prześcieradło ("Magistrala") .CheckBoxes (
"Czek Pudełko (1)") = (1) Wtedy oItem.CC = "
[email protected]"
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Ustalony oLapp = Nic
Ustalony oItem = Nic
Końcówka Funkcja
w userform1:
Intymny Okręt podwodny CommandButton1_Click ()
Ciemnawy ws1 Jako Worksheet
Ciemnawy ws2 Jako Worksheet
Ciemnawy rng Pasmo
Ciemnawy celle Pasmo
Ciemnawy i Długo
Ciemnawy n Długo
Ciemnawy r Długo
Set ws1 = Ciąć na arkusze ("Magistrala")
Set ws2 = Ciąć na arkusze ("Raport")
Z ws1
Ustalony rng =. Pasmo (. Komórka (2, "A"). Komórka (. Rows.Count, "A"). Końcówka (xlUp))
Końcówka Z
Dla i = (0) Me.ListBox1.ListCount - (1)
Jeżeli Me.ListBox1.Selected (i) = Prawdziwy Wtedy
Dla n = (0) Me.ListBox2.ListCount - (1)
Jeżeli Me.ListBox2.Selected (n) = Prawdziwy Wtedy
Dla Rng celle W rng
Jeżeli celle = Me.ListBox1.List (i) I CStr (celle. Odsadzka ((0), 8)) = CStr (Me.ListBox2.List (n)) Wtedy
ws1.Range (ws1.Cells (celle.
Rząd, "A"), ws1.Cells (celle. Rząd, "E")). Odbitkowy _
ws2.Cells (ws2.Rows.Count, "A"). Końcówka (xlUp). Odsadzka ((1), (0))
Kończyć Jeżeli
Następny celle
Kończyć Jeżeli
Następny n
Kończyć Jeżeli
Następnie i
Z ws2
r =. Pasmo ("A" & Rows.Count). Końcówka (xlUp). Rząd
. Komórka (r + (1), "E") = "Uroczysty Suma"
. Komórka (r + 2, "E") = WorksheetFunction.Sum (. Pasmo
("E2: E" & r))
. Komórka (r + 2, "E") .NumberFormat =" [h]: mm "
. Komórka (r + 2, "E"). Font.ColorIndex = 30
. Komórka (r + (1), "E"). Font.ColorIndex = 30
. Komórka (r + 2, "E"). Font.Bold = Prawdziwy
. Komórka (r + (1), "E"). Font.Bold = Prawdziwy
Z. Pasmo ("A2: E" & r)
.FormatConditions.Delete
.FormatConditions.Add Typ: =xlExpression, Formula1: = " =MOD (RZĄD (), 2)=0
"
.FormatConditions (1).Interior.ColorIndex
= 20
Końcówka Z
Z. Pasmo ("A" & r + (1) &": E " & r + 2)
. Graniczyć (xlDiagonalDown) .LineStyle
= xlNone
. Graniczyć (xlDiagonalUp) .LineStyle
= xlNone
. Graniczyć (xlEdgeLeft) .LineStyle
= xlNone
. Graniczyć (xlEdgeRight) .LineStyle
= xlNone
. Graniczyć (xlInsideVertical)
.LineStyle
= xlNone
. Graniczyć (xlInsideHorizontal
) .LineStyle
= xlNone
Z. Granica (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Ciężar = xlThick
Końcówka Z
Z. Granica (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Ciężar = xlThick
Końcówka Z
Końcówka Z
Końcówka Z
Wywoławczy Module1.checker
Końcówka Okręt podwodny
--- w moduł 4, clearrows
Okręt podwodny ClearRows ()
Pasmo ("A2: E1000"). Wybiórka
Z Selection.Interior
. Wzór = xlNone
Końcówka Z
Selection.Delete Przesunięcie: =xlUp
Pasmo ("A2"). Wybiórka
Końcówka Okręt podwodny
