在VBA Worksheet_Change事件中使用Select Case失效的问题排查

你的代码无法触发"Working"提示框，核心问题出在**Select Case ActiveCell.Address**这一行：

• ActiveCell.Address返回的是带美元符号的绝对地址格式（比如$G$1），但你Case分支里写的是"G1"，格式完全不匹配，导致永远进不了任何Case分支，直接执行最后的MsgBox "Not Working."。
• 更关键的是，Change事件中应该用Target（实际被修改的单元格）来判断，而非ActiveCell——ActiveCell可能和修改的单元格不一致（比如修改G1后按回车，ActiveCell会跳到G2）。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 关闭事件触发，防止代码修改单元格时循环触发Change事件
    Application.EnableEvents = False
    
    ' 基于实际修改的单元格Target判断分支
    Select Case Target.Address
        Case "$G$1"
            Dim KeyEffects As Range, EffectCell As Range
            Set KeyEffects = Me.Range("Q32:BS32")
            
            ' 默认取消所有列隐藏
            KeyEffects.EntireColumn.Hidden = False
            
            If Me.Range("G1").Value <> "All" Then
                For Each EffectCell In KeyEffects
                    ' 若颜色是手动设置，用Interior.ColorIndex更稳定；若是条件格式，换回DisplayFormat
                    If EffectCell.Interior.ColorIndex <> Me.Range("G1").Interior.ColorIndex Then
                        EffectCell.EntireColumn.Hidden = True
                    End If
                Next
            End If
            MsgBox "Working for Effects."
            
        Case "$D$1"
            Dim KeyCauses As Range, CauseCell As Range
            Set KeyCauses = Me.Range("A34:A105")
            
            ' 默认取消所有行隐藏
            KeyCauses.EntireRow.Hidden = False
            
            If Me.Range("D1").Value <> "All" Then
                For Each CauseCell In KeyCauses
                    If CauseCell.Interior.ColorIndex <> Me.Range("D1").Interior.ColorIndex Then
                        CauseCell.EntireRow.Hidden = True
                    End If
                Next
            End If
            MsgBox "Working for Causes."
    End Select
    
    ' 恢复事件触发，否则后续Change事件会失效
    Application.EnableEvents = True
End Sub

关键修改说明 #

1. 替换判断对象：用Target.Address替代ActiveCell.Address，同时Case分支使用带$的绝对地址格式，确保匹配。
2. 添加事件开关：Application.EnableEvents = False/True避免代码修改单元格（隐藏行列）时重复触发Change事件。
3. 移除冗余判断：Case分支内的If Intersect(Target, Me.Range("G1")) Is Nothing Then Exit Sub完全多余，因为Select Case已经确认了Target是目标单元格。
4. 简化逻辑："All"的情况和默认取消隐藏重复，直接去掉冗余的ElseIf分支。
5. 优化颜色判断：如果单元格颜色是手动设置的，用Interior.ColorIndex比DisplayFormat.Interior.ColorIndex更稳定；如果是条件格式生成的颜色，再改回DisplayFormat。

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