隐藏后如何返回或重新显示用户表单?

L42*_*L42 2 excel vba excel-2010

我在 UserForm2 的一个命令按钮中有此代码:

 Private Sub CButton1_Click()
     UserForm1.Show
     Me.Hide
 End Sub
Run Code Online (Sandbox Code Playgroud)

现在,Userform1显示。
然后我在 Userform1 的一个命令按钮中有另一个代码:

 Private Sub CButton2_Click()
     UserForm2.Show
     Unload Me
 End Sub
Run Code Online (Sandbox Code Playgroud)

这会抛出一个:

运行时错误:表单已显示;不能模态显示

我该如何正确执行此操作?隐藏或卸载后
如何返回上一个Userform

Oct*_*vio 5

我认为问题在于语句的顺序。我通过使用调试器发现,当我在 Hide 或 Unload 之前有 Show 语句时,最后这些语句不会被执行。

尝试这个

' on UserForm2
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm1.Show
End Sub

' on UserForm1
Private Sub CommandButton1_Click()
    Me.Hide
    UserForm2.Show
End Sub
Run Code Online (Sandbox Code Playgroud)

  • 卸载它的唯一问题是您丢失了表单上填写的值..隐藏更合适 (2认同)