停止关闭并打开用户窗体_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

Stop in Close and Open userforms _VBA