Excel中VBA代码延迟执行问题

sub delay(T as single)
dim T1 as single
t1=timer
do
doevents
loop while timer-t1end sub

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

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

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

抬头和低头 合并在一起 就是吃米……放在一段里
sub 吃米()

原抬头代码
Application.OnTime Now + TimeValue("00:00:01"), "’ 吃米’"
原低头代码
end sub
尝试一下……

结合你的秒针 转角代码 加在一起也可以哦
重点：吃米的 这个段代码要 循环 重复调用才行！
在你的吃米 代码最后一行 再次调用 吃米 也尝试一下………………

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

上面这句代码换成以下代码测试看是否可行：

T = Timer
Do While Timer < T + 0.5
    DoEvents
Loop

 循环将以0.5秒的间隔为一个停顿区间！

你的设想很有创意！！