SLEEP関数

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

Sub testing()
    
    Debug.Print "a"
    Sleep (1000) '1000ミリ秒=1秒
    Debug.Print "i"

End Sub

便利関数Windows API

Posted by rafavba