word vba延迟几秒执行

用这个sub，lngTime以毫秒为单位，如果要延迟0.3秒就输入：

Delayms 300

1.2秒延迟用

Delayms 1200

Public Sub Delayms(lngTime As Long)

Dim StartTime As Single

StartTime = Timer

Do While (Timer - StartTime) * 1000 <lngTime

DoEvents

Loop

End Sub

VBA

被称为宏语言，但是它决不能和宏划上等号，宏是一条指令或者几条指令的集合，控制WORD执行一连串的 *** 作。而VBA则是不折不扣的高级语言，通过面向对象的方法来实现不能实现的功能。在编辑一个宏的时候，visual basic 编辑器会将这个宏记录为一个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函数延时是毫秒级的，精确度比较高，但它在延时时会占用很多系统时间，使 *** 作系统暂时无法响应用户 *** 作，所以在长延时的时候不适合使用它。

---