√ Inilah Cara Ms. Excel Menghitung Jumlah Siswa Pria Dan Perempuan

Masih berbicara mengenai rumus Excel dan kali ini aku akan mencoba bagaimana cara menghitung jumlah pria dan berapa jumlah wanita pada data siswa. Untuk menghitung jumlah dengan syarat aku 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 pria dan kriteria perempuan. Berikut rujukan data siswa yang akan dijumlahkan

Di cell H1 kita akan mencari berapa jumlah pria 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") yakni 7. Untuk mengecek kebenaranya silakan hitung sendiri secara manual dan aku yakin alhasil 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, kemudian bagaimana kalau kita ganti rumus COUNTIF tersebut dengan VBA?
Jika kita akan menuntaskan dilema menghitung jumlah data siswa yang berjenis kelamin "L" dengan VBA maka tentunya kita harus menciptakan 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 akibat silakan masuk ke worksheet kembali dan buat satu buah tombol kemudian arahkan Asign Macro ke Countif

Jika sudah akibat silakan klik tombol tersebut dan alhasil 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, supaya berhasil.

Tutorial, Tips dan Trik Excel Lebih Cepat



Sumber http://www.excel-id.com/