如何在VBA用户表单中集成取消按钮以终止整个宏

要实现点击取消按钮或关闭表单时终止主宏运行，核心是通过公共状态变量传递取消状态，同时统一处理表单的关闭逻辑，具体实现如下：

1. 修改用户表单代码 #

在表单模块中新增取消状态标记、取消按钮事件，并拦截右上角关闭操作：

Option Explicit

Public Lead_time As Double
Public IsCancelled As Boolean ' 标记是否触发取消操作

Private Sub UserForm_Initialize()
    ListBox1.List = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10")
    IsCancelled = False ' 初始化取消状态
End Sub

Private Sub Cmd_OK_Click()
    Dim i As Long
    Lead_time = 0 ' 重置值，避免上次选择残留
    For i = 0 To ListBox1.ListCount - 1 ' 注意索引范围：从0到ListCount-1
        If ListBox1.Selected(i) Then
            Lead_time = CDbl(ListBox1.List(i))
            Exit For
        End If
    Next i
    
    If Lead_time = 0 Then
        MsgBox "请选择提前天数"
    Else
        IsCancelled = False
        Hide ' 隐藏表单保留变量
    End If
End Sub

' 新增：取消按钮点击事件
Private Sub Cmd_Cancel_Click()
    IsCancelled = True
    Hide
End Sub

' 新增：拦截表单右上角关闭按钮
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 当点击右上角叉号时（CloseMode=0），统一设置取消状态
    If CloseMode = vbFormControlMenu Then
        Cancel = True ' 阻止默认的卸载行为
        IsCancelled = True
        Hide
    End If
End Sub

2. 修改主宏代码 #

在主宏中先判断取消状态，再决定是否继续执行后续逻辑：

Sub MainMacro()
    Dim Lead_time As Long
    With New Days_lead_time
        .Show
        ' 检查是否触发取消，若是则直接终止宏
        If .IsCancelled Then
            Unload . ' 卸载表单释放资源
            Exit Sub
        End If
        Lead_time = .Lead_time
    End With
    MsgBox "选择的提前天数：" & Lead_time
    ' 后续宏业务代码写在这里...
End Sub

关键说明 #

• 用IsCancelled公共变量传递状态，避免卸载表单导致变量丢失；
• UserForm_QueryClose事件统一处理右上角关闭操作，确保取消按钮和叉号的行为一致；
• 主宏通过判断取消状态，直接终止后续代码执行，达到预期效果。

内容的提问来源于stack exchange，提问作者Doublus