可以使用空置的循环函数搁置。例如如下函数搁置1s。
Sub Wating()Dim t As Singlet = TimerDoDoEventsLoop While Timer - t < 1 '搁置1sMsgBox 1End Sub
