VBA Worksheet_Change事件仅生效一次问题求助

核心问题分析 #

1. 未限定触发事件的目标单元格：原代码会响应工作表所有单元格的修改，而非仅目标下拉框单元格；且直接使用interior_lighting未明确引用单元格对象，可能导致值获取异常。
2. 未处理事件禁用风险：若代码执行中出现错误，可能导致Application.EnableEvents被意外设置为False，后续所有工作表事件都无法触发，必须重启Excel才能恢复。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 指定触发事件的目标单元格（假设interior_lighting是定义的单元格名称）
    Dim triggerCell As Range
    Set triggerCell = Me.Range("interior_lighting")
    
    ' 仅当修改的是目标单元格时执行逻辑
    If Not Intersect(Target, triggerCell) Is Nothing Then
        ' 禁用事件防止循环触发（修改工作表可见性可能间接触发其他事件）
        Application.EnableEvents = False
        
        On Error GoTo ErrorHandler ' 错误处理，确保事件能恢复启用
        
        Select Case UCase(triggerCell.Value)
            Case "YES"
                Sheets("1- Interior Lighting & NLC").Visible = True
                Sheets("1.1 High Perf. Guidelines").Visible = True
                Sheets("1A- Space by Space").Visible = True
            Case "NO"
                Sheets("1- Interior Lighting & NLC").Visible = False
                Sheets("1.1 High Perf. Guidelines").Visible = False
                Sheets("1A- Space by Space").Visible = False
        End Select
        
    End If

ErrorHandler:
    ' 无论是否出错，都恢复事件启用状态
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键修改说明 #

• 限定触发范围：通过Intersect(Target, triggerCell)判断是否修改了目标单元格，避免无关操作触发代码。
• 明确引用单元格：用Me.Range("interior_lighting")明确获取目标单元格的值，防止变量引用歧义。
• 事件控制与错误处理：执行逻辑前禁用事件，防止循环触发；通过错误处理确保无论代码是否出错，都能恢复事件启用状态，避免后续事件失效。
• 大小写兼容：用UCase()统一转换为大写判断，避免因输入大小写不一致导致逻辑失效。

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