打开窗体窗口时，如何使代码在VBA中运行？

Question

在Excel VBA中，我想按一个按钮，运行一些代码，并且在代码运行时，出现一个窗体窗口，显示诸如“代码正在运行，请等到完成。单击停止按钮以终止代码”。

但是每次我显示表单时，代码都会停止，等待表单窗口关闭后再继续。有没有办法在打开窗体窗口时强制代码继续运行？谢谢！

回答：在.Show末尾添加（False）或将表单的ShowModal属性更改为False。然后在fmRunning.Show（False）之后添加Application.Wait（Now + TimeValue（“ 0:00:01”））。或插入“ DoEvents”而不是Application.Wait，谢谢大家！

Answer 1

您需要将用户表单设置为无模式。这可以通过两种方式完成：

• 通过选择用户窗体并将ShowModal属性更改为False
• 或通过将modal属性设置为0（vbModeless）打开用户窗体

Userform.Show vbModeless

有关更多信息，请参见MSDN。