Saya anjurkan belu buku karangan Hendrik .... ( Pak Henrik , maaf saya lupa
judulnya )
To: belajar-excel@yahoogroups.com
From: omniv...@yahoo.com
Date: Wed, 7 Mar 2012 00:35:41 -0800
Subject: Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba noob)
pak bagaimana cara menjalankan source kode itu ke excel?, trima kasih
________________________________
Dari: jkssxls Sudarsono <jkss...@hotmail.com>
Dikirim: Rabu, 7 Maret 2012 14:10
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 Sub
Sub Button1_Click()
Call sumcolor(Range("B3:F7"))
End Sub
