如何表示VBA程序执行的等待时间

chenlifeng123

我有两个办法，好像不太对：
之一：
       '''等待时间：
        T1 = Timer
        Do Until Timer > T1 + 2
            DoEvents
        Loop
之二：
     Dim PauseTime#
        PauseTime = Timer + 1.5  '''给一个等待时间，即1.5秒
我的整个要求是：
   VBA程序执行到某一个地方时，就要等待小段时间，或者是，要先把上面的内容给执行完了，才能执行后面的。
不知道我是不是要调整思路，还是上面有错？

doitbest

没问题，测试一下
Public Sub abc()
Dim t1
t1 = Timer
Do Until Timer > t1 + 10
DoEvents
Loop
Debug.Print t1, Timer
End Sub

chenlifeng123

感谢关注。可能是我其它地方导致这儿出现问题。我再试试。