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

目次

目的

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

目次まで戻る

その一例

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

   

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

      

   2. マクロでステータスバーを表示する事も可能です。
      

      ステータスバー表示非表示切り替え。 – pulogu.net

      https://pulogu.net/blog/020-computer/excel-vba/status-bar-display-hide-switching/

2. 下記マクロを実行してみます。ステータスバーに独自の文字を出力してみます。
   

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

   1. 実行結果は以下のようになりました。
      

      

3. 日本語を出力する事も可能です。

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

   1. 実行結果は以下のようになりました。
      

      

4. 「False」を設定すると初期状態に戻るようです。 Excel を再起動しても元に戻ると思います。
   

   Sub ステータスバーを初期状態に戻す()
     Application.StatusBar = False
   End Sub

   1. 実行結果は以下のようになりました。
      

      

マクロストック

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

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

目次まで戻る