能否合并两段Excel VBA代码，实现复选框+单元格选择联动隐藏列？

原代码存在的问题 #

原Worksheet_Change事件里的逻辑有漏洞：当D11值为"C"时，第一个If Target.Value = "A" Or Target.Value = "C"已经满足条件，后续的ElseIf Target.Value = "C"永远不会执行，导致“取消隐藏BL:BY列”的逻辑失效。

合并后的解决方案 #

我们可以把列显示隐藏的逻辑抽成一个通用子过程，让Worksheet_Change和CheckBox1_Click两个事件都调用这个过程，实现D11值与CheckBox状态的联动控制。

完整代码

' 通用子过程：统一控制列的显示隐藏
Private Sub UpdateColumnVisibility()
    Dim ws As Worksheet
    Set ws = Sheets("Worksheet")
    Dim d11Value As String
    d11Value = UCase(ws.Range("D11").Value) ' 统一转大写，避免大小写输入差异
    Dim checkBoxState As Boolean
    checkBoxState = Me.CheckBox1.Value
    
    ' 控制BL:BY列的显示状态
    Select Case d11Value
        Case "A"
            ws.Columns("BL:BY").Hidden = True
        Case "C"
            ws.Columns("BL:BY").Hidden = False
        Case Else
            ' 其他值时默认隐藏BL:BY，可根据需求修改
            ws.Columns("BL:BY").Hidden = True
    End Select
    
    ' 控制BZ:CH列的显示状态：仅当D11为"C"且CheckBox选中时显示，否则隐藏
    ws.Columns("BZ:CH").Hidden = Not (d11Value = "C" And checkBoxState)
End Sub

' D11单元格值变化时触发更新
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("D11")) Is Nothing Then
        UpdateColumnVisibility
    End If
End Sub

' 点击CheckBox1时触发更新
Private Sub CheckBox1_Click()
    UpdateColumnVisibility
End Sub

逻辑说明

• 当D11为"A"：隐藏BL:BY列，BZ:CH列无论CheckBox状态都隐藏
• 当D11为"C"：显示BL:BY列；此时BZ:CH列的状态由CheckBox控制——选中则显示，未选中则隐藏
• D11为其他值：默认隐藏BL:BY列，BZ:CH列也隐藏（可修改Case Else里的逻辑调整）
• 用Intersect判断目标单元格是否包含D11，比直接匹配单元格地址更灵活（比如批量修改时也能触发）
• 统一将D11的值转成大写，避免因输入小写"a"/"c"导致逻辑失效

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