Excel VBA 等待 - VBA

在 Excel VBA 中，等待 (Wait) 是一种非常有用的技巧，它可以使程序暂停一定时间后再执行下一步操作。Excel VBA 中等待的方式有多种，我们可以选择最适合自己的方法。

使用 VBA 的 Sleep 方法等待

使用 VBA 的 Sleep 方法等待是一种简单而直接的方式。Sleep 方法可以使程序暂停一定毫秒数后再继续执行下一步操作。示例代码如下：

Sub TestSleep()
    Debug.Print "Wait 3 seconds..."
    Application.Wait Now + TimeValue("00:00:03")
    Debug.Print "Done!"
End Sub

在该示例中，我们使用 VBA 的 Sleep 方法等待 3 秒后再打印 "Done!" 的信息。

使用 VBA 的 Timer 方法等待

使用 VBA 的 Timer 方法等待也是一种常见的方式。Timer 方法可以返回一个数值，该数值代表程序运行的秒数。我们可以使用 Do While 循环来实现等待的效果。示例代码如下：

Sub TestTimer()
    Dim StartTime As Double
    StartTime = Timer
    Debug.Print "Wait 3 seconds..."
    Do While Timer <= StartTime + 3
        DoEvents
    Loop
    Debug.Print "Done!"
End Sub

在该示例中，我们使用 VBA 的 Timer 方法等待 3 秒后再打印 "Done!" 的信息。在 Do While 循环中，我们使用 DoEvents 语句来让程序能够响应其它操作。

使用 VBA 的 OnTime 方法等待

使用 VBA 的 OnTime 方法等待也是一种常用的方式。OnTime 方法可以设置一个时间，在该时间到达时执行指定的宏。我们可以设置一个很短的时间间隔，然后在该时间间隔到达时执行下一步操作。示例代码如下：

Sub TestOnTime()
    Debug.Print "Wait 3 seconds..."
    Application.OnTime Now + TimeValue("00:00:03"), "NextStep"
End Sub

Sub NextStep()
    Debug.Print "Done!"
End Sub

在该示例中，我们使用 VBA 的 OnTime 方法设置一个 3 秒的时间间隔，然后在该时间间隔到达时执行 NextStep 宏。在 NextStep 宏中我们可以执行下一步操作。

总结

Excel VBA 中等待的方式有很多种，我们可以选择最适合自己的方法。使用 VBA 的 Sleep 方法等待是一种简单而直接的方式，使用 VBA 的 Timer 方法等待可以让程序响应其它操作，使用 VBA 的 OnTime 方法等待可以按照时间执行指定的宏。