［Excel VBA］状态栏如何显示文字 ？

本文译至：http://itpro.nikkeibp.co.jp/atcl/column/15/090100207/090100148/
Application.StatusBar ＝ 字符串
画面最下方的状态栏可以显示任意的字符串。显示的字符串可以通过Application对象的StatusBar属性来设置。
下面的示例代码将变量i从1到1000的变化情况显示到状态栏上。像这样处理的过程知道的话，处理中就不用担心「freeze了吗？」
此外，状态栏显示要返回Excel的标准格式的话可以指定StatusBar属性为False。



译者注，参数代码如下所示，为了让显示时间更长些，把 i 的最大值设成 10000

Sub Sample2()
Dim i As Long
For i = 1 To 10000
Application.StatusBar = i & " times is processing"
Next i

Application.StatusBar = False
End Sub