なぜステータスバーへの表示が重要なのか
実務で大量のデータを処理するマクロを動かす際、最も避けたいのは「フリーズしたのではないか？」というユーザーの誤解です。画面が反応しない時間が数秒続くだけで、操作者は不安になり、強制終了を試みてしまうことがあります。
ステータスバーに現在の進行状況を表示することで、マクロが正しく動作していることを視覚的に伝え、ユーザーに安心感を与えることができます。これは、プロフェッショナルなツールとして不可欠な「親切な設計」の一環です。
基礎知識：StatusBarプロパティとは
Excelの画面左下に位置する「ステータスバー」は、通常「準備完了」などが表示される領域です。VBAでは、ApplicationオブジェクトのStatusBarプロパティを操作することで、ここに任意のテキストを表示できます。
非常に軽量で、ユーザーフォームなどで別途進捗バーを作成するよりも遥かに手軽に導入できるのがメリットです。ただし、マクロ終了後も表示が残ってしまう性質があるため、処理の最後には必ず元の状態に戻すというルールを守る必要があります。
実装のポイント
進行状況を分かりやすく示すには、「現在の件数 / 全体件数」の数値表示に加え、視覚的に進みがわかる「■」などの記号を組み合わせるのが効果的です。また、処理速度を低下させないよう、進捗更新の頻度を調整する工夫も大切です。
サンプルプログラム：視覚的に進捗を伝える
以下のサンプルコードでは、ループ処理の進行状況をステータスバーに反映させる実装例を紹介します。
Sub ShowProgressBar()
Dim i As Long
Dim total As Long
Dim progress As String
‘ 全体件数を設定（例として100回ループ）
total = 100
‘ 画面更新を停止して高速化
Application.ScreenUpdating = False
For i = 1 To total
‘ 処理のシミュレーション（0.05秒待機）
Application.Wait [Now() + “0:00:00.05”]
‘ 進捗状況を文字列で作成（パーセントとバー表示）
‘ 10件ごとにバーを1つ追加する計算
progress = “処理中: ” & i & “/” & total & ” (” & Format(i / total, “0%”) & “) ” & _
String(Int(i / total 20), “■”)
‘ ステータスバーに反映
Application.StatusBar = progress
Next i
‘ 重要：処理が終わったら必ずステータスバーをリセットする
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox “処理が完了しました。”
End Sub
応用・注意点
1. リセットの徹底：マクロがエラーで途中で止まった場合でもステータスバーが更新されたままになることがあります。可能であればエラートラップ処理（On Error GoTo）を記述し、エラー発生時にも「Application.StatusBar = False」が実行されるようにしましょう。
2. 更新頻度の調整：数千、数万のループで毎回「StatusBar」を更新すると、Excel自体の描画負荷が高まり、処理速度が大幅に低下します。「If i Mod 10 = 0 Then」のように、10回や100回に1回だけ更新するように制御すると、パフォーマンスと視認性のバランスが最適になります。
3. ユーザーへの配慮：あまりに頻繁に長い文字を表示すると、ステータスバーがチラついて逆に見づらくなることがあります。シンプルで短く、変化が分かりやすい表示を心がけましょう。
