目次
目的
- Excel の画面(ステータスバー)に文字を表示したい。
その一例
- 下記の状態でテストしてみます。ステータスバーに「コマンド」と表示されています。既定値の状態です。
初期状態のステータスバー。 - ステータスバーが表示されていない場合は「表示 > ステータスバー」で表示できると思います。
ステータスバーを表示。 - マクロでステータスバーを表示する事も可能です。
- ステータスバー表示非表示切り替え。 – pulogu.net
- https://pulogu.net/blog/020-computer/excel-vba/status-bar-display-hide-switching/
- ステータスバーが表示されていない場合は「表示 > ステータスバー」で表示できると思います。
- 下記マクロを実行してみます。ステータスバーに独自の文字を出力してみます。
Sub ステータスバーに文字出力()
Application.StatusBar = "ABC"
End Sub - 日本語を出力する事も可能です。
Sub 日本語_ステータスバーに文字出力()
Application.StatusBar = "あいう"
End Sub - 「False」を設定すると初期状態に戻るようです。 Excel を再起動しても元に戻ると思います。
Sub ステータスバーを初期状態に戻す()
Application.StatusBar = False
End Sub
マクロストック
Sub 進捗表示()
Dim i As Long
For i = 1 To 10
Application.StatusBar = "進捗:" & i
Application.Wait (Now + TimeValue("0:00:01"))
Next
Application.StatusBar = False
End Sub

「Application.Wait (Now + TimeValue("0:00:01"))」で一秒間マクロを停止しています。現在時刻(Now)に TimeValue を足す方法は Wait メソッドのヘルプに載っていました。
- Application.Wait メソッド (Excel) | Microsoft Learn
- https://learn.microsoft.com/ja-jp/office/vba/api/excel.application.wait
テスト環境
- Windows 10(64 ビット)
- Microsoft Office Excel 2003
以上、閲覧ありがとうございました。