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