Подсчет количества условно отформатированных ячеек с использованием макроса

Question

Я пытаюсь подсчитать количество условно отформатированных ячеек в строке.

Однако эта функция возвращает общее количество ячеек, даже тех, которые не соответствуют критериям условного форматирования:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1    
    If rng.FormatConditions(1).Interior.Color = pRange2.FormatConditions(1).Interior.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

Есть идеи?

Это школьный тест, в котором необходимо вычислить количество правильных ответов.

Answer 1

Пропустить попытку подсчитать условное форматирование и сосчитать условие:

=SUMPRODUCT(--($E$3:$G$3=$E5:$G5))