Question

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

Answer 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;

｝

Answer 2

有，内容如下：

Sub s1()'暂停1秒，期间不能进行其他操作

    Application.Wait (Now + TimeValue("00:00:01"))

End Sub

Sub s2()'暂停1秒，期间可以进行其他操作

    t = Timer

    While Timer < t + 1

        DoEvents

    Wend

End Sub

扩展资料

调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。

使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。

需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。

参考资料：百度百科-VBA

                 百度百科-CSDN-VBA 程序暂停10秒后向下执行

Answer 3

Sub s1()'暂停1秒，期间不能进行其他操作
    '前面的代码
    Application.Wait (Now + TimeValue("00:00:01"))
    '后面的代码
End Sub
Sub s2()'暂停1秒，期间可以进行其他操作
    '前面的代码
    t = Timer
    While Timer < t + 1
        DoEvents
    Wend
    '后面的代码
End Sub

Answer 4

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

pt = 1: st = Timer
Do While Timer < st + pt
DoEvents
Loop

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

Answer 5

Application.Wait(Now + TimeValue("00:00:01"))