FYI- het project was gesloten en zal niet zelfs omgeeft of Formaat met een bibliotheekfout erkennen.
In elk geval, probeer deze veranderingen.
Voor de functie SendMsg in Module1
Functie SendMsg (strSubject als Koord, _
strBody als Koord, _
strTO als Koord, _
Facultatieve strDoc als Koord, _
Facultatieve strCC als Koord, _
Facultatieve strBCC als Koord)
Schemerige oLapp
Schemerige oItem
Schemerige myattachments
Reeks oLapp = CreateObject („Outlook.Application
“)
Reeks oItem = oLapp.CreateItem (olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Als Bladen („Belangrijkst“) .CheckBoxes (
„Doos 1 van de Controle“) = 1 toen oItem.CC = „
[email protected]“
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Reeks oLapp = niets
Reeks oItem = niets
De Functie van het eind
in userform1:
Privé SubCommandButton1_Click ()
Schemerige ws1 als Aantekenvel
Schemerige ws2 als Aantekenvel
Schemerige rng als Waaier
Schemerige celle als Waaier
Schemerige I zoals lang
Schemerig n zoals lang
Schemerig r zoals lang
Reeks ws1 = Bladen („Belangrijkst“)
Reeks ws2 = Bladen („Rapport“)
Met ws1
Reeks rng =. Waaier (. Cellen (2, „A“). Cellen (. Rows.Count, „A“). Eind (xlUp))
Eind met
Voor I = 0 aan Me.ListBox1.ListCount - 1
Als Me.ListBox1.Selected (I) = Waar toen
Voor n = 0 aan Me.ListBox2.ListCount - 1
Als Me.ListBox2.Selected (n) = Waar toen
Voor Elke celle in rng
Als celle = Me.ListBox1.List (I) en CStr (celle. Compensatie (0, 8)) = CStr (Me.ListBox2.List (n)) Dan
ws1.Range (ws1.Cells (celle.
Rij, „A“), ws1.Cells (celle. Rij, „E“)). Exemplaar _
ws2.Cells (ws2.Rows.Count, „A“). Eind (xlUp). Compensatie (1, 0)
Eind als
Volgende celle
Eind als
Volgende n
Eind als
Volgende I
Met ws2
r =. Waaier („A“ & Rows.Count). Eind (xlUp). Rij
. Cellen (r + 1, „E“) = „Totaal generaal“
. Cellen (r + 2, „E“) = WorksheetFunction.Sum (. Waaier
(„E2: E“ & r))
. Cellen (r + 2, „E“) .NumberFormat =“ [h]: mm "
. Cellen (r + 2, „E“). Font.ColorIndex = 30
. Cellen (r + 1, „E“). Font.ColorIndex = 30
. Cellen (r + 2, „E“). Font.Bold = Waar
. Cellen (r + 1, „E“). Font.Bold = Waar
Met. Waaier („A2: E“ & r)
.FormatConditions.Delete
.FormatConditions.Add type: =xlExpression, Formula1: = " =MOD (RIJ (), 2) =0
"
.FormatConditions (1). Interior.ColorIndex
= 20
Eind met
Met. Waaier („A“ & r + 1 &“: E " & r + 2)
. Grenzen (xlDiagonalDown) .LineStyle
= xlNone
. Grenzen (xlDiagonalUp) .LineStyle
= xlNone
. Grenzen (xlEdgeLeft) .LineStyle
= xlNone
. Grenzen (xlEdgeRight) .LineStyle
= xlNone
. (xlInsideVertical) grenzen
.LineStyle
= xlNone
. (xlInsideHorizontal)
grenzen .LineStyle
= xlNone
Met. Grenzen (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Gewicht = xlThick
Eind met
Met. Grenzen (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Gewicht = xlThick
Eind met
Eind met
Eind met
Vraag Module1.checker
Sub van het eind
--- in module 4, clearrows
Sub ClearRows ()
Waaier („A2: E1000“). Selecteer
Met Selection.Interior
. Patroon = xlNone
Eind met
Selection.Delete verschuif: =xlUp
Waaier („A2“). Selecteer
Beëindig Sub
