Excel VBA Application.Wait 方法 類似sleep

標籤：style   auto   rgb   break   AC   ack   otto   app   mono   

1.本案例時間到六點時就彈出Msgbox。

Sub test01()If Application.Wait("6:00:00") Then MsgBox "現在時刻六點整" '這是系統時間 End IfEnd Sub

2.執行完這個宏10秒之後彈出Msgbox。

Sub test02()newHour = Hour(Now()) newMinute = Minute(Now())newSecond = Second(Now()) + 10waitTime = TimeSerial(newHour, newMinute, newSecond)If Application.Wait waitTime Then MsgBox "時間過去了10秒"  End IfEnd Sub

3.執行完這個宏10秒之後彈出Msgbox。

sub test03()If Application.Wait(Now + TimeValue("0:00:10")) Then '感覺比test02簡單些MsgBox "時間過去了10秒"  End IfEnd Sub

Excel VBA Application.Wait 方法 類似sleep