Application.Wait

方法

暫停執行宏，直到一特定時間才可繼續執行。如果到達指定時間，則該值為

True。

語法

表示式.Wait(Time)

表示式 一個代表 Application 物件的變數。

引數

名稱

必選/可選

資料型別

說明

Time

必選

Variant

希望宏繼續執行的時間（以 Microsoft Excel

日期格式表示）。

返回值

Boolean

說明

Wait 方法暫停 Microsoft Excel 的所有操作，並且，Wait

起作用時可能禁止您對計算機做其他操作。不過，後臺操作（如列印和重新計算）將繼續進行。

示例

本示例暫停一個正在執行的宏，到今天下午 6:23 時才可繼續執行。

Visual Basic for Applications

Application.Wait "18:23:00"

本示例暫停一個正在執行的宏約 10 秒鐘。

Visual Basic for Applications

newHour = Hour(Now())

newMinute = Minute(Now())

newSecond = Second(Now()) + 10

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime

本示例顯示一條訊息，用以表明是否經過 10 秒鐘。

Visual Basic for Applications

If Application.Wait(Now + TimeValue("0:00:10")) Then

MsgBox "Time expired"

End If