цикл vba

[deemka777]

Как вывести промежуточное значение при выполнении макроса.
Например что бы я видел что выполнено 5 циклов(из 26), и вывести это значение в TextBox1 userformы.
запускаю из userformы.


Private Sub CommandButton1_Click()

For i = 1 To 26
...
TextBox1.Caption = i

Next

End Sub

так получается у меня что выводится только последнее значение 26.
как сделать чтоб показывало 1;2;3;....;26???

Я так понимаю, что нужно сделать какое-то обновление TextBox1 в цикле.

[Hugo121]

А если пошагово?

[Казанский]

Dim i&

Private Sub CommandButton1_Click()
i = i + 1
TextBox1 = i
If i > 26 Then i = 0: TextBox1 = ""
End Sub

[deemka777]

Книга102.rar

когда выполняется макрос, не выводится промежуточное значение.
т.е. когда прошёл 1 цикл, вывести значение 1, когда 2-й, вывести 2 значение. и так далее по цепочке.

у меня получается что я вижу только последнее значение. конечное 26

Нужно именно визуальное отображение текущего выполнения макроса. Скажем выполнено 7 из 26.

[Hugo121]

Точно, нужно обновление.

Private Sub CommandButton1_Click()
    Dim i As Byte
    Dim j As Integer

    For i = 1 To 26
        For j = 1 To 1000
            ThisWorkbook.Sheets(1).Cells(1, 1) = 1
        Next j
        TextBox1 = i
        Me.Repaint
    Next i

End Sub

Или вместо Me.Repaint сработает обычное DoEvents - так заодно можно будет и форму в этот момент подвигать
Правда и код заодно на паузу поставить...

[deemka777]

Спасибо. Отличное решение.