画面に文字を表示する（ステータスバー）

目的

• Excel の画面（ステータスバー）に文字を表示したい。

その一例

1. 下記の状態でテストしてみます。ステータスバーに「コマンド」と表示されています。既定値の状態です。
   

1. ステータスバーが表示されていない場合は「表示 > ステータスバー」で表示できると思います。
   

Sub ステータスバーに文字出力()
  Application.StatusBar = "ABC"
End Sub

Sub 日本語_ステータスバーに文字出力()
  Application.StatusBar = "あいう"
End Sub

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 メソッドのヘルプに載っていました。

テスト環境

• Windows 10（64 ビット）
• Microsoft Office Excel 2003

以上、閲覧ありがとうございました。