2010/04/25

VBAの処理を一定時間停止する

Option Explicit
Private Declare Sub Sleep Lib "KERNEL32.dll" _
   (ByVal dwMilliseconds As Long)

Sub SleepSample()
   ' 2秒間処理を停止する場合 '
   Sleep 1000 * 2
End Sub

ポイントはスリープ関数(API)の宣言を行うことと、処理を停止する時間をミリ秒単位で指定することの二点です。

1000ミリ秒=1秒なので、例では "1000 * 停止したい秒数" としていますが、直接"Sleep 2000" と指定しても全く問題ありません。

0 件のコメント:

コメントを投稿