UDF SUM Berdasarkan Warna

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

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

Fungsi yang bisa membaca warna baru macro baik itu Macro 4 ataupun VBA. Untuk versi Macro4 sudah saya bahas disini : Hitung Warna tanpa VBA

Kali ini saya akan membahas versi VBA.

Misalkan contoh kasusnya seperti dibawah ini:

Untuk membuat Fungsi HitungWarna langkah-langkahnya sebagai berikut

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

Function HitungWarna(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
        HitungWarna = HitungWarna + IsiCell.Value
    End If
Next
End Function

Hasilnya akan terlihat seperti ini

Setelah selesai Visual Besic Editor bisa ditutup dan rumus HitungWarna sudah bisa digunakan.

Sintak rumusnya adalah

=HitungWarna(RangeSum, RangeWarna)

Contohnya seperti dibawah ini:

Jika kamu membutuhkan tutorial dalam bentuk video, silahkan tonton disini ya