Визуализация работы макроса

[doober]

Этот рабочий стоку не убрал лишнюю

Sub f4()
Comm1 51, 4, 1
Comm1 52, 5, 2
Comm1 53, 6, 3
Comm1 54, 7, 4
Comm1 55, 8, 5
Comm1 56, 9, 6
Comm1 57, 10, 7
Comm1 58, 11, 8
Comm1 59, 12, 9
Comm1 60, 13, 10
Comm1 61, 14, 11
Comm1 62, 15, 12
End Sub
Sub Comm1(arg1, arg2, Nom)
Dim i As Long, acontrol As Date, icounter As Long, iperc As Integer, icount As Long
sb = ""
With Sheets("ХРОНОМЕТРАЖ")
icount = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 29) <> "Вне базы " And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Подведение итогов").Cells(arg1, 1) _
And .Cells(i, 1) <= Sheets("Подведение итогов").Cells(arg1, 2) Then
acontrol = .Cells(i, 1)
icounter = icounter + 1
End If
iperc = Int(100 * i / icount)
  If Len(sb) < iperc Then sb = sb & "I"

  Application.StatusBar = "Done Macro " & Nom & Format(iperc, "00") & "%  " & sb

Next
Sheets("Подведение итогов").Cells(arg2, 6) = icounter
End With
End Sub

[Pilot]

Проверил, работает, но почему то выдает 12100% и проходит 12 циклов

[doober]

Application.StatusBar = "Макрос № " & Nom & " Выполнено " &Format(iperc, "00") & "% " & sb

[Pilot]

Сообщение от doober

Application.StatusBar = "Макрос № " & Nom & " Выполнено " &Format(iperc, "00") & "% " & sb

Благодарю, все ОК, а можно сделать чтобы в стоке состояния отображался процесс при старте первого макроса и заканчивалось с окончанием работы двенадцатого?

[doober]

Sub f4()
Comm1 51, 4, 1
Comm1 52, 5, 2
Comm1 53, 6, 3
Comm1 54, 7, 4
Comm1 55, 8, 5
Comm1 56, 9, 6
Comm1 57, 10, 7
Comm1 58, 11, 8
Comm1 59, 12, 9
Comm1 60, 13, 10
Comm1 61, 14, 11
Comm1 62, 15, 12
End Sub
Sub Comm1(arg1, arg2, Nom)
Dim i As Long, acontrol As Date, icounter As Long, iperc As Integer, icount As Long
sb = ""
With Sheets("ХРОНОМЕТРАЖ")
icount = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 5) = "УТП" And .Cells(i, 29) <> "Вне базы " And .Cells(i, 1) <> acontrol And .Cells(i, 1) >= Sheets("Подведение итогов").Cells(arg1, 1) _
And .Cells(i, 1) <= Sheets("Подведение итогов").Cells(arg1, 2) Then
acontrol = .Cells(i, 1)
icounter = icounter + 1
End If
iperc = Int(100 * ((Nom - 1) / 12 + i / (icount * 12)))
  If Len(sb) < iperc Then sb = sb & "I"

  Application.StatusBar = " Выполняется Макрос № " & Nom & " Выполнено " &Format(iperc, "00") & "% " & sb
Next
Sheets("Подведение итогов").Cells(arg2, 6) = icounter
End With
End Sub