Cara Menghitung Data Pada Kolom Cell Berwarna di Excel
Pada kesempatan kali ini saya membuat artikel tutorial excel yang membahas langkah-langkah Cara Menghitung dan Menjumlah Data Pada Kolom Cell Berwarna di excel berdasarkan pertanyaan pengunjung pada kolom komentar blog maupun fan pagenya.
Pertanyaan sobat pada halaman Fan Page adalah bagaimana cara menghitung data yang memiliki fill color (warna) tertentu.
Untuk menghitung dan menjumlah data yang memiliki kolom warna cell tertentu di excel maka kita harus menggunakan VBA excel. Berikut ini panduan cara kerja dan rumusnya :
1. Tekan tombol Alt+F11 secara bersamaan pada file excel yang dimaksud
2. Pada jendela Microsoft Visual Basic for Applications, pilih menu Insert >> Module
3. Pastekan code berikut :
view sourceprint?
'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
4. 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
5. Rumus dasar untuk menjumlah (SUM) adalah:
=FWarna(cell_warna,Range_data,1)
Rumus dasar untuk menghitung (count) adalah:
=FWarna(cell_warna,Range_data,0)
6. Misalkan pada cell A11 kebawah kita beri warna yang sama dengan warna-warna yang berada di range A1:C7.
7. Pada kolom B11 digunakan untuk menampilkan jumlah (SUM) ketik rumus =FWarna(A11,$A1:C7,1)
8. Sementara pada cell C11 digunakan untuk menghitung data (COUNT) maka ketik rumus =FWarna(A11,$A1:C7,0)
9. Selesai....
Untuk lebih jelasnya bisa ikuti langkah-langkahnya melalui video dibawah ini:
Lihat Video di youtube lewat link ini https://youtu.be/eg5CMK-tVYI
Demikian panduan dan cara untuk Menghitung Data Pada Kolon Cell Berwarna di EXCEL.