根据颜色比较两个单元格

Question

我想根据它们的颜色来比较两个细胞。

我创建了以下功能。如果单元格中的两种颜色匹配，那么它应该写入Same并为单元格中的单元格green着色，否则为“更改”并将其着色为red。

但是，我目前正在接受：

在#Value单元格中，我的公式为=ColorComparer(H4;C4)

下面你可以找到我创建的vba函数：

Function ColorComparer(rColor As Range, rRange As Range)

Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex

If rCell.Interior.ColorIndex = lCol Then
    vResult = "Same"
    vResult.Interior.ColorIndex = RGB(0,255,0)
Else
    vResult = "Change"
    vResult.Interior.ColorIndex = RGB(255,0,0)
End If

ColorComparer = vResult
End Function

我真的很满意你的回复！

祝你好运！