Seperti halnya pada pembahasan sebelumnya yaitu cara Menghitung Jumlah Sel Dengan Kriteria Warna, maka kali ini kita akan belajar cara Menjumlahkan Angka Dengan Kriteria Warna. Pada rumus dasar Excel terdapat fungsi penjumlahan diantaranya SUM yang berfungsi untuk menjumlahkan angka pada beberapa sel, SUMIF yang berfungsi untuk menjumlahkan angka pada beberapa sel dengan satu kriteria tertentu, SUMIFS yang berfungsi untuk menjumlahkan angka pada beberapa sel dengan kriteria lebih dari satu.
Bagaimana kalau kita hanya ingin menjumlahkan angka dalam suatu range data tetapi hanya warna tertentu yang terjumlahkan?
Lihat contoh tabel berikut:
Pada tabel di atas yang terhitung hanya angka dalam sel dengan background warna biru, karena kriteria yang dipakai adalah warna biru. Pada range C3:C12 ada 4 sel dengan background warna biru, jadi yang terhitung adalah 7 + 5 + 8 + 6 = 26.
Untuk melakukan perhitungan tersebut dibutuhkan kode VBA yang nantinya digunakan sebagai function.
Cara menambahkan kode VBA:
- Aktifkan jendela Visual Basic Editor (tekan Alt+F11)
- Klik menu Insert > Module
- Masukkan kode berikut
Function SUMCOLOR(Data As Range, Warna As Range) As Double
Dim Wrn As Range, Jml As Double, ColorIndex As Integer
ColorIndex = Warna.Cells(1, 1).Interior.ColorIndex
Jml = 0
On Error Resume Next
For Each Wrn In Data.Cells
If Wrn.Interior.ColorIndex = ColorIndex Then
Jml = Jml + Wrn.Value
End If
Next Wrn
On Error GoTo 0
Set Wrn = Nothing
SUMCOLOR = Jml
End Function
Dim Wrn As Range, Jml As Double, ColorIndex As Integer
ColorIndex = Warna.Cells(1, 1).Interior.ColorIndex
Jml = 0
On Error Resume Next
For Each Wrn In Data.Cells
If Wrn.Interior.ColorIndex = ColorIndex Then
Jml = Jml + Wrn.Value
End If
Next Wrn
On Error GoTo 0
Set Wrn = Nothing
SUMCOLOR = Jml
End Function
Cara Menggunakan Fungsi:
Format penulisannya adalah
=SUMCOLOR(range_data;cell_warna)
Contoh:
=SUMCOLOR(C3:C12;C15)
Range C3:C12 adalah kumpulan sel yang ingin dijumlahkan
Range C15 adalah cell dengan warna tertentu yang akan digunakan sebagai acuan penjumlahan
SUmber : http://trikmicrosoftexcel.blogspot.co.id/2013/12/menjumlahkan-angka-dengan-kriteria-warna.html
0 komentar:
Posting Komentar