整个应用程序消失（在后台运行）而不是在 VBA 中打开工作表“Sheet1”

Question

我有 2 个用户表单。在 userform1 中，选择要打开的工作表和一些文本框。在 Userform2 中，有额外的选项框和一个命令按钮来卸载 Userform2 和激活工作表 1，但它不会加载...我曾经能够运行它，直到我添加了一个代码来提示用户完成字段..不是确定我的代码有什么问题，它不会再继续打开工作表了

Userform1 代码：

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Then
MsgBox "Pls. enter data"
Cancel = True
Exit Sub
End If

If Sheet1.Value = True Then
Unload UserForm1
UserForm2.Show

Userform2 代码：

*'to prompt user to complete fields*
Private Sub CommandButton1_Click()
If OptionBox1.Value = False And OptionBox2.Value = False Then
MsgBox "Pls. select option"
Cancel = True
Exit Sub
End If

*'to open worksheet "Sheet1"*
If UserForm1.Sheet1.Value = True Then
Worksheets("Sheet1").Activate
Application.Visible = True
Unload UserForm2
End If
End Sub

Answer 1

一旦您卸载 UseForm1，就不能再从 UserForm2 访问它 - 您应该改为 Hide UserForm1 直到您完成它，然后才使用 Unload 它。