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 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
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
pt = 1: st = Timer
Do While Timer < st + pt
DoEvents
Loop
'下一条语句......