Function СЧЁТЕСЛИМН_ЦВЕТ(диапазон_сумм As Range, _
                        диапазон_усл1 As Range, усл1 As Variant, _
                        диапазон_усл2 As Range, усл2 As Variant, _
                        образец_цв As Range)
Application.Calculation = xlCalculationAutomatic
Application.Volatile True
Sum = 0
For Each cl In диапазон_сумм
    If Cells(cl.Row, диапазон_усл1.Column) = усл1 And _
        Cells(cl.Row, диапазон_усл2.Column) = усл2 And _
        cl.Interior.ColorIndex = образец_цв.Interior.ColorIndex And _
        cl.Interior.Pattern = образец_цв.Interior.Pattern Then Sum = Sum + 1
Next
СЧЁТЕСЛИМН_ЦВЕТ = Sum
End Function