【Excel VBA】Application.StatusBarでマクロ実行中の進行状況をリアルタイム表示する方法

処理件数が多い長いVBAマクロを実行すると、数秒〜数十秒の間、Excelがフリーズしたように見えることがあります。コード自体は正常に動いていても、画面上で何も変化がなければ「ブックが固まった」とユーザーに誤解されてしまいます。

この問題を簡単に回避する方法が、マクロ実行中にExcelのステータスバーへ進行状況メッセージを表示することです。このチュートリアルでは、UserFormやグラフィカルなプログレスバーを使わずに、Application.StatusBarだけで進行状況を表示する方法を解説します。

なぜ Application.StatusBar を使うのか?

Excelにはアプリケーションウィンドウ下部に標準のステータスバーが備わっています。VBAからは、この領域の通常の表示を一時的に独自のメッセージで置き換えられます。

つまり、マクロの実行中に次のような情報を手軽に表示できるのです。

• 100行中10行目を処理中
• データをインポートしています…
• 数式を書き込んでいます…
• 65% 完了

本格的な視覚的プログレスバーを作る手間をかけずに、「マクロはまだ動いている」ということをユーザーに伝えたい場合に特に有効です。行数やパーセンテージを表示して情報量を増やすこともできますが、あくまでテキストベースのソリューションである点は変わりません。

基本構文:

ステータスバーにメッセージを表示するには、次のように書きます。

Application.StatusBar = "Processing..."

マクロが終了したら、必ず次のコードでステータスバーを元に戻します。

Application.StatusBar = False

Application.StatusBar = False を設定すると、ステータスバーの制御がExcelに戻り、既定のメッセージが再び表示されるようになります。このリセットを省略しないようにしてください。

基本例:シンプルな進行状況メッセージ

まずは最も基本的な形です。ステータスバーに「レポートを実行中です…お待ちください」といった固定メッセージを1回だけ表示します。

Sub SimpleStatusBar()
    Application.StatusBar = "Running report... please wait"

    ' 処理のシミュレーション
    Dim i As Long
    For i = 1 To 50000
        ' ここに実際の処理を書く
    Next i

    Application.StatusBar = False ' ステータスバーを復元
    MsgBox "Done!"
End Sub

これでも動作しますが、表示されるのは固定メッセージのみです。マクロが動いていることは伝わりますが、実際の進捗度合いまでは分かりません。

ループ処理中にリアルタイムの進行状況を表示する

実務のマクロでは、行・セル・ファイル・レコードなどを1件ずつ順番に処理することがほとんどです。その場合は、ループの中でステータスバーを更新すれば、簡単に進行状況を表示できます。

Sub ShowLoopProgress()
    Dim i As Long
    Dim lastRow As Long

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        ' 簡単な処理
        Cells(i, "K").Value = "Processed"

        ' 進行状況メッセージを更新
        Application.StatusBar = "Processing row " & (i - 1) & " of " & lastRow
        DoEvents
    Next i

    Application.StatusBar = False
    MsgBox "Task completed!"
End Sub

• DoEvents を入れることで、マクロ実行中でもExcelが画面を再描画し、応答を保てるようになります
• DoEventsがないと、特に長いループではマクロ終了までステータスバーが見た目上更新されないことがあります
• ただしDoEventsは呼び出しのたびにわずかにオーバーヘッドがあるため、超大規模なループでの乱用は避けましょう

実行すると、ウィンドウ下部のステータスバーに 「Processing row 90 of 101(101行中90行目を処理中)」 のような表示が現れます。

パーセンテージ表示を追加する

進行状況メッセージにはパーセンテージを含めることもできます。達成率を計算し、その値をステータスバーのテキストに組み込むだけでOKです。

Sub ShowPercentageProgress()
    Dim i As Long
    Dim lastRow As Long
    Dim percentDone As Double

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        ' 簡単な処理
        Cells(i, "K").Value = "Processed"

        ' 進行状況メッセージを更新
        percentDone = (i - 1) / (lastRow - 1)
        Application.StatusBar = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
            " (" & Format(percentDone, "0%") & ")"
        DoEvents
    Next i

    Application.StatusBar = False
    MsgBox "Task completed!"
End Sub

このコードを実行すると、「Processing row 14 of 100 (14%)」(100行中14行目を処理中・14%完了)のように、ユーザーにとって分かりやすい進捗表示になります。

実践例:数式を書き込むタスクでの進行状況表示

次に、ワークシートへの実際の操作を伴う実務的な例を見てみましょう。こちらのバージョンでは、売上金額を求める簡単な数式を列に書き込みながら、進行状況を表示します。

