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

取决于您想要什么。 关键字“ Me”是表单对象的实际实例。 隐藏它，并将其仍保留在内存中。 或将其卸载以杀死它：仅在隐藏时，您可以使用.show再次显示它（来自另一段代码...）

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