ステータスバーに文字列を表示する

今回はステータスバーへの文字列表示についてメモしておきます。

すぐに終わるような処理であれば必要ないかもしれませんが、時間がかかる処理の場合には便利です。

文字列を固定で表示

実行プログラム

Sub Sample6_18_1()

    Dim xlAPP  As Application     ' Applicationオブジェクト

    Set xlAPP = Application       ' Applicationオブジェクト取得

    xlAPP.StatusBar = "処理中"    ' 表示

    '------------
    ' メイン処理
    '------------

    xlAPP.StatusBar = False       ' 非表示

End Sub

Sub Sample6_18_1()

Dim xlAPP As Application ' Applicationオブジェクト

Set xlAPP = Application ' Applicationオブジェクト取得

xlAPP.StatusBar = "処理中" ' 表示

'------------

' メイン処理

'------------

xlAPP.StatusBar = False ' 非表示

End Sub

実行前

実行中

文字列を動的に表示

実行プログラム

Sub Sample6_18_2()

    Dim xlAPP  As Application     ' Applicationオブジェクト
    Dim lngCnt As Long
    Dim lngMax As Long

    Set xlAPP = Application       ' Applicationオブジェクト取得
    lngMax = 999

    For lngCnt = 1 To lngMax
        xlAPP.StatusBar = "進捗:( " & CStr(lngCnt) & "／" & CStr(lngMax) & ")"
    Next

    xlAPP.StatusBar = False       ' 非表示

End Sub

Sub Sample6_18_2()

Dim xlAPP As Application ' Applicationオブジェクト

Dim lngCnt As Long

Dim lngMax As Long

Set xlAPP = Application ' Applicationオブジェクト取得

lngMax = 999

For lngCnt = 1 To lngMax

xlAPP.StatusBar = "進捗:( " & CStr(lngCnt) & "／" & CStr(lngMax) & ")"

xlAPP.StatusBar = False ' 非表示

End Sub

結果

注意
非表示にする処理を記述しないと処理終了後も表示されたままになります。