ステータスバーに文字を表示するには(その2:ステータスバーにカウンター表示)

その１を応用すると，ステータスバーにマクロの進行状況を表示することができます．つまり，VBAにはFor文を多用するかと思いますがこれを使用すればよいと思います。たとえば以下のようなコードで…

【事例】
Sub status_display()
Count = 10000
Application.StatusBar = True
For i = 1 To 10000
Application.StatusBar = "ステータスバーに表示中です" & i & "/" & Count
k = k + 1
Next
Application.StatusBar = False
MsgBox "終了"
End Sub

【説明】
その１で書いたマクロを使用してさらにFor文の中に繰り返し数をステータスバーに表示させることによってマクロの進行状況が表示できるようになります．ナイスアイデーア．