VBA有没有“暂停1秒钟再进行下一条”的语句？

有。

以时间作为暂停条件，下面代码表示暂停1秒：

pt = 1: st = Timer

Do While Timer <st + pt

DoEvents

Loop

'下一条语句......

扩展资料：

注意事项

想要暂停的兆空地方加上 system("pause")就可以使 C/C++ 程序暂停。不过，这个办法奏效的前提是系统中必须存在 pause 这个命令。此外，还需要包含标准头文件 stdlib.h（乱枯对于 C）或者 cstdlib（对于 C++）。例如： .

功能： 演示如何使用 system("pause"族陪瞎)暂停

#include <stdio.h>

#include <stdlib.h>!

int main(void)

{

printf("I need a pause here.\n")

system("pause")

printf("And here too.\n")

system("pause")。

return 0

｝

Sub

mytimer()

Dim

Start,

PTime

PTime

=

600

'设置暂停时间600秒

Start

=

Timer

'信知行

设置开始暂停的时刻。滑哗

Do

While

Timer

<

Start

+

PTime

DoEvents

'

将控制让给其他程猛瞎序。

Loop

MsgBox

("Time

Out!")

End

Sub

用这个sub，lngTime以毫秒为单位，如果要延迟0.3秒就输入：

Delayms 300

1.2秒延迟用碰手册

Delayms 1200

Public Sub Delayms(lngTime As Long)

Dim StartTime As Single

StartTime = Timer

Do While (Timer - StartTime) * 1000 <lngTime

DoEvents

Loop

End Sub

VBA

被称为宏语言，但是它决不能和宏划上等号，宏是一条指令或者笑宏几条指令的集合，控制WORD执行一连串的 *** 作。而VBA则是不折不扣的高级语言，通过面向对象的方法来实现不能实现的功能。在编辑一个宏的时候，visual basic 编辑器会将这个宏记录为一薯基个VBA过程。

---