如何在Excel中逐行计算有色单元格

Question

我有一个在Excel中的报告，其中有三行，并有条件格式以对数据进行涂抹。我本质上希望第四列输出1，如果该行中的至少两个单元格为绿色，则为0。示例：该行中的任何两个单元均可为绿色

所以我希望一个公式在E4中输出1，但对于E列的其余部分。这是可能的吗？

Answer 1

您必须创建这样的VBA函数：

Function ColorComparer(rColor1 As Range, rColor2 As Range, rColor3 As Range) As String

Dim vResult As String
Dim greenCounter As Integer

iCol1 = rColor1.Interior.Color
iCol2 = rColor2.Interior.Color
iCol3 = rColor3.Interior.Color
green = RGB(0, 255, 0)
greenCounter = 0


If iCol1 = green Then
    greenCounter = greenCounter + 1
End If

If iCol2 = green Then
    greenCounter = greenCounter + 1
End If

If iCol3 = green Then
    greenCounter = greenCounter + 1
End If

If greenCounter >= 2 Then
    vResult = 1
Else
    vResult = 0
End If

ColorComparer = vResult

End Function

绿色已将RGB设置为RGB（0、255、0），但您可以更改为想要使用的任何颜色

使用方式：

最好的问候。

Answer 2

我可以想到两个选项：

1. 创建一个与条件格式一致的公式 - 以前的贡献者已经提出了这一点。但是，这实际上没有检查单元颜色。

2. 使用VBA脚本。这可以评估单元颜色，并且可以在事件驱动的情况下进行设置，因此它会在新的工作表条目上自动运行。