Петля без взаимодействия

Question

У меня есть простой для следующего цикла, который я бы хотел запустить (увеличивать переменную) автоматически, без щелчка. Другими словами, он должен рассчитывать до 100 автоматически.

Dim i As Long 
For i = 1 To 100 
    MsgBox i  
Next i 

Answer 1

Я бы использовал пользовательскую форму для этого. Создайте новую пользовательскую форму и добавьте к ней ярлык с именем Label1. Затем добавьте следующий код в форму:

Private Sub UserForm_Activate() 'runs when form is visible 
For i = 1 To 100 

    Label1.Caption = i 'sets the displayed text 

    t = Timer 'this loop takes one second 
    While Timer - t < 1 
     DoEvents 'avoids freezing while waiting 
    Wend 

Next 
End Sub 

Предполагая, что ваше имя формы UserForm1 вы можете назвать свой UserForm в коде следующим образом:

Load UserForm1 
Userform1.Show