Ini adalah kesempatan ke-3 kalinya saya membuat artikel tutorial excel berdasarkan pertanyaan pengunjung pada kolom komentar blog rumus-excel.com maupun fan pagenya. Pertanyaan sudara Heru pada halaman Fan Page adalah bagaimana cara menghitung data yang memiliki fill color tertentu.
Untuk menghitung dan menjumlah data yang memiliki warna cell tertentu maka kita harus menggunakan VBA excel. Berikut ini cara kerja dan rumusnya :
- Tekan tombol Alt+F11 secara bersamaan pada file excel yang dimaksud
- Pada jendela Microsoft Visual Basic for Applications, pilih menu Insert >> Module
- Pastekan code berikut :
'rumus =FWarna(Cell_warna,Range,[0,1])
'0=False berfungsi untuk menghitung cell yang berwarna tertentu
'1=True berfungsi untung menjumlahkan semua angka yang tertulis didalam cell berwarna tertentu
Function FWarna(rWarna As Range, rWilayah As Range, Optional SUM As Boolean)
Dim rSel As Range
Dim lKolom As Long
Dim Hasil
lKolom = rWarna.Interior.ColorIndex
If SUM = True Then
For Each rSel In rWilayah
If rSel.Interior.ColorIndex = lKolom Then
Hasil = WorksheetFunction.SUM(rSel, Hasil)
End If
Next rSel
Else
For Each rSel In rWilayah
If rSel.Interior.ColorIndex = lKolom Then
Hasil = 1 + Hasil
End If
Next rSel
End If
FWarna = Hasil
End Function
- Kembali ke file excel yang dimaksud. Misalkan range yang akan kita hitung dan jumlahkan angkanya berada pada cell A1:C7. Kemudaian pada cell A11 kebawah diberi warna sesuai warna pada cel A1:C7
- Rumus dasar untuk menjumlah (SUM) adalah
=FWarna(cell_warna,Range_data,1)
Rumus dasar untuk menghitung (count) adalah
=FWarna(cell_warna,Range_data,0)
- Misalkan pada cell A11 kebawah kita beri warna yang sama dengan warna-warna yang berada di range A1:C7.
- Pada kolom B11 digunakan untuk menampilkan jumlah (SUM) ketik rumus =FWarna(A11,$A1:C7,1)
- Sementara pada cell C11 digunakan untuk menghitung data (COUNT) maka ketik rumus =FWarna(A11,$A1:C7,0)
- Selesai....