VBA備忘録０４ - 実行状況インジケータ

Excel2000 VBA で動作確認。
ステータスバーを使用し、マクロの実行状況を確認できます。

◇引用

OrgStatus = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "処理中です。... "

【処理部分】

Application.StatusBar = False
Application.DisplayStatusBar = False
Application.DisplayStatusBar = OrgStatus
------------------------------------------------------
■ちらつき防止と併用可能

'画面を更新しない(ちらつき防止)
Application.ScreenUpdating = False

【処理部分】

'画面を更新する(元に戻す)
Application.ScreenUpdating = True

------------------------------------------------------
■組み合わせるとこんな感じ

OrgStatus = Application.DisplayStatusBar
Application.DisplayStatusBar = True

'画面を更新しない(ちらつき防止)
Application.ScreenUpdating = False

For i = 0 To 10

Application.StatusBar = "処理中です。... " & i & "/10 実行完了"
Next

'画面を更新する(元に戻す)
Application.ScreenUpdating = True

Application.StatusBar = False
Application.DisplayStatusBar = False
Application.DisplayStatusBar = OrgStatus

■参考
http://keep-on.com/excelyou/2000lng4/200009/00090002.txt
メルマガの履歴。話が脱線しがちだが必要部分だけ拝借

http://j-walk.com/ss/excel/tips/
【Excel Developer Tip Archives】という英語圏のサイト。