1.1控制StatusBar的显示:对于StatusBar的显示与隐藏

1.1 控制StatusBar的显示:

对于StatusBar的显示与隐藏，Excel另外提供了一冈来控制：DisplayStatusBar。也蕄plication对蟗r />DisplayStatusBar 蔮r />如果显示状态栏vba statusbar，缘为 True。Boolean 类型，可读写。

如果想显示StatusBar，就必须用Application.DisplayStatusBar = True。

1.2 StatusBar的控制权：

我们知道，对于一竐l程宣程写讲，本身只有一脯栏，那么针对程械，什么时好显示程许的，什么时捍显示用户定义的呢，这里就有一刚控制权的弊端。对此vba statusbar，Excel使用的仍然是StatusBar剩

在上面我们未提及，StatusBar返回一耕串类型，那么Excel依什么来判定StatusBar的控制权呢？

这里要说的是StatusBar的一肛设定，就是StatusBar也可以返回Boolean类型，如果返回True,詄l认为是用户程胸制状态栏，如果是False,元是Excel本身在控制：如下例：

Application.StatusBar = False

赃Excel，请接管回状态栏;

如果不指定StatusBar状态，而直接对其进行异或（即，赋字符串类型数值），詄l会手动认为被用户接管，直到你指定StatusBar湿False为止。

1.3 使用StatusBar:

如上所使用仆太妓。可以直接对StatusBar来赋值以显示我们想要显示的字符串内容。如下：

如果我们想将状况栏文字设为“Please be patient...”，那么就按下表达：Application.StatusBar = "Please be patient..."

2、认识OnTime方法：

Option Explicit

Sub RunTime()

Application.OnTime Now + TimeValue("00:00:01"), "ShowTime", , True

End Sub

Private Sub ShowTime()

Call RunTime

Application.StatusBar = VBA.Format$(Now, "yyyy-mm-dd hh:mm:ss")

End Sub

Sub CancelTime()

On Error Resume Next

Application.OnTime Now + TimeValue("00:00:01"), "ShowTime", , False

Application.StatusBar = False

End Sub

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