根据活动行值突出显示单元格

Question

我一直在尝试让我的 sheet 根据活动单元格行值突出显示第 2 行中的值，在这种情况下，我正在比较 个单元格 "B2:F2" 与 活动行 (B3:F3) 在这种情况下。这是 sheet 在 select 激活 cell/row 之前的样子；

并且一旦我 select 一个活动单元格（在这种情况下，我 selected cell "A3"）并且想比较"B3:F3" 单元格值 和 静态行 (B2:F2) 并突出显示 静态行中的所有单元格(B2:F2) 与活动行值不同。以下屏幕截图是 sheet 在我 select 单元格 "A3" 作为活动单元格并具有 code/conditional 格式组合后的外观将其与静态行值进行比较；

到目前为止，我有这段代码突出显示了我正在 selecting 的活动单元格，这是我的起点：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static xLastRng As Range
On Error Resume Next
Target.Interior.ColorIndex = 6
xLastRng.Interior.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

如果有什么不明白的地方和您的建议，请告诉我，谢谢！

Answer 1

可能如下 - 基本上将您的固定范围 B2:F2 与当前行中的相应范围进行比较：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("B2:F2").Interior.Color = xlNone 'clear previous coloring

    Dim rng As Range
    For Each rng In Me.Range("B2:F2")
        If IsNumeric(rng.Value) And IsNumeric(Me.Cells(Target.Row, rng.Column)) Then
            If rng.Value <> Me.Cells(Target.Row, rng.Column).Value Then
                rng.Interior.Color = vbYellow
            End If
        End If
    Next
End Sub

根据活动行值突出显示单元格

Highlighting Cells based on Active row Values

excel

vba

highlight

conditional-statements