在编写程序时，我们经常会遇到程序延迟或暂停的情况。

有时人们会使用for循环来执行一个空语句一定次数来达到延迟的效果

像这样

对于 i=0 到 10000

下一个

使用这种方法的前提是要知道每条语句的执行时间，这样做会消耗系统资源。

那么excel vba中一般如何实现延迟或暂停效果呢？

vba中有哪些工具可以帮助我们实现这样的功能呢？

让我们互相学习、互相了解

调用api函数sleep函数

Sub Sleep Lib“”(ByVal As Long)'必须有头

替补()

Sleep 3000 '延迟以毫秒为单位

单元格(1, 1) = 1

结束子

调用api函数功能

Lib“winmm.dll”()只要

子 a()

暗淡

t = '记住系统启动时间，毫秒

而 < t + 3000

'释放控制权

文德

单元格(1, 1) = 1

结束子

使用vba内置函数定时器功能

子 a()

t = Timer '记住开始时间，以秒为单位

当计时器 < t + 3 时

'释放控制权

文德

单元格(1, 1) = 1

结束子

使用下面的等待方法

子 a()

.Wait(Now + ("00:00:03")) '等待3秒后继续执行程序

单元格(1, 1) = 1

结束子

使用VBA的now函数

子 a()

t=现在

While Now < (t + ("00:00:03")) '等待3秒，继续执行程序

文德

单元格(1, 1) = 1

结束子