処理に時間のかかるマクロを実行する場合に、現在の処理状況をステータスバーを使う方法です。
ステータスバーはExcelの画面最下部にあるバーで、アイドル状態では「コマンド」または「準備完了」と表示されています
ステータスバーに任意の文字を表示するには、ApplicationオブジェクトのStatusBarプロパティを使います。次のマクロは、ステータスバーに現在の日時を表示します。
Application.StatusBar = Now
ステータスバーに表示した文字列は、マクロが終了しても表示されたままになるのでステータスバーを元の状態に戻すには、StatusBarプロパティにFalseを指定します。
Application.StatusBar = False
ステータスバーに進行状況を表示する例
Application.StatusBar = “(” & cnt & “/” & all & “)” & “を処理中…”