VBAテクニック集 VBA一覧 デバッグ・エラー処理 処理制御・エラー回避

【VBA】マクロが「応答なし」になる原因と、正しく「待つ」処理の実装方法

ExcelVBAを使ってマクロを実行していると、処理の途中で「応答なし」と表示され、Excelが一時的にフリーズしたように見えることがあります。
特にループ処理や大量データの操作を行うマクロでは、画面が固まったように見え、「止まってしまったのでは？」と不安に感じる人も多いでしょう。

この記事では、ExcelVBAでマクロが応答なしになる原因と、適切に「待つ」処理を取り入れる方法を詳しく解説します。
処理を止めずに待機を挟むコツや、ユーザーに安心感を与える工夫も紹介します。

✅ ExcelVBAのマクロが「応答なし」となる原因

マクロ実行中に「応答なし」と表示されるのは、Excelがフリーズしているわけではなく、CPUの処理がVBAに集中してしまい、画面更新や操作受付が止まっている状態です。

・CPU処理がVBAに占有される

Excelはマクロ実行中、ユーザーの操作を受け付けるUIスレッド（ユーザーインターフェース）が停止します。
そのため、長いループ処理やファイル入出力などを行うと、Excelの画面が更新されず「応答なし」と表示されることがあります。

・画面更新を制御していない

マクロの速度を上げるために「Application.ScreenUpdating = False」で画面更新を止めている場合、処理が長引くと完全に動作停止したように見えることがあります。
処理完了後に「True」に戻し忘れると、さらに混乱を招きます。

参考：【VBA】Application.ScreenUpdatingプロパティの使用方法と特徴

・イベントや再計算が重なっている

マクロの実行中にセル更新が発生し、ワークシートの再計算が自動的に走ることがあります。
特に「Application.Calculation = xlAutomatic」のままだと、数万セルの再計算が同時に行われ、応答停止に見えることもあります。

参考：【VBA】Application.Calculationプロパティの使い方とその重要性

✅ 応答なしを防ぐ「待つ」処理の考え方

「応答なし」を防ぐには、Excelに息継ぎ（待機時間）を与えることがポイントです。
単に「Sleep」関数で止めるのではなく、ユーザーが安心できるように画面を更新しながら進行を見せるのが理想です。

・「DoEvents」でExcelに処理を返す

最も簡単に応答を保つ方法は「DoEvents」を使うことです。
VBAが一時的にExcel本体へ制御を戻し、画面更新やマウス操作を処理できるようになります。

参考：【VBA】処理が終わってから次の処理を実行する方法｜DoEvents・待機・同期制御の基本と実例

Sub LongProcess_DoEvents()

    Dim i As Long
    For i = 1 To 100000
        Cells(i, 1).Value = i
        If i Mod 1000 = 0 Then
            DoEvents   ' 応答なしを防ぐ
        End If
    Next i

End Sub

このようにループの中に「DoEvents」を挟むことで、
Excelが「応答あり」の状態を維持し、ユーザー操作も受け付けやすくなります。

⚙ ポイント：

  • 「DoEvents」は数万回単位で呼び出すと逆に遅くなるため、適度な頻度（100～1000回に1回程度）で十分です。
  • 画面がちらつく場合は、後述のScreenUpdating設定を併用します。

✅ 処理を一定時間「待つ」方法（Sleep／Wait）

ExcelVBAで「少し待ってから次の処理を行いたい」ときには、Sleep関数やWaitメソッドを使用します。

・Sleep関数（ミリ秒単位で停止）

Windows APIを使って細かく待機時間を指定できます。
処理を完全に止めたい場合に便利です。

参考：【VBA】処理が終わるまで待機する方法｜Sleep関数の使い方と実務例

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub WaitExample_Sleep()

    MsgBox "3秒待ちます..."
    Sleep 3000   ' 3000ミリ秒＝3秒待機
    MsgBox "再開します。"

End Sub

⚠ 注意：

  • Sleepは「完全停止」なので、待機中は画面も固まります。
  • 応答なしを避けたい場合は「DoEvents」を併用するとよいでしょう。

・Waitメソッド（時刻指定で待機）

ExcelVBA標準の「Application.Wait」は、指定した時刻まで処理を止めます。
おおよそ1秒単位で待機できるため、Sleepよりも簡単です。

