停止在关闭和打开用户窗体_VBA

Question

我创建了两个表单。按下按钮 1 打开表格编号 2。通过关闭表格编号 2，显示表格编号 1。但是这个动作只做了一次，第二次就停止了，几乎不起作用。代码哪里有问题？

代码 Userform1：

Private Sub ShowUserform2_Click()
  UserForm1.Hide
  Unload UserForm1
  UserForm2.Show
End Sub

代码 userform2：

Private Sub UserForm_Terminate()
  UserForm2.Hide
  Unload UserForm2
  UserForm1.Show
End Sub

Answer 1

跳过formName.Hide 行。它们是不必要的。

在Unload formName 语句之后添加：

Set formName = Nothing

另外，将otherForm.Show 行放在上述两行之前。

Answer 2

试试这个代码：

代码 Userform1：

Private Sub ShowUserform2_Click()
    UserForm1.Hide
    UserForm2.Show
End Sub

代码 userform2：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserForm1.Show
End Sub