Nampaknya hingga dengan dikala ini , penyelesaian terbaik untuk menjumlah banyaknya sel yang berwarna tertentu merupakan dengan menggunakan VBA.
Nah , dalam peluang ini je-xcel akan menyediakan kiat singkat bagaimana menghasilkan UDF (User Defined Function) untuk menjumlah banyaknya sel dalam suatu range yang memiliki warna tertentu.
Function hitungWarna(selAcuan As Range , rangeWarna As Range)
Dim sel As Range
For Each sel In rangeWarna
  If sel.Interior.Color = selAcuan.Interior.Color Then
    hitungWarna = hitungWarna + 1
  End If
Next
End Function
- Masuk dahulu ke dalam jendela VBA dengan cara tekan shorcut ALT+F11
- Dari jendela VBA , klik sajian Insert , dan klik module
- Maka lalu akan timbul module standar yang baru. Copy atau ketik code di atas ke dalam module:
- Save as file excel dengan type  file Excel macro enable workbook atau Excel binary workbook
- Sampai pada tahap ini , fungsi hitungWarna telah sanggup digunakan dalam lembar kerja excel.
=hitungwarna(D1 ,A1:B5)
Sesuai teladan gambar berikut:
Dari gambar tersebut , sanggup ditarik kesimpulan bahwa fungsi hitungWarna sukses menjumlah banyaknya warna yang serupa dengan sel D1 (kuning) pada range A1:B5. Â (dalam teladan ada 3 warna)
Demikian kiat singkat bagaimana menggunakan code VBA untuk menjumlah banyaknya sel dengan persyaratan warna.
Semoga bermanfaat.
Baca juga postingan menimba ilmu excel lainnya:
- Cara Cepat Membuat Hyperlink dengan VBA
- Macro untuk Setting Comment
- Macro untuk Melihat dan Menyembunyikan Comment dengan CepatÂ