El FYI el proyecto era bloqueado e incluso no reconocerá rodea o da formato con un error de la biblioteca.
De todas formas, intentar estos cambios.
Para la función SendMsg en Module1
Función SendMsg (strSubject como secuencia, _
strBody como secuencia, _
strTO como secuencia, _
strDoc opcional como secuencia, _
strCC opcional como secuencia, _
strBCC opcional como secuencia)
oLapp dévil
oItem dévil
Myattachments déviles
Fijar el oLapp = CreateObject (“Outlook.Application
”)
Fijar el oItem = oLapp.CreateItem (el olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Si hojas (“cañería”) .CheckBoxes (
“caja de cheque 1”) = 1 entonces oItem.CC = “
[email protected]”
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Fijar el oLapp = nada
Fijar el oItem = nada
Terminar la función
en userform1:
Submarino privado CommandButton1_Click ()
Ws1 dévil como hoja de trabajo
Ws2 dévil como hoja de trabajo
Rng dévil como gama
Celle dévil como gama
Amortiguar i como de largo
Amortiguar n como de largo
Amortiguar r como de largo
Fijar ws1 = las hojas (la “cañería”)
Fijar ws2 = las hojas (el “informe”)
Con ws1
Fijar el rng =. Gama (. Células (2, “A”). Células (. Rows.Count, “A”). Extremo (xlUp))
Extremo con
Para i = 0 a Me.ListBox1.ListCount - 1
Si Me.ListBox1.Selected (i) = entonces verdad
Para n = 0 a Me.ListBox2.ListCount - 1
Si Me.ListBox2.Selected (n) = entonces verdad
Para cada celle en rng
Si celle = Me.ListBox1.List (i) y CStr (celle. Compensación (0, 8)) = CStr (Me.ListBox2.List (n)) entonces
ws1.Range (ws1.Cells (celle.
Fila, “A”), ws1.Cells (celle. Fila, “E”)). Copiar el _
ws2.Cells (ws2.Rows.Count, “A”). Extremo (xlUp). Compensación (1, 0)
Terminar si
Celle siguiente
Terminar si
N siguiente
Terminar si
Después i
Con ws2
r =. Gama (“A” y Rows.Count). Extremo (xlUp). Fila
. Células (R+ 1, “E”) = “importe total”
. Células (R+ 2, “E”) = WorksheetFunction.Sum (. Gama
(“E2: E” y r))
. Células (R+ 2, “E”) .NumberFormat =” [h]: milímetro "
. Células (R+ 2, “E”). Font.ColorIndex = 30
. Células (R+ 1, “E”). Font.ColorIndex = 30
. Células (R+ 2, “E”). Font.Bold = verdad
. Células (R+ 1, “E”). Font.Bold = verdad
Con. Gama (“A2: E” y r)
.FormatConditions.Delete
tipo de .FormatConditions.Add: =xlExpression, Formula1: = " =MOD (FILA (), 2)=0
"
.FormatConditions (1).Interior.ColorIndex
= 20
Extremo con
Con. Gama (“A” y R+ 1 y”: E " y R+ 2)
. Confina (xlDiagonalDown) .LineStyle
= xlNone
. Confina (xlDiagonalUp) .LineStyle
= xlNone
. Confina (xlEdgeLeft) .LineStyle
= xlNone
. Confina (xlEdgeRight) .LineStyle
= xlNone
. Confina .LineStyle = xlNone
(
xlInsideVertical)
. Confina .LineStyle =
xlNone (
xlInsideHorizontal)
Con. Fronteras (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Peso = xlThick
Extremo con
Con. Fronteras (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Peso = xlThick
Extremo con
Extremo con
Extremo con
Llamada Module1.checker
Submarino del extremo
--- en el módulo 4, clearrows
ClearRows secundario ()
Gama (“A2: E1000”). Selecto
Con Selection.Interior
. Patrón = xlNone
Extremo con
Cambio de Selection.Delete: =xlUp
Gama (“A2”). Selecto
Submarino del extremo
