用户表单不会完全加载

我有一个处理用户表单，不加载所有的方式。 我现在所使用的stream程顺序是，当我点击一个button时，“PROCESSING”用户表单打开，那么这个用户表单将运行另一个代码，然后closures。 我不知道这个顺序是什么导致我的问题，但PROCESSING窗口永远不会完全加载。 有什么想法吗？

Sub refreshbuttonclick() PROCESSING.Show End Sub Private Sub UserForm_activate() Application.Run "'Operation Get Tough Book Tablets.xlsm'!refresh" Unload Me End Sub 

Answer 1

您尝试添加的Wait命令（如您在其中一个注释中所述）会阻止执行的线程，从而使应用程序看起来没有响应/“挂起”。

你可以做什么，而不是使用OnTime来安排操作/macros将来开始运行一段时间，希望给你的用户forms足够的时间来完全加载。 也许尝试这样的事情：

 Application.OnTime Now + TimeValue("00:00:02"), "'Operation Get Tough Book Tablets.xlsm'!refresh" 

这应该使用户窗体几秒钟完全加载macros开始执行之前。 您可以通过试用和错误的方式，根据您的要求定制计划延迟。