FYI- проект был заперт и даже не узнает Environ или форматирует с ошибкой архива.
В лубом случае, попытайтесь эти изменения.
Для функции SendMsg в Module1
Функция SendMsg (strSubject как шнур, _
strBody как шнур, _
strTO как шнур, _
Опционное strDoc как шнур, _
Опционное strCC как шнур, _
Опционное strBCC как шнур)
Тусклое oLapp
Тусклое oItem
Тусклые myattachments
Установите oLapp = CreateObject («Outlook.Application
»)
Установите oItem = oLapp.CreateItem (olMailItem
)
oItem.Subject = strSubject
oItem.To = strTO
oItem.CC = strCC
Если листы («основа») .CheckBoxes (
«коробка проверки 1») = 1 после этого oItem.CC = «
[email protected]», то
oItem.BCC = strBCC
oItem.BodyFormat = olFormatHTML
oItem.HTMLBody = strBody
oItem.Importance = olImportanceHigh
oItem.Display
Установите oLapp = ничего
Установите oItem = ничего
Закончите функцию
в userform1:
Приватная подводная лодка CommandButton1_Click ()
Тусклое ws1 как рабочий лист
Тусклое ws2 как рабочий лист
Тусклое rng как ряд
Тусклое celle как ряд
Затемните I как длиной
Затемните n как длиной
Затемните r как длиной
Установите ws1 = листы («основа»)
Установите ws2 = листы («рапорт»)
С ws1
Установите rng =. Ряд (. Клетки (2, «a»). Клетки (. Rows.Count, «a»). Конец (xlUp))
Конец с
Для I = 0 к Me.ListBox1.ListCount - 1
Если Me.ListBox1.Selected (I) = True после этого
Для n = 0 к Me.ListBox2.ListCount - 1
Если Me.ListBox2.Selected (n) = True после этого
Для каждого celle в rng
Если celle = Me.ListBox1.List (I) и CStr, то (celle. Смещение (0, 8)) = CStr (Me.ListBox2.List (n)) После этого
ws1.Range (ws1.Cells (celle.
Рядок, «a»), ws1.Cells (celle. Рядок, «e»)). Скопируйте _
ws2.Cells (ws2.Rows.Count, «a»). Конец (xlUp). Смещение (1, 0)
Закончитесь если
Следующее celle
Закончитесь если
Следующий n
Закончитесь если
Затем iий
С ws2
r =. Ряд («a» & Rows.Count). Конец (xlUp). Рядок
. Клетки (r + 1, «e») = «суммарный итог»
. Клетки (r + 2, «e») = WorksheetFunction.Sum (. Ряд
(«E2: E» & r))
. Клетки (r + 2, «e») .NumberFormat =» [h]: mm "
. Клетки (r + 2, «e»). Font.ColorIndex = 30
. Клетки (r + 1, «e»). Font.ColorIndex = 30
. Клетки (r + 2, «e»). Font.Bold = True
. Клетки (r + 1, «e»). Font.Bold = True
С. Ряд («A2: E» & r)
.FormatConditions.Delete
тип .FormatConditions.Add: =xlExpression, Formula1: = " =MOD (РЯДОК (), 2)=0
"
.FormatConditions (1).Interior.ColorIndex
= 20
Конец с
С. Ряд («a» & r + 1 &»: E " & r + 2)
. Граничит (xlDiagonalDown) .LineStyle
= xlNone
. Граничит (xlDiagonalUp) .LineStyle
= xlNone
. Граничит (xlEdgeLeft) .LineStyle
= xlNone
. Граничит (xlEdgeRight) .LineStyle
= xlNone
. Граничит (xlInsideVertical)
.LineStyle
= xlNone
. Граничит (xlInsideHorizontal
) .LineStyle
= xlNone
С. Граници (xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Вес = xlThick
Конец с
С. Граници (xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
. Вес = xlThick
Конец с
Конец с
Конец с
Звонок Module1.checker
Подводная лодка конца
--- в модуле 4, clearrows
Sub ClearRows ()
Ряд («A2: E1000»). Отборно
С Selection.Interior
. Картина = xlNone
Конец с
Перенос Selection.Delete: =xlUp
Ряд («A2»). Отборно
Подводная лодка конца