Sub ShowProgressWithFormula()
    Dim i As Long
    Dim lastRow As Long
    Dim percentDone As Double

    lastRow = Cells(Rows.Count, "H").End(xlUp).Row

    For i = 2 To lastRow
        ' K列に数式を書き込む
        Cells(i, "K").Formula = "=H" & i & "*I" & i

        ' 進行状況メッセージを更新
        percentDone = (i - 1) / (lastRow - 1)
        Application.StatusBar = "Writing formulas... " & _
            "Row " & (i - 1) & " of " & (lastRow - 1) & _
            " (" & Format(percentDone, "0%") & ")"
        DoEvents
    Next i

    Application.StatusBar = False
    MsgBox "Formulas added in column K!"
End Sub

シンプルな例ですが、多くのユーザーが日常的に行っている種類のワークシート処理に非常によく似ています。

テキスト文字で作る「擬似プログレスバー」

Application.StatusBarでは本物のグラフィカルなプログレスバーは作れません。しかし、記号を組み合わせた文字列でそれっぽく表現することは可能です。

Sub StatusBarWithTextProgressBar()
    Dim i As Long
    Dim lastRow As Long
    Dim percentDone As Double
    Dim barLength As Integer
    Dim filledBars As Integer
    Dim progressBar As String

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    barLength = 20

    For i = 2 To lastRow
        Cells(i, "K").Value = "Processed"

        percentDone = (i - 1) / (lastRow - 1)
        filledBars = Int(percentDone * barLength)
        progressBar = String(filledBars, "|") & String(barLength - filledBars, ".")

        Application.StatusBar = "Progress: [" & progressBar & "] " & _
            Format(percentDone, "0%")
        DoEvents
    Next i

    Application.StatusBar = False
    MsgBox "Completed!"
End Sub

VBAを実行すると、ステータスバーには次のような表示が現れます。

Progress: [||||||||||……….] 67%

あくまでテキスト表示ですが、単なる数値よりも進捗のイメージがつかみやすくなります。

ベストプラクティス:必ずステータスバーをリセットする

最もよくあるミスのひとつが、マクロの最後でステータスバーを元に戻し忘れることです。Application.StatusBar = False を実行しないと、マクロが終了した後もカスタムテキストが表示され続けてしまうことがあります。

より安全なのは、エラーハンドリングを組み合わせて、何らかの問題が発生しても確実にリセットされる構造にすることです。

Sub SafeStatusMessage()
    Dim i As Long
    Dim lastRow As Long
    Dim percentDone As Double

    On Error GoTo CleanUp

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastRow
        Cells(i, "K").Value = "Processed"

        percentDone = (i - 1) / (lastRow - 1)
        Application.StatusBar = "Processing row " & (i - 1) & " of " & (lastRow - 1) & _
            " (" & Format(percentDone, "0%") & ")"
        DoEvents
    Next i

    MsgBox "Task completed!"

CleanUp:
    Application.StatusBar = False
    If Err.Number <> 0 Then
        MsgBox "Error: " & Err.Description
    End If
End Sub

このパターンの方が、実運用向きの安全な作りになっています。

分かりやすいステータスメッセージのためのコツ

良いステータスメッセージは短く、具体的であるべきです。簡潔さと有用性を意識しましょう。良い例としては以下のようなものがあります。

• 売上データをインポートしています…
• 重複データをチェックしています…
• ワークシートを整形しています…
• 200件中45件目のレコードを処理中…
• レポートを仕上げています…

表示内容を実際に実行中のタスクに一致させると、マクロ全体の完成度や信頼感がぐっと高まります。

そのまま流用できる汎用パターン

以下のパターンはほぼすべてのマクロで再利用できます。コードをコピーして、必要な箇所に自分のロジックを挿入するだけです。

Sub MyMacro()
    On Error GoTo CleanUp

    Dim i As Long
    Dim total As Long

    total = 100

    For i = 1 To total
        Application.StatusBar = "Processing item " & i & " of " & total
        DoEvents
        ' ここに自分の処理を書く
    Next i

CleanUp:
    Application.StatusBar = False
End Sub

まとめ

このチュートリアルの手順に従えば、VBAマクロの実行中に簡単に進行状況メッセージを表示できます。VBAがまだ動いていることをユーザーに伝えたいなら、Application.StatusBarは最も手軽なツールのひとつです。本格的なプログレスバーではありませんが、多くの場面で十分すぎるほど役立ちます。

このアプローチは実装が簡単で信頼性が高く、必要なコードも最小限。長時間動くVBAプロシージャのユーザー体験を大きく改善してくれます。まずは自分のマクロのメインループ内にステータス更新を数行追加してみてください。その効果はすぐに実感できるはずです。