主题：vba编程里，除了SLEEP函数用来延迟

sub delay(T)
t1=timer
do
Application.PeekAndPump
loop while timer-t1<t
end sub

sub tt()
application.MsgOut time
delay 5
application.MsgOut time
end sub

可以毫秒的，比如delay0.4就是0.4秒的延迟。网上搜了个timer毫秒输出法，你自己运行看下。

返回结果延迟时间，您要这个刷新所需时间干嘛 ？？

function tii(ti)
h = Int(ti / 3600)
m = Int((ti - 3600 * h) / 60)
s = Int(ti - h * 3600 - m * 60)
ss = Left(ti - Int(ti), 4)
application.MsgOut h & ":" & m & ":" & s & ss
end function

sub tt()
tii(timer)
delay 0.4
tii(timer)
end sub

这个刷新结果后也是你柜台给你返回的信息，没有很固定说是多少延迟。

一般都是很瞬时的，你是为了回避后面的代码执行想要？那你定个0.5秒延迟然后看下了