<em>Excel</em>怎样用VBA代码实现代码的延迟（1秒）执行-excel sleep,

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

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

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

暂停的代码如下：
Application.Wait Now() + CDate("00:00:01")

（1）打开Excel 2013程序，单击菜单栏中的“文来件”。

（2）在弹源出百的菜单中，单击“选项”。

（3）在弹出的菜单中单击“高级”。

（4）在选项框中找到“禁用图形硬件加度速”，单击在这知个选项前面的方框。

（5）设定完成后单击“确定道”按钮。

（6）设定完成。

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

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

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

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