Dzwebs.Net

撰写电脑技术杂文十余年

Vba暂停几秒的代码

Admin | 2010-11-21 9:40:33 | 被阅次数 | 17536

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  当我们在使用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 键来暂停,想暂停多久就多久,完全由人控制。

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


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231