使用COUNTIF按颜色计数单元格(Count Cells By Colour with COUNTIF)

 我有以下宏CountCellsByColor（ORIGNAL BELOW）但是我想修改它，以便按颜色和单元格的特定文本计算单元格。 
 
 例如：该范围有5个不同的名称，所有颜色都有不同的颜色。 我希望宏只计算与参考单元格具有相同名称和颜色的单元格。 即“Fred”'yellow'cells的数量 
 
 以下原始公式： 
 
Function CountCellsByColor(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).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent

    CountCellsByColor = cntRes
End Function

I have the following macro CountCellsByColor (ORIGNAL BELOW) however I want to amend it so that it counts cells by color AND the specific text of the cell.
 
eg: The range has 5 different names all colored a different colour. I want the macro to only count the cells with the same name and color as the reference cell. ie Number of "Fred" 'yellow'cells
 
ORIGINAL FORMULA BELOW:
 
Function CountCellsByColor(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).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent

    CountCellsByColor = cntRes
End Function

原文：https://stackoverflow.com/questions/38966147