Функция подсчета ячеек в диапазоне, если она определенного цвета и в ней есть определенный текст

Public Function СЧЁТЗАЛИВКА(ДИАПАЗОН As Range, ЯЧЕЙКА) As Long
    Dim S As Double
    Dim rCell As Range
    Dim ColCell As Long
 
    ColCell = ЯЧЕЙКА.Interior.Color
    S = 0
 
    For Each rCell In ДИАПАЗОН
        If rCell.Interior.Color = ColCell Then
            S = S + 1
        End If
    Next
 
    СЧЁТЗАЛИВКА = S
End Function

If rCell.Interior.Color = ColCell and (rCell.Value="Б" or rCell.Value="О") Then

If rCell.DisplayFormat.Interior.Color = ColCell and (rCell.Value="Б" or rCell.Value="О") Then

Public Function СчетДеньНедели(ДИАПАЗОН As Range, TipDnyaZadanniy) As Long
    ' TipDnyaZadanniy 1 - будни, 6 - суббота, 7 воскресение
    Application.Volatile True
    Dim S As Double
    Dim rCell As Range
    Dim ColCell As Long
    Dim TipDnyaTekuschiy%
    S = 0
    For Each rCell In ДИАПАЗОН
        Select Case rCell.Row
            Case 12, 18, 30, 36
                TipDnyaTekuschiy = Weekday(rCell.Parent.Cells(8, rCell.Column), vbMonday)
            Case 14, 20, 32, 38
                TipDnyaTekuschiy = Weekday(rCell.Parent.Cells(9, rCell.Column), vbMonday)
            Case Else
        End Select
        If TipDnyaTekuschiy < 6 Then TipDnyaTekuschiy = 1
        If TipDnyaTekuschiy = TipDnyaZadanniy And (rCell.Value = "Б" Or rCell.Value = "О") Then
            S = S + 1
        End If
    Next
    СчетДеньНедели = S
End Function