Excel VBA复选框与下拉框触发事件无法同时生效问题求助

核心原因 #

你遇到的控件互斥无响应问题是VBA事件机制的典型故障：事件触发过程中如果出现未捕获的错误，或者操作递归触发了其他事件，会导致Application.EnableEvents参数被意外设置为False，后续所有工作表事件都会停止生效，这就是操作一个控件后另一个控件无反应的核心原因。

修复方案 #

你需要给两个事件过程添加错误处理和事件开关逻辑，避免事件被锁死，同时规范单元格引用，避免上下文引用错误：

1. 修复复选框点击事件代码 #

Sub CheckBox1_Click()
    ' 开启错误捕获
    On Error GoTo ErrorHandler
    ' 临时关闭事件，避免操作行的时候触发不必要的递归事件
    Application.EnableEvents = False
    
    If Me.Range("CheckBox1").Value = True Then
        Me.Range("ET").Rows.Hidden = True
    Else
        Me.Range("ET").Rows.Hidden = False
    End If
    
    If Me.Range("CheckBox1").Value = True And Me.Range("CheckBox1a").Value = True Then
        Me.Range("A50:A53").Rows.Hidden = False
        Me.Range("A61:A63").Rows.Hidden = False
    Else
        Me.Range("A50:A53").Rows.Hidden = True
        Me.Range("A61:A63").Rows.Hidden = True
    End If
    
ExitHandler:
    ' 无论代码是否出错，都强制恢复事件触发能力
    Application.EnableEvents = True
    Exit Sub
    
ErrorHandler:
    ' 如需排查错误可取消下一行注释：MsgBox Err.Description
    Resume ExitHandler
End Sub

2. 修复下拉框触发的Worksheet_Change事件代码 #

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    
    ' Section 4. Testing part 1
    If Target.Column = 53 And Target.Row = 208 Then
        If Target.Value = "Yes" Then
            Me.Range("Addition").Rows.Hidden = False
            Me.Range("A112:A113").Rows.Hidden = True
        ElseIf Target.Value = "No" Then
            Me.Range("A112:A113").Rows.Hidden = False
            Me.Range("Addition").Rows.Hidden = True
        End If
    End If
    
ExitHandler:
    Application.EnableEvents = True
    Exit Sub
    
ErrorHandler:
    Resume ExitHandler
End Sub

额外排查项 #

如果修改代码后仍然有问题，可以按以下步骤排查：

• 确认两个事件过程都存放在对应工作表的模块中，不要放在普通模块或者ThisWorkbook模块
• 按Alt+F11打开VBA编辑器，按Ctrl+G调出立即窗口，输入Application.EnableEvents = True回车后重新测试，可直接修复已经被锁死的事件状态
• 确认下拉框是单元格数据验证制作的下拉，如果是ActiveX控件类型的下拉框，需要改用对应控件的Change事件而非Worksheet_Change事件

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