Excel VBAを業務で活用していると、「特定の処理が終わるまで少し待ってから次の動作をさせたい」という場面に直面します。例えば、外部システムへのデータ出力待ちや、Webクエリの更新完了を待つケースです。今回は、単に時間を止めるだけでなく、実務でトラブルを起こさないためのテクニックを解説します。
基本はApplication.Waitを使う
VBAで待機処理を行う際、最もシンプルで推奨されるのがApplication.Waitメソッドです。Sleep関数のようにWindows APIを呼び出す必要がなく、記述も非常に簡単です。
構文：Application.Wait [時刻]
例えば、「10秒後に実行」させたい場合は以下のように書きます。
Application.Wait Now + TimeValue(“00:00:10”)
なぜSleepではなくWaitなのか
ネット上の古い記事では、Windows APIの「Sleep関数」が紹介されていることがあります。しかし、Sleep関数はCPUを占有して待機するため、待機中にExcel自体が「応答なし」の状態になりやすく、ユーザーが操作できなくなるリスクがあります。一方、Application.WaitはExcelのバックグラウンド処理を維持したまま待機できるため、業務ツールとしての安定性が格段に違います。
実務で遭遇する「罠」と回避策
ここで一つ、ベテランとして注意点を共有します。Application.Waitを実行している間、Excelは「待機状態」になりますが、完全に計算が止まるわけではありません。
もし待機中にユーザーがセルの編集を始めると、タイミングによっては「待機解除後に予期せぬ挙動」を招くことがあります。これを防ぐには、待機処理の前後でApplication.ScreenUpdating = False を使い、画面描画を停止させるのが定石です。
指定時刻まで待つための応用コード
以下は、特定の時刻（例えば15時30分00秒）まで処理を止めるための実用的なコード例です。
Sub WaitUntilSpecificTime()
Dim targetTime As Date
targetTime = Date + TimeValue(“15:30:00”)
If Now >= targetTime Then
MsgBox “指定時刻を過ぎているため、即時実行します。”
Else
Application.Wait targetTime
End If
‘ ここに待機後に実行したい処理を記述
MsgBox “待機終了。処理を開始します。”
End Sub
まとめ：スマートな自動化のために
単に「止める」だけなら誰でも書けますが、「ユーザーにストレスを与えず、かつ確実に制御する」のが実務家のVBAです。今回紹介したWaitメソッドを正しく使い、安定したマクロ運用を心がけてください。無理なループ処理（DoEventsを使用した待機など）は、PCに負荷をかけるだけでなくバグの温床になります。まずはこのWaitメソッドをマスターすることから始めましょう。
