［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 = FalseEnd Sub