Diskusi tentang Excel

Inilah Cara Ms. Excel Menghitung Jumlah Siswa 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.

Related

Rumus Excel 7956746802113952501

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item