Excel 如何在程序运行期间提示信息“正在运行中。。。请稍候

Excel 如何在程序运行期间提示信息“正在运行中。。。请稍候

：

显示窗体的语句（窗体有2种模式）
　　（1）模式窗体的显示代码：
　　窗体名称.Show  vbModal
　　也可以写成：窗体名称.Show 1
　　（2）无模式窗体的显示代码：
　　窗体名称.Show  vbModeless
　　也可以写成：窗体名称.Show 0

（1）模式窗体：窗体显示后将停显示之后的代码直到退出或隐藏此窗体，并且必须退出或隐藏此窗体后，才可以操作非此窗体的其他界面元素。
　　也就是说，当你使用模式窗体显示某窗体的时候，当程序执行完“显示窗体”这条命令后，将暂停执行程序里剩余的语句，真正这个窗体被隐藏或退出。关且当窗体显示出来以后，你不能激活该窗体以外的任何区域。
　　（2）无模式窗体：窗体显示后会继续执行程序里余下的语句，而其他的窗体或界面也可以进行操作。

我们必须使用无模式窗体，这样让提示出现的时候才能绕过窗体提示，继续执行后面的语句。

下面是我自己做的一个演示示例：

 1 sub 程序正在运行中()
 2
 3      UserForm.Show (vbModeless)
 4      DoEvents            ‘这个必须加，否则部分电脑出现的窗体中会出现空白，没字
 5
 6  ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘程序功能部分‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
 7      Dim T1 As Single
 8      T1 = Timer
 9      Do
10      Loop While Timer - T1 < 3  ‘作为演示我设置了一个3秒延时
11  ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
12      UserForm.hide ‘功能部分执行完毕 隐藏窗体
13
14 end sub