FYI- projektera låstes, och ska inte ens känn igen Environ eller formaterar med ett arkivfel.
På något sätt försök dessa ändringar.
För fungera SendMsg i Module1
Fungera SendMsg (strSubject som stränger, _,
strBody som stränger, _,
strTO som stränger, _,
Valfri strDoc som stränger, _,
Valfri strCC som stränger, _,
Valfri strBCC som stränger)
Dunkel oLapp
Dunkel oItem
Dunkla myattachments
Fastställd oLapp = CreateObject (”Outlook.Application
”)
Fastställd oItem = oLapp.CreateItem (olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Om täcker (”huvudsakligt”) .CheckBoxes (
”kontroll, boxas 1”), = 1 därefter oItem.CC = ”
[email protected]”,
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Fastställd oLapp = ingenting
Fastställd oItem = ingenting
Avsluta fungerar
i userform1:
Privat Sub CommandButton1_Click ()
Dunkel ws1 som arbetssedeln
Dunkel ws2 som arbetssedeln
Dunkel rng som spänner
Dunkel celle som spänner
Dunkelt I som Long
Dunkelt n som Long
Dunkelt r som Long
Uppsättningen ws1 = täcker (”huvudsakligt”)
Uppsättningen ws2 = täcker (”rapporten”)
Med ws1
Fastställd rng =. Spänna (. Celler (2, ”A”). Celler (. Rows.Count, ”A”). Avsluta (xlUp))
Avsluta med
För I = 0 till Me.ListBox1.ListCount - 1
Om Me.ListBox1.Selected (I) = True därefter
För n = 0 till Me.ListBox2.ListCount - 1
Om Me.ListBox2.Selected (n) = True därefter
För varje celle i rng
Om celle = Me.ListBox1.List (I) och CStr (celle. Offset (0, 8)) = CStr (Me.ListBox2.List (n)) Därefter
ws1.Range (ws1.Cells (celle.
Ro ”A”), ws1.Cells (celle. Ro ”E”)). Kopiera _,
ws2.Cells (ws2.Rows.Count, ”A”). Avsluta (xlUp). Offset (1, 0)
Avsluta om
Nästa celle
Avsluta om
Nästa n
Avsluta om
Därefter i
Med ws2
r =. Spänna (”A” & Rows.Count). Avsluta (xlUp). Ro
. Celler (r + 1, ”E”) = ”tusen dollarslutsumma”,
. Celler (r + 2, ”E”) = WorksheetFunction.Sum (. Spänna
(”E2: E” & r))
. Celler (r + 2, ”E”) .NumberFormat =” [H]: en mm ",
. Celler (r + 2, ”E”). Font.ColorIndex = 30
. Celler (r + 1, ”E”). Font.ColorIndex = 30
. Celler (r + 2, ”E”). Font.Bold = True
. Celler (r + 1, ”E”). Font.Bold = True
Med. Spänna (”A2: E” & r)
.FormatConditions.Delete
.FormatConditions.Add-typ: =xlExpression Formula1: = " =MOD (RO (), 2), =0
",
.FormatConditions (1). Interior.ColorIndex
= 20
Avsluta med
Med. Spänna (”A” & r + 1 &”: E " & r + 2)
. Gränsar (xlDiagonalDown) .LineStyle
= xlNonen
. Gränsar (xlDiagonalUp) .LineStyle
= xlNonen
. Gränsar (xlEdgeLeft) .LineStyle
= xlNonen
. Gränsar (xlEdgeRight) .LineStyle
= xlNonen
. Gränsar (den xlInsideVertical)
.LineStyle
= xlNonen
. Gränsar (den xlInsideHorizontal
) .LineStyle
= xlNonen
Med. Gränsar (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Väga = xlThick
Avsluta med
Med. Gränsar (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Väga = xlThick
Avsluta med
Avsluta med
Avsluta med
Appell Module1.checker
Avsluta suben
--- i enhet 4, clearrows
UnderClearRows ()
Spänna (”A2: E1000”). Valt
Med Selection.Interior
. Mönstra = xlNonen
Avsluta med
Selection.Delete-förskjutning: =xlUp
Spänna (”A2”). Välj
Avsluta suben
