VBAを使って、ステータスバーの表示内容を変更する方法です。For Nextで待ち時間の長い処理を行っている時などに、進捗状況を表示するなどの使い方をすることもできます。
Application.StatusBarプロパティ
ステータスバーの表示内容を変更する
Application.StatusBar = 表示内容
※Falseを指定で通常表示に戻せる
Application.StatusBar = 表示内容
※Falseを指定で通常表示に戻せる
![statusbar1](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar1.jpg)
Excel下部の部分をステータスバーといいます。ステータスバー左端のここにはモードの表示など、通常Excelの状態が表示されますが、
![statusbar2](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar2.jpg)
Application.StatusBarプロパティを変更することで、任意に表示内容を変更することができます。
Application.StatusBar = “ステータスバーテスト中”と実行してみると、
Application.StatusBar = “ステータスバーテスト中”と実行してみると、
![statusbar3](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar3.jpg)
こんな感じになります。
![statusbar4](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar4.jpg)
元の表示に戻すには、StatusBarプロパティにFalseを指定します。
![statusbar5](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar5.jpg)
実行結果です。
![statusbar6](https://sunagitsune.com/wp-content/uploads/2021/03/statusbar6.jpg)
Falseの場合は文字を表示、文字が入ってる場合はFalseにする、といった分岐をすることも可能です。
' vba
' 通常表示の場合は文字を表示
If Application.StatusBar = False Then
Application.StatusBar = "ステータスバーテスト中"
' 文字を表示してる場合は通常表示に戻す
Else
Application.StatusBar = False
End If
![](https://sunagitsune.com/wp-content/uploads/2018/10/gui-2311261_1280.png)
やりたいことから方法を探すエクセル(Excel)操作・関数・VBA(マクロ)逆引きまとめ
逆引き(やりたいことから探す)Excel記事まとめ
![](https://sunagitsune.com/wp-content/uploads/2018/12/mathematics-1509559_1280-160x90.jpg)
関数・演算子・メソッド・プロパティ名から探すExcel/VBA(マクロ)使い方・組み合わせ方まとめ
こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。
コメント