窗体打开时如何保持代码在VBA中运行?

在Excel VBA中,我想按下一个button,运行一些代码,当代码运行时,出现一个表单窗口,显示“代码正在运行,请等待,直到完成,点击停止button终止代码。

但是每次我显示表单的代码停止,等待窗体closures之后再继续。 有没有办法强制代码在窗体打开时继续运行? 谢谢!

回答:添加(False)结束时。显示或更改窗体的ShowModal属性为False。 然后在fmRunning.Show(False)之后添加Application.Wait(Now + TimeValue(“0:00:01”))。 或插入“DoEvents”,而不是Application.Wait谢谢所有!

您需要将用户窗体设置为无模式。 这可以通过两种方式完成:

  • 通过select用户窗体并将ShowModal属性更改为False
  • 或者通过将模式属性设置为0来打开用户窗体(vbModeless)
 Userform.Show vbModeless 

有关更多信息,请参阅MSDN 。