用VBA代码在Excel状态栏中显示提示信息

来源:转载

当我们在运行一个执行时间稍长的VBA代码时,可以用下面的VBA代码在状态栏中显示一些信息来提示用户:

Application.StatusBar = "提示信息"

代码运行完毕,再恢复默认状态栏:

Application.StatusBar = FALSE

例如下面的代码在状态栏中显示“正在运行,请稍后……”的提示信息,显示时间为5秒钟。

Sub DisplayMessageOnStatusbar()

'开始执行代码

Application.DisplayStatusBar = True '显示状态栏

Application.StatusBar = "正在运行,请稍后……" '状态栏显示信息

'5秒钟后恢复默认状态栏

Application.Wait Now + TimeValue("00:00:05")

Application.StatusBar = False

End Sub

分享给朋友:
您可能感兴趣的文章:
随机阅读: