用VBA代码在Excel状态栏中显示提示信息
- 2023-02-27
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 227 次浏览
当我们在运行一个执行时间稍长的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
