【Excel VBA】究極奥義！VBA実行中に応答せずフリーズしたときの対処法

ExcelなどのVBAで繰り返し処理など長時間実行をする処理を実行したときに、応答がなくホワイトアウトした状態になってしまって、Escキーを押しても反応せず困った経験はないでしょうか。
こんな状態です。

今回はそんなときに対処する方法をご紹介したいと思います。

「ESC」を連打してみる

はい、とりあえず「ESC」を連打してみましょう。
1秒間隔でタン、タンと「ESC」を押すとよいとの情報もあります。

さっそく、サンプルのマクロで試したいと思います。

Sub 長時間ループ()
    Dim i As Long
    
    Do While i < 1000000 ' i が 1000000より小さい間ループする
        i = i + 1
        Cells(i, 1) = i
    Loop
    
End Sub

画面がホワイトアウトする前にやれば結構な確率で中断されますね。

下手に足掻いてウインドウ操作をしてしまうとホワイトアウトされてしまうので、早めの対処が肝心かと思います。

なおホワイトアウト後でもマクロのブレイクポイントにうまく入れば中断できるかもしれません。

しかし、これは運でしょうか。必ずしもうまくいくとは限りません。

DoEvents()をマクロへ追加する

DoEvents関数はExcelからOSのWindows本体に制御を渡す処理で、安定化を行うことが可能となります。

これを実装して試してみたいと思います。

Sub 長時間ループ()
    Dim i As Long
    
    Do While i < 1000000 ' i が 1000000より小さい間ループする
        i = i + 1
        Cells(i, 1) = i
    Loop
    DoEvents
End Sub

うーん、ホワイトアウトされますね。。

心なしかウインドウの切り替えは少しスムーズになったような気がします。

繰り返し処理の場合は制御をOSへ渡しても結局処理は続くので根本解決にはならないみたいですね。

DoEvents訂正版

読者様よりご指摘ありました。
DoEvents()の設定位置はループの中である必要がありますので以下の通り訂正をいたします。

Sub 長時間ループ()
    Dim i As Long
    
    Do While i < 1000000 ' i が 1000000より小さい間ループする
        i = i + 1
        Cells(i, 1) = i
        DoEvents
    Loop
    
End Sub

こちらですと、ホワイトアウトされませんね。

タカヒロ

大変失礼しました…

「Esc」を押しながら他のウインドウをいろいろ開いてみる

Twitterで見かけた裏技のようなものです。
「Esc」を押しながらExcel以外の他のウインドウをいろいろ開いてみましょう。
私の場合はChromeのウインドウに切り替えたときに中断できました。

マクロの処理内容やPCのスペックによって結果が異なるのかもしれませんが、おまじない程度に思っておいたほうがよいかもしれません。