Sum by Color

Menghitung Jumlah cell yang berwarna

Anda pernah mencoba menghitung sel dengan warna di Excel, Anda mungkin telah memperhatikan bahwa Excel tidak mengandung fungsi untuk mencapai ini.
Karena fungsi seperti COUNTIF tidak dapat dihitung berdasarkan warna sel, kita harus membuat fungsi kustom kita sendiri (juga dikenal sebagai Fungsi yang Ditetapkan Pengguna atau UDF) untuk menyelesaikan pekerjaan.
Fungsi Kustom untuk Menghitung Sel dengan Warna
buka Visual Basic Editor dengan menekan Alt + F11 atau dengan mengklik tombol Visual Basic
Buatlah Sebuah Modul dan pastekan Kode berikut

PASTEKAN PADA MODUL
'----------------------------
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

Kemudian buatlah table seperti gambar diatas dengan  warna cell yang berbeda beda
Kemudian buatlah rumus  di g4

=colorfunction(F4,$B$4:$D$11,FALSE)