Wait 方法

暂停运行宏，直到一特定时间才可继续执行。如果到达指定时间，则该值为 True。

要点   Wait 方法暂停 Microsoft Excel 的所有操作，并且，Wait 起作用时可能禁止您对计算机做其他操作。不过，后台操作（如打印和重新计算）将继续进行。

expression   必需。该表达式返回一个 Application 对象。

Time   Variant 类型，必需。想要宏重新继续执行的时间点，以 Microsoft Excel 日期格式表示。

示例

本示例暂停一个正在执行的宏，到今天下午 6:23 时才可继续执行。

Application.Wait "18:23:00"

本示例暂停一个正在执行的宏约 10 秒钟。

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

本示例显示一条消息，用以表明是否经过 10 秒钟。

If Application.Wait(Now + TimeValue("0:00:10")) Then
    MsgBox "Time expired"
End If