Vba暂停几秒的代码

　　一、自动式的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 键来暂停，想暂停多久就多久，完全由人控制。

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