Bls: [belajar-excel] jumlah nilai cell warna dengan kriteria (vba noob)

[KSM Absolute - Udin]

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