如何用vba在excel的状态栏显示自定义的文本？

在excel中，状态栏可以显示excel中的软件使用情况，也可以显示各种统计信息。

如下图所示：

如果想让状态栏显示个性化的自定义文本，可以使用Application对象的StatusBar属性。

比如用如下的vba代码可以让excel状态栏显示现在的日期和时间：

Sub QQ1722187970()
    sText = "现在是" & Format(Now(), "yyyy年mm月dd日 hh:mm:ss")
    Excel.Application.StatusBar = sText
End Sub

如果要恢复原来的状态栏，不再显示自定义的文本，可以将Application对象的StatusBar属性的值设置为False，即可恢复原来的状态栏。

我们知道了可以通过给Application对象的StatusBar属性设置文本字符串来显示自定义的文本，但是这个自定义的文本有字符长度限制的，如果文本字符串超过255个字符就无法使用了。

以上介绍的是如何设置状态栏显示自定义的文本。

如果要隐藏状态栏，可以将Application对象的DisplayStatusBar属性设置为False。

以下代码将隐藏excel的状态栏：

Sub QQ1722187970()
    Excel.Application.DisplayStatusBar = False
End Sub