vba - UserForm绘制后自动执行一些代码

Question

我创建了一个用户表单，其中要求用户填写三个字段。该宏尝试在 UserForm_Initialize() 事件中自动检测这些字段的值，然后在这三个字段中显示找到的值，但用户可以更改它们。不过，自动检测需要几秒钟的时间，并且会延迟用户窗体的出现。我希望用户窗体在自动检测过程之前显示为空白，然后让自动检测过程自动填充字段。最好的方法是什么？将 UserForm 设置为非模态会使宏在不等待用户输入的情况下运行，这是有问题的。我不想有“自动检测”按钮:这必须自动完成。

Answer 1

使用Activate()事件而不是 Initialize() :)

Private Sub UserForm_Activate()

End Sub

跟进

Thanks! It works, but there seems to be a bug: the dialog is drawn all white until the macro completes. screenshot (the dialog should be gray)

没有。这不是一个错误:) 试试这个。添加Doevents如下图所示。

Private Sub UserForm_Activate()
    UserForm1.ProgressBar1.Value = 0
    starttime = Timer
    While Timer - starttime < 1
        UserForm1.ProgressBar1.Value = (Timer - starttime) * 100
        DoEvents
    Wend
End Sub

HTH

席德