VBA代码 延时Do...DoEvents...Loop，非Sleep2025年3月18日 15:25
Sub delay(ts)
Dim t, t1
t = Timer
Do
t1 = Timer
If t1 < t Then t1 = 86400 + t1
DoEvents
Loop Until t1 - ts > t
End SubSub delay(ts)
Dim t, t1
t = Timer
Do
t1 = Timer
If t1 < t Then t1 = 86400 + t1
DoEvents
Loop Until t1 - ts > t
End Sub
全部回复（0）