Excel VBA自定义对话框取消按钮代码

Question

我弹出一个带有单选按钮的对话框，单选按钮当前运行宏。但是，一旦我弹出对话框，我无法关闭它。我添加了取消按钮。代码在

之下

Private Sub CommandButton1_Click()
Cmd_Cancel
End Sub

如何通过按取消按钮关闭对话框？

Answer 1

在我的表单中，我使用了一个带有以下代码的“取消”按钮

btnCancel是按钮的(Name)

Private Sub btnCancel_Click()

    Unload Form_Form1

End Sub

Answer 2

取决于你想要什么。关键字＆＃34;我＆＃34;是Form-Object的实际实例。隐藏它，它仍然在内存中。或卸载它以杀死它： 当它只被隐藏时，您可以使用.show（从另一段代码中再次显示...）

Private Sub CommandButton1_Click()
    Me.Hide
    Unload Me
End Sub