您的位置: 首页 > EXCEL技巧 > ExcelVBA >

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

时间:2013-12-04 整理:docExcel.net

当我们在运行一个执行时间稍长的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

 

 

 

 

 

 



  

微软“乌龙升级” 令必应及雅虎搜索同时瘫痪 问题:微软“乌龙升级” 令必应及雅虎搜索同时瘫痪
回答:...大量的搜索服务器,目的是将搜索系统恢复到之前正常的状态。 微软公司的一名发言人,对外证实了搜索引擎的故障。这位发言人周五表示说:“今天早间,我们的一些(搜索)客户遭遇了短暂、孤立的服务中断,目前问题...
用VBA选择活动单元格所在的数组区域 问题:用VBA选择活动单元格所在的数组区域
回答:...时,可以用下面的VBA代码选择当前整个数组区域,并且在状态栏中给出提示信息。 Public Sub SelectArray() Dim Msg As String On Error GoTo DispOnSstatusbar Msg = 选择的单元格不在数组区域中。 ActiveCell.CurrentArray.Select Msg = 已选择数组区域: &...
求EXCEL版的设备数量,使用状态记账表格 问题:求EXCEL版的设备数量,使用状态记账表格
回答:这个需要用VBA,代码很简单:Sub A列排序() Range("A3:C500").Sort key1:=Range("A3"), order1:=1, header:=xlNo, MatchCase:=FalseEnd Sub 右键点工作表标签-查看代码,然后将以上代码复制粘贴到代码窗口里,再在工作表的绘图里找到小长框,点...
Win7系统安装Office 2010出错怎么办 问题:Win7系统安装Office 2010出错怎么办
回答:...ws Installer服务,并设置“启动类型”为自动,并点击服务状态“启动”按钮。2、然后找到C:WindowsSystem32下的cmd.exe文件,鼠标右键单击并选择“以管理员身份运行”。3、在命令行窗口输入: regsvr32 msi.dll 并回车,提示“DllRegisterSe...
打开EXCEL,出现这个提示,以前好用的,现在打开 问题:打开EXCEL,出现这个提示,以前好用的,现在打开不了宏了。
回答:1、如果代码没有修改,那应该是你的数字可能被设置成不符合要求的数据了。2、如果代码修改了,应该是代码修改时将代码类型修改错了,检查、修正后应该就可...
将Word2013文档设为最终版本 问题:将Word2013文档设为最终版本
回答:...感觉,下面,我教大家另外一种方法,将文档标记为最终状态,让人不能编辑。 ①单击文件--信息--保护文档--标记为最终状态。 ②提示文档先被标记为终稿,然后保存,单击确定按钮。 ③然后是保存文档,选取好保存路...
相关推荐: