Подсчет клеток по цвету с COUNTIF

Question

У меня есть следующий макрос CountCellsByColor (ORIGNAL BELOW), однако я хочу изменить его так, чтобы он подсчитывал ячейки по цвету и конкретному тексту ячейки.

например: В ассортименте имеется 5 разных наименований, все цвет которых отличается от другого. Я хочу, чтобы макрос учитывал только ячейки с тем же именем и цветом, что и опорная ячейка. то есть количество "Фред" «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 

Answer 1

Это должно быть достаточно, чтобы изменить

If indRefColor = cellCurrent.Interior.Color Then 

в

If (indRefColor = cellCurrent.Interior.Color) AND (cellRefColor.cells(1,1).value=cellCurrent.value) Then 

Answer 2

надеюсь, что вы ищете это.

Function CountCellsByColor(rData As Range, cellRefColor As Range, searchtext As String) 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 And cellCurrent.Value = searchtext Then 
      cntRes = cntRes + 1 
     End If 
    Next cellCurrent 
    CountCellsByColor = cntRes 
End Function 

Работа Sample