根据其中一个单元格的内容为整行着色

Question

我正在尝试根据其中一栏给出的结果为电子表格着色。 我正在使用以下代码：

With newSheet.Range("B:B")
    .FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, Excel.XlFormatConditionOperator.xlEqual, "CORRECT")
    .FormatConditions(1).Interior.ColorIndex = 4

    .FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, Excel.XlFormatConditionOperator.xlEqual, "INCORRECT")
    .FormatConditions(2).Interior.ColorIndex = 3
End With

不幸的是，这只能使包含“正确”或“错误”的单元格着色。 我希望它扩展到它们所在的行（例如，如果B12包含“ CORRECT”，我希望A12：G12都被涂成绿色）。 建议我尝试使用表达式，因此尝试了以下代码：

.FormatConditions.Add(Type:=XlFormatConditionType.xlExpression, Formula1:="=B" & row & "= ""CORRECT"")")
.FormatConditions(1).Interior.ColorIndex = 4

但是，这将返回E_INVALIDARG异常。 我会很感激如何解决此问题的任何提示。 我还应该指出，遍历每一行并一次检查一行并不是真正的选择，因为有成千上万的行。

Answer 1

一旦删除了多余的右括号并使该列成为绝对值，您的公式就应该起作用

.FormatConditions.Add(Type:=XlFormatConditionType.xlExpression, Formula1:="=$B1= ""CORRECT""")
.FormatConditions(1).Interior.ColorIndex = 4

确保将公式$B1中的行设置为格式化范围的第一行（不需要循环）

Answer 2

您可以将其粘贴到有问题的工作表中：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    i = 1
    While Range("B" & i).Value2 <> ""
        If Range("B" & i).Value2 = "INCORRECT" Then
            Range("A" & i & ":G" & i).Interior.ColorIndex = 3
        ElseIf Range("B" & i).Value2 = "CORRECT" Then
            Range("A" & i & ":G" & i).Interior.ColorIndex = 4
        Else
            Range("A" & i & ":G" & i).Interior.ColorIndex = 0
        End If
        i = i + 1
    Wend
End Sub

假设您的数据从第1行开始（否则更改i的起始值）。

Answer 3

这是一个非常非常低科技的答案。 但是，在用颜色突出显示单元格之后，需要将其设置为（使用代码），然后复制列中的所有值，并对行本身的“格式”进行粘贴特殊操作。

问题在于它将是静态的，并且如果您的值随输入而变化，则行上的颜色将不可用。

但是，如果这是一次性的，那可能会起作用。

如果这样做，请确保要评估的列具有与要粘贴到的行中的数据兼容的单元格格式类型（例如：“常规”，“文本”等）。

笨拙，但是如果您绝对需要快速执行此操作，并且只需要执行一次，那么它可能会起作用。

编辑：可以肯定，凯文（Kevin）在下面的答案是一个更好的答案，因为它实际上是通过代码解决的，即使值在被评估的单元格中发生了变化，它也似乎可以工作。