基于多个标准的着色单元格答案

【问题标题】：Coloring Cells based on multiple criteria基于多个标准的着色单元格
【发布时间】：2016-02-26 03:22:42
【问题描述】：

我有一个电子表格，我们会不断地向其中添加数据。此数据从报告中导入并添加到电子表格的末尾。我已经有一个宏来删除重复项。还有另一个宏将根据其中一个单元格内容突出显示特定行，然后复制该行并将其粘贴到工作簿中的另一个工作表中。其中一列需要一个数字，因为它是数据。然而，有时这个号码不可用，我们在该单元格中输入“RCA Pending”。

我需要做的是将该单元格以红色突出显示。但是，一旦将数字输入到单元格中，我需要将单元格颜色更改回“无填充”，除非该行从之前运行的宏中突出显示。

Expected result sample

如果这样更容易的话，我不反对组合这些宏。

这是上面列出的第一个宏：

' This part highlights all rows that are Disputed  
' Keyboard Shortcut: CTRL+SHIFT+L

    Dim row As Range
    For Each row In ActiveSheet.UsedRange.Rows
        If row.Cells(1, "F").Value = "After Dispute For SBU" Then
            row.Interior.ColorIndex = 6
        Else
            row.Interior.ColorIndex = xlNone
        End If
    Next row

' This part clears the Disputed worksheet and copies all disputed rows to the sheet

With ThisWorkbook.Worksheets("Disputed")
 Range(.Range("A2"), .UsedRange.Offset(1, 0)).EntireRow.Delete
 End With

Dim lr As Long, lr2 As Long, r As Long
lr = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).row
lr2 = Sheets("Disputed").Cells(Rows.Count, "A").End(xlUp).row
For r = lr To 2 Step -1
    If Range("F" & r).Value = "After Dispute For SBU" Then
        Rows(r).Copy Destination:=Sheets("Disputed").Range("A" & lr2 + 1)
        lr2 = Sheets("Disputed").Cells(Rows.Count, "A").End(xlUp).row
    End If

    Range("A2").Select
Next r
Range("C" & Rows.Count).End(xlUp).Offset(1).Select
End Sub

【问题讨论】：

你试过条件格式吗？
可以，但是需要满足的条件和变量太多了。
所以我将尝试更好地解释这一点，因为我无法添加带有着色示例的表格。我们将假设第 1 行到第 4 行的所有必需数据都已到位（此示例中没有标题，但工作簿中有标题）。在第 1 行中，单元格 F1 的值为“争议后”。该行应为黄色。在第 2 行中，所有单元格值都是数字（如预期的那样）。在第 3 行中，单元格 F3 的值为“争议后”并且单元格 K3 的值为“RCA Pending”。预期结果是该行将填充为黄色，但 K3 应填充为红色。K4 的值为“RCA Pending”，应为红色。
条件格式可以设置多个规则...
参见原始帖子中的示例（刚刚添加）。当将数字输入到单元格 K（行）中时，我还需要根据 F 列中的值将带有“RCA Pending”的单元格恢复为无填充或黄色。有意义吗？

标签： excel colors cell vba

【解决方案1】：

如何仅对数据使用条件格式。你会使用像

这样的公式

=$A2="RCA Pending"

假设数据从 A2 开始，相关列是 A。您需要选择所有行中的所有列，从 A2 开始，然后应用 CF

【讨论】：