如何在VBA循环中每一次停顿几秒

更新时间：2019-10-14 04:43:23 113次访问

用 Application.Wait 语句。
具体请看帮助文件。
下面是简单例子。

Sub test()    tms = Timer    For i = 1 To 5        MsgBox Format(Timer - tms, "0.000s")        tms = Timer        Application.Wait (Now + TimeValue("0:00:03"))    NextEnd Sub