CountIF（按颜色）和按单元格值

Question

首先，我会说一些基本的编码知识，但我对VBA一无所知，它看起来与我所见和使用的其他语言有很大不同，以至于对我来说可能还是陌生的。

我在Excel中有一个值表，代表我进行的测试的影响（范围为1-12）。

为了让我直观地确定测试是否通过，我将单元格突出显示为绿色或红色。我曾希望我可以做一些布尔运算，并根据单元格的值及其背景颜色来组合计数。尽管我发现已经编写了一些用于按背景颜色计数的不同函数，但我仍无法弄清楚如何对其进行修改以包括单元格值的其他变量。

示例代码：

Function CountCellsByFontColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long

    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Font.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Font.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent

    CountCellsByFontColor = cntRes
End Function

如何修改上面的内容以包含一个附加变量以匹配单元格的值？