码迷,mamicode.com
首页 > 移动开发 > 详细

Excel VBA Application.Wait 方法 类似sleep

时间:2018-06-19 23:26:40      阅读:3122      评论:0      收藏:0      [点我收藏+]

标签:style   auto   rgb   break   AC   ack   otto   app   mono   

1.本事例时间到六点时就弹出Msgbox。

Sub test01()

If Application.Wait("6:00:00") Then

 MsgBox "现在时刻六点整" '这是系统时间
 
End If

End Sub

2.执行完这个宏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

标签:style   auto   rgb   break   AC   ack   otto   app   mono   

原文地址:http://blog.51cto.com/12040328/2130722

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!