RUMUS MENGHITUNG JUMLAH WARNA PADA CELL EXCEL

Alhamdulillah, Setelah sekian lamanya Admin bisa membuat artikel lagi di blog ini.

Oiya, sebelum kami lanjutkan, Admin ingin PROMOSI file-file belajar Microsoft Excel yang Admin kumpulkan dari tahun 2013 dan Software Lainnya sebagai berikut :

Kurang Lebih 1500 File Excel (Rumus, VBA, XML)
Aktifkan Macro Excel Dengan 1 Klik
Bobol Sheet
Bobol Password VBA Biasa 1 Klik 32/64bit
Bobol Password VBA Unviewlable Excel 1 Klik 32/64bit
Software UI Editor dan RibbonX
Pembuatan Aplikasi Berbasis Excel
Jasa Bobol Password VBA Excel
Software WIN 7 dan WIN 10
Office 2007 s/d 2019
Nitro Pro (PDF)
Uninstal Software Sampai Keakarnya (sampai bersih) jadi tidak ada file sampah/bekas
Kurang Lebih 80 Aplikasi Berbasis Excel
150 Icon Menu Ribbon Excel

Rumus Excel Menghitung Jumlah Warna Pada Cell

Untuk menghitung jumlah warna pada cells excel, kita memerlukan UDF (User-Defined Function) untuk membuat fungsi sendiri yang bisa dipanggil menggunakan rumus.

Langkah-langkah :

Buka lembar kerja excel
Masuk ke jendela VBA
Buatlah 1 buah module
copy-paste VBA dibawah ini kedalam module

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