VBA如何实现程序暂停10分钟后再继续执行,但EXCEL表格还可操作
展开全部
Sub mytimer()
Dim Start, PTime
PTime = 600 '设置暂停时间600秒
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PTime
DoEvents ' 将控制让给其他程序。
Loop
MsgBox ("Time Out!")
End Sub
Dim Start, PTime
PTime = 600 '设置暂停时间600秒
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PTime
DoEvents ' 将控制让给其他程序。
Loop
MsgBox ("Time Out!")
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
