vba - 如何覆盖 msgbox 按钮以在 VBA 中卸载用户窗体？

Question

我对 vba excel 很陌生。我正在尝试在 vba excel 中开发用于报告格式化任务的小工具。我知道如果我将下面的代码放入一个按钮中，它会卸载我的表单，但是我如何覆盖 msgbox 的按钮来卸载整个用户表单？

Unload UserForm1

Answer 1

如果我正确理解了您的问题（与 Chris 一样，我不确定我是否正确），您确实知道 msgbox 可以返回一个值并且您可以使用该值来关闭您的表单？例如，第一个返回一个值，第二个没有：

Dim l As Long

l = MsgBox("What do you want to do?", vbOKCancel)

If l = vbCancel Then
     Unload UserForm1
Else
    MsgBox "You selected 'OK'"
End If

您可以使用返回值 (l) 告诉调用 msgbox 的代码卸载表单。