Excel中VBA代码延迟执行问题

sub delay(T as single)

dim T1 as single

t1=timer

do

doevents

loop while timer-t1<t

end sub

调用时，使用 delay 3 即可延时3秒如逗。

除了用timer函数外，还可以使用gettickcount函数，不过使用码橡做它之前要声明它，过程与上面的过程差不多，只是参数便是毫秒作为单位了。

SLEEP函数延时是毫秒级的，精确度比较高，但它在延时时会占用很多系统时间，使 *** 作系统暂时无法响应用迟衡户 *** 作，所以在长延时的时候不适合使用它。

在你的代码里加厅坦入这句代码：

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

TimeValue("00:00:02")) 里的02就是2秒的做或意思，要延时多长根据需要自己修改

此代码的功能是延纯伏伍时2秒执行

vba要延迟执行是想实现有限循环内的延时自动执返迟行效果。因为在excel里面，点击vba按钮后图形立刻生成，要延迟执行的目的是想实现有限循环内的延时自动执行漏森李效果，转春裤让控制权，以便让 *** 作系统处理其它的事件。

---