如何通过checkbox勾选条件控制点击按钮时指定VBA代码的执行

实现方案（Excel VBA 环境） #

步骤1：关联复选框状态 #

• 切换到「开发工具」选项卡，点击「插入」，选择「窗体控件」分类下的复选框，在表格合适位置绘制控件，右键可修改显示文本（比如改为「允许复制内容」）
• 右键点击复选框，选择「设置控件格式」，切换到「控制」标签，在「单元格链接」处选择一个空白单元格（比如I1），点击确定保存。勾选复选框时该单元格会自动变为TRUE，未勾选则为FALSE，后续判断会用到这个值。
• 如果你插入的是ActiveX控件类的复选框，不需要绑定单元格，记住复选框的控件名称即可（默认名为CheckBox1，可在开发工具的「属性」面板修改）。

步骤2：修改按钮绑定的VBA代码 #

把你原有按钮绑定的VBA代码替换为以下内容即可，如果你用的是窗体控件复选框，Range("I1")要和上一步选择的链接单元格保持一致：

Sub 你的按钮绑定的过程名()
    ' 仅复选框勾选时执行复制逻辑
    If Range("I1").Value = True Then
        Worksheets("Ticket Based").Select
        Range("A1:G2, Table_0").Select
        Selection.Copy
    End If
End Sub

如果你用的是ActiveX控件复选框，把判断条件替换为If CheckBox1.Value = True Then即可，CheckBox1替换为你的复选框实际控件名。
优化提示：原有代码中反复使用Select会降低执行效率，你可以用下面的精简版本实现完全相同的效果：

Sub 你的按钮绑定的过程名()
    If Range("I1").Value = True Then
        Worksheets("Ticket Based").Range("A1:G2, Table_0").Copy
    End If
End Sub

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