Il FYI il progetto era bloccato e neppure non riconoscerà circonda o formatta con un errore delle biblioteche.
In ogni modo, provare questi cambiamenti.
Per la funzione SendMsg in Module1
Funzione SendMsg (strSubject come stringa, _
strBody come stringa, _
strTO come stringa, _
strDoc facoltativo come stringa, _
strCC facoltativo come stringa, _
strBCC facoltativo come stringa)
oLapp fioco
oItem fioco
Myattachments fiochi
Regolare il oLapp = CreateObject (“Outlook.Application
„)
Regolare il oItem = oLapp.CreateItem (olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Se strati (“conduttura„) .CheckBoxes (
“casella di controllo 1„) = 1 allora oItem.CC = “
[email protected]„
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Regolare il oLapp = niente
Regolare il oItem = niente
Concludere la funzione
in userform1:
Sommergibile riservato CommandButton1_Click ()
Ws1 fioco come manuale
Ws2 fioco come manuale
Rng fioco come gamma
Celle fioco come gamma
Oscurare la i come lungamente
Oscurare la n come lungamente
Oscurare la r come lungamente
Regolar ws1 = strati (“conduttura„)
Regolar ws2 = strati (“rapporto„)
Con ws1
Regolare il rng =. Gamma (. Cellule (2, “A„). Cellule (. Rows.Count, “A„). Estremità (xlUp))
Estremità con
Per i = 0 a Me.ListBox1.ListCount - 1
Se Me.ListBox1.Selected (i) = allora allineare
Per n = 0 a Me.ListBox2.ListCount - 1
Se Me.ListBox2.Selected (n) = allora allineare
Per ogni celle nel rng
Se celle = Me.ListBox1.List (i) e CStr (celle. Contrappeso (0, 8)) = CStr (Me.ListBox2.List (n)) allora
ws1.Range (ws1.Cells (celle.
Fila, “A„), ws1.Cells (celle. Fila, “E„)). Copiare il _
ws2.Cells (ws2.Rows.Count, “A„). Estremità (xlUp). Contrappeso (1, 0)
Concluder se
Celle seguente
Concluder se
N seguente
Concluder se
Dopo i
Con ws2
r =. Gamma (“A„ & Rows.Count). Estremità (xlUp). Fila
. Cellule (R+ 1, “E„) = “importo totale„
. Cellule (R+ 2, “E„) = WorksheetFunction.Sum (. Gamma
(“E2: E„ & r))
. Cellule (R+ 2, “E„) .NumberFormat =„ [h]: millimetro "
. Cellule (R+ 2, “E„). Font.ColorIndex = 30
. Cellule (R+ 1, “E„). Font.ColorIndex = 30
. Cellule (R+ 2, “E„). Font.Bold = allineano
. Cellule (R+ 1, “E„). Font.Bold = allineano
Con. Gamma (“A2: E„ & r)
.FormatConditions.Delete
tipo di .FormatConditions.Add: =xlExpression, Formula1: = " =MOD (FILA (), 2)=0
"
.FormatConditions (1).Interior.ColorIndex
= 20
Estremità con
Con. Gamma (“A„ & R+ 1 &„: E " & R+ 2)
. Delimita (xlDiagonalDown) .LineStyle
= xlNone
. Delimita (xlDiagonalUp) .LineStyle
= xlNone
. Delimita (xlEdgeLeft) .LineStyle
= xlNone
. Delimita (xlEdgeRight) .LineStyle
= xlNone
. Delimita .LineStyle = xlNone
(
xlInsideVertical)
. Delimita .LineStyle =
xlNone (
xlInsideHorizontal)
Con. Bordi (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Peso = xlThick
Estremità con
Con. Bordi (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Peso = xlThick
Estremità con
Estremità con
Estremità con
Chiamata Module1.checker
Sommergibile dell'estremità
--- in modulo 4, clearrows
ClearRows secondario ()
Gamma (“A2: E1000„). Prescelto
Con Selection.Interior
. Modello = xlNone
Estremità con
Spostamento di Selection.Delete: =xlUp
Gamma (“A2„). Prescelto
Sommergibile dell'estremità