Sub WaitExample_Application()

    MsgBox "2秒待機します..."
    Application.Wait Now + TimeValue("0:00:02")
    MsgBox "処理を再開します。"

End Sub

💡補足：

WaitはExcelが内部的に処理を停止するため、画面が応答しないように見えることもあります。
ユーザーへの案内を表示する場合は「ステータスバー更新」などを併用しましょう。

参考：【VBA】処理が終わるまで待機させる【Sleep関数・Application.Waitメソッド】

✅ ユーザーに「待っている」と伝える工夫

応答なしに見える原因の多くは、**「ユーザーに進行状況が見えないこと」**です。
以下のように「見える化」することで、フリーズと誤解されにくくなります。

・ステータスバーに進行状況を表示

Sub ShowProgress_StatusBar()

    Dim i As Long
    Application.StatusBar = "処理を開始します..."

    For i = 1 To 100
        Application.StatusBar = "進行中：" & i & "%"
        DoEvents
        Sleep 50
    Next i

    Application.StatusBar = False  ' 元に戻す
    MsgBox "完了しました。"

End Sub

これにより、画面が止まっていても下部のステータスバーで進捗が分かります。
業務用ツールでは、これだけで「応答なし」と感じるケースが激減します。

・ユーザーフォームでプログレスバーを表示

より本格的な方法として、UserFormを利用したプログレスバーを表示する方法もあります。
DoEventsと組み合わせることで、動的にバーを更新できます。

' 簡易例（UserForm1にLabel1を配置）
Sub ProgressBarExample()

    Dim i As Long
    UserForm1.Show vbModeless

    For i = 1 To 100
        UserForm1.Label1.Width = i * 2
        DoEvents
        Sleep 30
    Next i

    Unload UserForm1
    MsgBox "処理完了！"

End Sub

📈ポイント：



✅ 応答なしを根本から減らす最適化テクニック

単に「待つ」だけでなく、マクロの設計を見直すことで応答なしを根本的に防止できます。

・再計算を止める

Application.Calculation = xlCalculationManual

大量データ処理中は自動計算を一時停止し、最後に元へ戻すようにします。

・画面更新を止める（ただし戻し忘れ注意）

Application.ScreenUpdating = False
' 処理内容
Application.ScreenUpdating = True

処理が完了するまで画面更新を止めることで速度が向上しますが、応答なしと誤解される可能性もあるため、進捗メッセージと併用するのがベストです。

参考：【VBA】Application.ScreenUpdatingプロパティの使用方法と特徴

・エラー処理で途中停止を防ぐ

長時間処理ではエラー発生も考慮する必要があります。

On Error GoTo ErrHandler
' メイン処理
Exit Sub

ErrHandler:
    Application.StatusBar = "エラー発生：" & Err.Description
    MsgBox "処理を中断します。"

End Sub

これにより、実際の停止と「応答なし」の区別がつけやすくなります。

✅ 実務での活用例：レポート自動生成や大量書き込み

業務でよくある「応答なし」シーンとして、次のような処理が挙げられます。

  • 売上データや仕入データをシートに数万件出力
  • 月次報告書をテンプレートに沿って自動作成
  • 複数ブックの内容をまとめて転記

これらの処理は、進捗表示なしで実行するとExcelが完全停止したように見えます。
しかし、DoEvents＋StatusBar更新を加えるだけで「安心感」が大きく変わります。

ユーザーが「動いてる」と分かるUI設計は、VBAツールの信頼性を高める要素です。

■ まとめ：VBAマクロの「応答なし」を防ぎ、正しく「待つ」処理を設計しよう

  • 「応答なし」はExcelが止まっているのではなく、処理が集中している状態。
  • DoEventsを定期的に挟むことで、ユーザー操作を受け付けながら処理できる。
  • 一時停止にはSleepやApplication.Waitを使い、適度に休ませる。
  • 進捗をステータスバーやフォームで見える化することで安心感を与える。
  • 最後に、ScreenUpdatingやCalculationの設定を忘れず管理。

長時間の処理であっても、ユーザーが安心して待てるように設計することが、VBAマクロの品質向上に直結します。
「応答なし」と思わせない工夫は、プログラマーの気遣いそのものです。

-VBAテクニック集, VBA一覧, デバッグ・エラー処理, 処理制御・エラー回避