EXCEL-VBA：延迟几秒不卡顿Sleep变通方法

方法是使用Sleep。

然后每过百毫秒Doevents一次

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub WaitForSec(ByVal Sec As Integer)
    For i = 1 To Sec * 10
        DoEvents
        Sleep (100)
    Next
End Sub

版权声明：本文为jyh_jack原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。