【VBA】Sleep関数・Waitメソッドの使い方 ｜VBAで処理を一時停止する方法を解説します

Sleep関数はWindowsの関数なので、使用する前にモジュール内のコードの上にAPIの名前を宣言する必要があります。操作環境が64ビットなのか32ビットなのかで関数の宣言の仕方が変わります。IF文によって操作環境が64ビット・32ビットのどちらでもSleep関数が使えるようにしています。

例 2: InputBoxを使用して、ユーザー定義の時間だけコードを遅延させる

ユーザーがメッセージボックス内で入力した秒数だけ、コードの実行を遅延させることができます。

Sub SleepTest2()
On Error GoTo InvalidRes
Dim i As Integer
i = InputBox("コードを一時停止する秒数を入力してください。")  'InputBoxで停止したい秒数を入力
Sleep i * 1000 '秒をミリ秒に
MsgBox (i & " 秒停止")
Exit Sub
InvalidRes:  'エラー発生時はメッセージボックスでInvalid valueと表示
MsgBox "Invalid value"
End Sub

実行すると・・・