Vba暂停几秒的代码

2013-06-17 13:10 阅读 761 次 评论关闭

当我们在使用VBA操作OFFICE文档时,如何让循环代码或者是普通代码甚至是选择语句,在执行的过程中,中途暂停几秒之后,再继续往下执行语句?

如果您需要这方面的知识,请使用如下两种办法来解决。

一、自动式的VBA暂停语句

'用户代码行1
'用户代码行2
'用户代码行3……

waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
Application.Wait waitTime

'用户代码行4
'用户代码行5
'用户代码行N……

以上代码中,绿色的那两行代码就是暂停代码,后面的+10代表暂停10秒。

实现代码暂停几秒的依据是:

Application.Wait waitTime 意思是从现在开始暂停至waitTime这个时间,然后才开始往下执行。

方法是:waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 秒数),先使用Hour(Now()), Minute(Now()), Second(Now()) 获取现在时间,再加上秒数,就可以让Application.Wait暂停到N秒后才执行后面语句。

二、手工暂停VBA语句的办法

当VBA在运行的时候,我们可以通过按下键盘的 Ctrl+PauseBreak 键来暂停,想暂停多久就多久,完全由人控制。

如果想让代码继续运行,当我们看到对话框时,点击“继续”按钮即可。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Vba暂停几秒的代码 | 猎微网
分类:Excel VBA 标签:, , ,

评论已关闭!