Excel VBA选区切换功能失效排查：点击单元格添加/清除SZ

原代码的核心问题 #

1. 逻辑完全矛盾
   原代码要求单元格Not HasConditionalFormatting（无格式条件），同时又判断单元格是黄色/绿色（这两种是条件格式产生的颜色），两个条件不可能同时满足，导致核心切换逻辑永远不会执行。

2. 颜色读取方式错误
   IsCellColored函数用Interior.Color只能获取单元格本身设置的填充色，而条件格式产生的动态颜色需要用DisplayFormat.Interior.Color才能读取。

3. 格式条件判断逻辑混乱
   HasConditionalFormatting函数的判断逻辑完全偏离需求，用户需要的是基于颜色而非格式条件的存在性来判断操作权限。

4. 未处理多单元格选中场景
   当选中多个单元格时，直接操作区域Value会报错，必须遍历每个单元格单独处理。

5. 条件判断顺序颠倒
   原代码把「允许操作的黄/绿单元格」嵌套在「无格式条件」的判断里，完全违背需求逻辑。

修正后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetCell As Range
    Dim checkRanges As Variant
    Dim currentRange As Range
    Dim allowedColors As Variant
    Dim blockedColors As Variant
    
    ' 定义需要监控的目标区域
    checkRanges = Array(Range("B4:T13"), Range("B17:T26"))
    ' 允许操作的颜色（黄、绿）
    allowedColors = Array(RGB(255, 230, 153), RGB(198, 224, 180))
    ' 禁止操作的颜色（红、灰、蓝）
    blockedColors = Array(RGB(252, 228, 214), RGB(189, 215, 238), RGB(174, 170, 170))
    
    ' 遍历每个监控区域
    For Each currentRange In checkRanges
        ' 只处理选中区域与监控区域的交集
        For Each targetCell In Intersect(Target, currentRange)
            If targetCell Is Nothing Then Exit For
            
            ' 先排除禁止操作的颜色
            If Not IsInColorList(targetCell, blockedColors) Then
                ' 处理允许操作的颜色，或无格式条件的单元格
                If IsInColorList(targetCell, allowedColors) Or targetCell.FormatConditions.Count = 0 Then
                    ' 执行SZ切换逻辑
                    If targetCell.Value = "SZ" Then
                        targetCell.ClearContents
                    Else
                        targetCell.Value = "SZ"
                    End If
                End If
            End If
        Next targetCell
    Next currentRange
End Sub

' 判断单元格显示颜色是否在指定列表中（支持条件格式颜色）
Function IsInColorList(rng As Range, colorList As Variant) As Boolean
    Dim cellDisplayColor As Long
    Dim color As Variant
    
    ' 获取单元格实际显示的颜色（包含条件格式产生的颜色）
    cellDisplayColor = rng.DisplayFormat.Interior.Color
    
    ' 遍历颜色列表匹配
    For Each color In colorList
        If cellDisplayColor = color Then
            IsInColorList = True
            Exit Function
        End If
    Next color
    
    IsInColorList = False
End Function

关键修改说明 #

• 逻辑重构：先排除禁止颜色，再处理允许颜色和无格式条件的单元格，完全匹配需求。
• 颜色读取修正：用DisplayFormat.Interior.Color获取单元格实际显示的颜色，兼容条件格式和手动填充色。
• 多单元格处理：遍历每个选中的单元格，避免批量操作报错。
• 代码简化：用IsInColorList统一处理颜色匹配，去掉冗余的格式条件判断函数，直接用FormatConditions.Count判断是否无格式条件。

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