Excel VBA Application.Wait 方法 类似sleep
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Excel VBA Application.Wait 方法 类似sleep相关的知识，希望对你有一定的参考价值。
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 Sub以上是关于Excel VBA Application.Wait 方法 类似sleep的主要内容，如果未能解决你的问题，请参考以下文章