Sub sumcolor(daerah As Range)
Dim Selrow As Range
Dim sel As Range
Dim SelAkhir As Range
Dim SumKuning, SumBiru, SumHijau As Double
For Each Selrow In daerah.Rows
SumKuning = 0
SumBiru = 0
SumHijau = 0
For Each sel In Selrow.Cells
Select Case sel.Interior.Color
Case 65535 ' Kuning
SumKuning = SumKuning + sel.Value
Case 12611584 ' Biru
Nilai = sel.Value
If Nilai > 8 Then
SumKuning = SumKuning + Nilai - 8
Nilai = 8
End If
SumBiru = SumBiru + Nilai
Case 5287936 'Hijau
SumHijau = SumHijau + sel.Value
End Select
' untuk menyimpan posisi sel terakhir tiap baris
Set SelAkhir = sel
Next
' isi julah warna
SelAkhir.Offset(0, 1) = SumKuning
SelAkhir.Offset(0, 2) = SumBiru
SelAkhir.Offset(0, 3) = SumHijau
Next
End SubSub Button1_Click()
Call sumcolor(Range("B3:F7"))
End Sub
To: [email protected]
From: [email protected]
Date: Mon, 5 Mar 2012 21:09:45 -0800
Subject: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba noob)
saya ingin menjumlah nilai cell yang berwarna kuning, biru, hijau.
1. Jumlah nilai sel kuning = (nilai cell yang berwarna kuning) + ((nilai cell
biru > 8)-(8))
2. Jumlaj nilai sel biru = total nilai cell biru, jika ada cell biru yang
nilainya > 8 maka nilainya dianggap 8
3. Jumlah nilai sel hijau = Jumlah nilai cell hijau
terima kasih
