Excel VBA Application.Wait 方法 類似sleep
阿新 • • 發佈：2018-06-20
rand normal AR grand eva rgb 過去 msgbox cati 1.本事例時間到六點時就彈出Msgbox。
Sub test01()
If Application.Wait("6:00:00") Then
MsgBox "現在時刻六點整" '這是系統時間
End If
End Sub2.執行完這個宏10秒之後彈出Msgbox。
Sub test02() newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) If Application.Wait waitTime Then MsgBox "時間過去了10秒" End If End Sub
3.執行完這個宏10秒之後彈出Msgbox。
sub test03()
If Application.Wait(Now + TimeValue("0:00:10")) Then '感覺比test02簡單些
MsgBox "時間過去了10秒"
End If
End SubExcel VBA Application.Wait 方法 類似sleep