CARA MENGHITUNG JUMLAH LAKI-LAKI DAN PEREMPUAN

Masih berbicara mengenai rumus Excel dan kali ini saya akan mencoba bagaimana cara menghitung jumlah laki-laki dan berapa jumlah perempuan pada data siswa. Untuk menghitung jumlah dengan syarat saya gunakan rumus COUNTIF.

Syntax:

=COUNTIF(Range,Kriteria)

Rumus countif sangat sederhana dimana kita akan mencari data dan menjumlahkannya dengan kriteria tertentu. Seperti yang akan kita bahas bahwa kita akan menjumlahkan data dengan kriteria laki-laki dan kriteria perempuan. Berikut contoh data siswa yang akan dijumlahkan

Di cell H1 kita akan mencari berapa jumlah laki-laki pada data siswa sebelah kiri? OK, kita coba gunakan rumus COUNTIF. Silakan tuliskan rumus dibawah ini pada cell H1

=COUNTIF(C1:C24,"L")

Berapa hasil dari penulisan rumus diatas? Hasil dari rumus =COUNTIF(C1:C24,"L") adalah 7. Untuk mengecek kebenaranya silakan hitung sendiri secara manual dan saya yakin hasilnya akan sama yaitu 7. Sekarang kita akan menjumlahkan berapa jumlah data siswa yang berjenis kelamin Perempuan?

Silakan tuliskan rumus

=COUNTIF(C1:C24,"P")

Hasilnya : 17

Solusi menghitung jumlah data siswa yang berjenis kelamin Laki-Laki dengan VBA

Nah, lalu bagaimana jika kita ganti rumus COUNTIF tersebut dengan VBA?
Jika kita akan menyelesaikan masalah menghitung jumlah data siswa yang berjenis kelamin "L" dengan VBA maka tentunya kita harus membuat satu buah Module terlebih dahulu

Silakan pelajari cara Membuat Module/Menambah dan Menghapus

Setelah Anda masuk ke VBA editor silakan Insert 1 buah Module dan copy kan coding berikut

Sub Countif()
Range("H1").Value = Application.WorksheetFunction.Countif(Range("C1:C24"), "L")
End Sub

Jika sudah selesai silakan masuk ke worksheet kembali dan buat satu buah tombol kemudian arahkan Asign Macro ke Countif

Jika sudah selesai silakan klik tombol tersebut dan hasilnya akan sama yaitu diperoleh angka 7. Lalu bagaimana Module nya untuk mencari data siswa yang berjenis kelamin perempuan?

Ini codingnya

Sub Countif()
Range("H1").Value = Application.WorksheetFunction.Countif(Range("C1:C24"), "P")
End Sub

Cukup Anda ganti "L" menjadi "P" kemudian ganti Range("H1") menjadi Range("H2")

Selamat mencoba, semoga berhasil.

Written by SAHABAT DUNIA

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.