如何覆盖msgbox按钮以在VBA中卸载Userform？

Question

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

Unload UserForm1

Answer 1

如果我正确理解你的问题（和克里斯一样，我不确定我这样做），你知道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的代码卸载表单。