VBA 一時停止
処理を一時停止する方法[エクセルVBA] : バヤシタ
一時停止する
サンプルコードは次の通りです。「Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)」の記述が無いと動作しません。
一時停止する
Option Explicit
Sub test()
Debug.Print "処理開始:" & Now
'1秒処理を停止(現在時刻の1秒後まで処理を待つ)
Application.Wait Now + TimeValue("00:00:01")
Debug.Print "処理終了:" & Now
End Sub
一時停止する(ミリ秒で停止時間を指定)サンプルコードは次の通りです。「Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)」の記述が無いと動作しません。
Option Explicit
'WindowsAPI の使用を宣言
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
Debug.Print "処理開始:" & Now
'500ミリ秒一時停止
Sleep 500
Debug.Print "処理終了:" & Now
End Sub