[求助]：在VBA中延时怎么处理！！！！！

zxdcad

我刚学VBA，遇到这个问题，不知怎么处理！！！！

我在编程时，发现速度太快了，想慢一点，想向LISP中加一个

（command  "delay"  300） 这种功能的东西。


请问怎么实现！！！！！


谢谢！！！！

雪山飞狐(lzh)

VBA的问题怎么跑这来了?
把你的程序贴上来看看?

y988

请问怎么执行*.vba的程序！！多谢！

zxdcad

回2楼:对不起,我发错地方了,我是在编一个对象的移动练习程序，程序运行后,不见对象移动就结束了(已经到最后位置了)，现已经解决了！！！！谢谢！

回3楼：先执行VBALOAD 调入VBA程序，后执行VBARUN执行程序。

自由的鱼

用API，sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

sharksun

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
   PauseTime = 5   ' 设置暂停时间。
   Start = Timer   ' 设置开始暂停的时刻。
   Do While Timer < Start + PauseTime
      DoEvents   ' 将控制让给其他程序。
   Loop
   Finish = Timer   ' 设置结束时刻。
   TotalTime = Finish - Start   ' 计算总时间。
   MsgBox "Paused for " & TotalTime & " seconds"
Else
   End
End If