Menghitung Jumlah Sel Dengan Kriteria Warna

Menghitung sel sesuai warna
Bagaimana cara menghitung jumlah sel dengan kriteria warna tertentu? Pertanyaan ini kerap muncul di forum-forum diskusi mengenai excel.

Nampaknya sampai dengan saat ini, solusi terbaik untuk menghitung banyaknya sel yang berwarna tertentu adalah dengan menggunakan VBA.

Nah, dalam kesempatan ini je-xcel akan memberikan tips singkat bagaimana membuat UDF (User Defined Function) untuk menghitung banyaknya sel dalam sebuah range yang memiliki warna tertentu.

Code VBA untuk menghitung banyak sel dengan kriteria warna tergolong sangat singkat. Perhatikan contoh berikut:


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


UDF hitungWarna dapat digunakan dalam lembar kerja excel, setelah code diatas diketik atau dicopy pada module standar dalam jendela VBA, caranya sebagai berikut

  • Masuk dulu ke dalam jendela VBA dengan cara tekan shorcut ALT+F11
window vba excel













  • Dari jendela VBA, klik menu Insert , dan klik module
cara membuat module baru di vba excel

  • Maka kemudian akan muncul module standar yang baru. Copy atau ketik code di atas ke dalam module:

cara menulis code ke module vba

  • Save as file excel dengan type  file Excel macro enable workbook atau Excel binary workbook
  • Sampai pada tahap ini, fungsi hitungWarna sudah dapat digunakan dalam lembar kerja excel.


Penjelasan fungsi:

Fungsi hitungWarna dapat digunakan untuk menghitung banyaknya sel didalam rangeWarna yang memiliki warna sama dengan selAcuan.


Contohnya:

selAcuan   = D1

rangeWarna = A1:B5

Maka untuk menghitung banyaknya sel di range A1:B5 yang memiliki warna yang sama dengan sel D1 dapat dituliskan rumusnya sebagai berikut:

=hitungwarna(D1,A1:B5)

Sesuai contoh gambar berikut:

contoh rumus hitung sel sesuai warna

Dari gambar tersebut, bisa disimpulkan bahwa fungsi hitungWarna berhasil menghitung banyaknya warna yang sama dengan sel D1 (kuning) pada range A1:B5.  (dalam contoh ada 3 warna)


Demikian tips singkat bagaimana menggunakan code VBA untuk menghitung banyaknya sel dengan kriteria warna.

Semoga bermanfaat.


Baca juga artikel belajar excel lainnya:



Comments

Popular posts from this blog

Rumus Excel Tidak Berfungsi ? Inilah Penyebabnya!

Memahami Rumus VLOOKUP Dengan Studi Kasus

Mengatasi Error "Too Many Different Cell Formats"