用户表单将无法完全加载

Question

我有一个处理用户表单，不会一直加载。我当前拥有的进程顺序是，当我单击一个按钮时，将打开“PROCESSING”用户表单，然后该用户表单将运行另一个代码然后关闭。我不确定这个订单是否导致我的问题，但是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 计划操作/宏以便在将来开始运行一段时间，以便为您的用户提供足够的时间来完全加载。也许尝试这样的事情：

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

这应该在宏开始执行之前给用户表单几秒钟来完全加载。您可以通过反复试验来调整您的要求的调度延迟。