0
点赞
收藏
分享

微信扫一扫

VBA:延时

幸福的无所谓 2022-05-18 阅读 8

宏最上面:Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub wait(aa)
Dim Savetime As Double
Text1 = "timeGetTime begin"
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + aa '循环等待
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
Text1 = "timeGetTime end"
End Sub
调用
Call wait(300)





举报

相关推荐

0 条评论