VBAで指定時間だけ処理を止める

VBAで指定時間だけ処理を止めるには
Windows APIのSleepを使います。

指定時間だけ処理を止めるSleepは
外部プログラムの応答を待つときなどに使用します。

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub testSleep()

  Sleep 3000

End Sub

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

Sub testSleep()

Sleep 3000

End Sub

モジュールの最初でDeclareステートメントを使用します。
こちらの宣言を行うことによって、Windows APIの
Sleep関数を使えるようになります。

Sleepのあとに処理を止めたい時間を指定します。
時間はミリ秒で指定します。
1秒の場合はSleep 1000
2秒の場合はSleep 2000です。

ミリ秒単位でSleepさせるのが直感的でなければ
関数を作成して秒単位でスリープさせましょう。

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub sleepSecond(milSecond As Long)

  Sleep milSecond * 1000
  
End Sub
Sub test_sleepSecond()

  call sleepSecond(3)

End Sub

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)

Sub sleepSecond(milSecond As Long)

Sleep milSecond * 1000

End Sub

Sub test_sleepSecond()

call sleepSecond(3)

End Sub