DisplayStatusBar属性和StatusB...

Excel状态栏位于界面上方，可以在状态栏中显示当前信息，在对客户不产生干扰的前提下使客户无法即时知道相关信息。

使用Application对象的DisplayStatusBar属性可以控制Excel的状态栏的显示，包括显示以及关闭状态栏。而StatusBar属性则可以设定以及返回在状态栏中显示的内容。

如图1所示，在状态栏中显示自定义的信息。

图1

可以首先在程序开始处获得当前状态栏的设定：

blnStatusBar =Application.DisplayStatusBar

然后对状态栏进行修改：

Application.DisplayStatusBar =True

Application.StatusBar = '你好!欢迎关注[完美Excel]公众微信号!'

在程序最终恢复初始的状态栏设置：

Application.StatusBar = False

Application.DisplayStatusBar =blnStatusBar

注意，要恢复状态栏中默认的内容vba statusbarvba statusbar，将StatusBar属性设定为False，正如前面的代码所示。

作者：陈卫平著 步印童书 出品

示例1：在状态栏中显示正在处理的行号

下面的代码在状态栏中显示代码正在处理的行号。

Sub DisplayNumINStatusBar()

Dim lngNum As Long

Dim TotalRows As Long

TotalRows = ActiveSheet.Rows.Count

For lngNum = 0 To TotalRows

If lngNum Mod 100 = 0 Then

Application.StatusBar = '正在处理第' & lngNum & '行.'

End If

Next lngNum

Application.StatusBar = False

End Sub

运行代码后的结果如图2所示。

图2

作者：郑利强 段虹(绘) 步印童书 出品

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shouji/article-137663-1.html