我想在小于 1 秒的特定持续时间后重复一个事件。我尝试使用以下代码
Application.wait Now + TimeValue ("00:00:01")
但这里的最小延迟时间是一秒。如何延迟半秒?
您可以使用 API 调用和睡眠:
将其放在模块的顶部:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
然后你可以在这样的过程中调用它:
Sub test()
Dim i As Long
For i = 1 To 10
Debug.Print Now()
Sleep 500 'wait 0.5 seconds
Next i
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)