지정된 영역에서 특정 색으로 채워진 셀 개수 구하기

Function Color_Count(rng_T As Range, rng_Target As Range)

    Dim rng_Temp As Range
    Dim color_Cnt As Integer
   

    For Each rng_Temp In rng_T
   
        If rng_Temp.Interior.ColorIndex = rng_Target.Interior.ColorIndex Then
            color_Cnt = color_Cnt + 1
        End If

    Next

    Color_Count = color_Cnt

End Function

ex. Color_Count(A1:C10, A11)