VBA时间延迟/定时执行（wait函数）

 应用场景：

 

1.在excel里面，如果如下图所示，点击VBA按钮后图形立刻生成，可能会觉得不太好。

假如想看到动态的过程，可以通过使用时间延迟来实现。

2.或者说我想每天某个固定时间执行代码也可以。

 时间延迟效果如下：

代码如下所示，调用了wait函数来给第一列赋值，第二列是第一列的函数（已在excel内写入）。

后面的这个时间是绝对时间，不是等待的具体时间（比如说5秒、3秒这种）。

这里代码表示的就是1秒后执行。

比如现在是2022年8月12日11点27分，如果wait函数后面的时间小于现在的时间，那么函数就会立刻执行。

如果写application.Wait "2022/08/12 12:00:00" ，那么VBA运行到这里来了就会暂停，等到12点才会再次运行。

Sub timedelay()
Dim i!
i = 1
Do
Cells(i, 1) = i
i = i + 1
Application.Wait Now() + CDate("00:00:01")        ‘cddate是把日期表达式改成variant
Loop Until i > 20

End Sub

以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。以上です。