UDF COUNT Berdasarkan Warna

Pada materi kali ini, saya buatkan User defined Function (UDF) untuk melakukan COUNT Cell berdasarkan warnanya.

Kenapa harus dibuat UDF? karena sampai saat ini belum ada rumus bawaan Excel yang bisa membaca Warna.

Sebelumnya saya sudah membahas bagaimana membuat UDF SUM berdasarkan warna. Kali ini kita buat versi COUNT nya. Untuk versi COUNT ini harusnya ini lebih mudah ya.

Misalkan contoh kasusnya seperti dibawah ini:

Untuk membuat rumus COUNT berdasarkan warna, caranya sama seperti membuat UDF pada umumnya.

'-----------------------------------------
' Sctipt VBA    : Count Warna
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------

Function CountWarna(ByVal SumRange As Range, ByVal Rng As Range) As Double
Dim IsiCell As Range

For Each IsiCell In SumRange
    If IsiCell.Interior.ColorIndex = Rng.Interior.ColorIndex Then
        CountWarna = CountWarna + 1
    End If
Next
End Function

Tutup Visual Basic Editor dan rumus CountWarna sudah berhasil dibuat. Untuk penggunaan rumus ini, bisa menggunakan sintak seperti dibawah ini

=CountWarna(RangeWarna,Warna)

Contoh penerapan pada kasus diatas, maka rumusnya bisa dibuat seperti ini :