excel vba中如何实现时间等待？

Question

比如说要执行一个只有4步的vba程序，我想执行到第二步时停两秒再执行下面的步骤，如何实现？

Answer 1

VB中有一个API函数叫Sleep可以实现暂停。或者用下面的自定义过程waitsec来实现暂停。
Sub mmm()
MsgBox "XX"
waitsec 2
MsgBox "XX"
waitsec 2
MsgBox "XX"
End Sub
Private Sub waitsec(ByVal dS As Double)
Dim sTimer As Date
sTimer = Timer
Do
DoEvents
Loop While Format((Timer - sTimer), "0.00") < dS
End Sub

参考资料：http://www.vbafan.com

Answer 2

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "AAA"
Application.OnTime Now + TimeValue("00:00:05"), "BBB"
Application.OnTime Now + TimeValue("00:00:05"), "CCC"
End Sub