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

用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 = FalseEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。