循环没有互动

Question

我有一个简单的for-next循环，我想自动运行（增量变量），没有任何点击。换句话说，它应该自动计为100。

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

Answer 1

我会使用userform来做到这一点。创建一个新的用户表单并向其添加名为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，您可以使用以下代码调用您的用户表单：

Load UserForm1
Userform1.Show