Excel toplan hücre rengine göre saydırma

Excel içerisinde renklendirilen hücrelerin sayımı ve daha kolay işlem yaptırabilmek için kullanılabilecek basit bir fonksiyondur.

Public Function ARKAPLAN_RENK_SAY(aralık1 As Range, aralık2 As Range) As Double
Application.Volatile
Dim renk As Range
For Each renk In aralık1
    If renk.Interior.Color = aralık2.Interior.Color Then
        RENKSAY = RENKSAY + 1
    End If
Next
End Function