処理の途中経過をステータスバーに表示する

VBAで処理を流すとき、件数が多ければ途中どれだけ処理したかが分からないまま固まってしまったような画面になってしまう。そこで処理の途中経過をステータスバーにメッセージとして表示することで、処理の進捗具合を確認できるようにする。

ステータスバーへのメッセージ表示は以下の文で行える。

Application.StatusBar = "処理実行中．．．．(現在 " & i & "件)"

以下、サンプルのコード。

Sub macro1()

    Dim i As Integer
    
    '10000回表示を繰り返す
    For i = 1 To 10000
        '処理中の件数の表示
        Application.StatusBar = "処理実行中．．．．(現在 " & i & "件)"
    Next i

    '完了と処理件数の表示
    Application.StatusBar = "処理完了．．．．(全 " & i - 1 & "件)"
End Sub

処理中の表示。

完了時の表示。