Fungsi Hitung di VBA Excel
Dalam fungsi VBA Count digunakan untuk menghitung berapa jumlah sel yang memiliki nilai di dalamnya, kita perlu ingat bahwa sel yang memiliki angka atau teks yang diapit tanda kutip ganda atau sel yang nilainya diketik secara langsung dihitung, sel tersebut yang memiliki data acak yang tidak dapat diterjemahkan dengan excel tidak dihitung.
Dalam VBA COUNT adalah fungsi lembar kerja yang dapat diterapkan melalui kelas fungsi lembar kerja. Ini bukan fungsi bawaan. Fungsi VBA COUNT dapat menghitung semua nilai numerik dari rentang nilai yang disediakan.
Pada artikel ini, kami akan menunjukkan cara menggunakan fungsi COUNT di VBA.
Contoh Fungsi Hitung VBA
Mari kita ambil beberapa contoh praktis dari Fungsi Hitung VBA untuk memahami cara kerjanya.
Anda dapat mengunduh Templat Fungsi Hitung VBA ini di sini - Templat Fungsi Hitung VBAContoh Hitung VBA # 1
Biarkan menulis kode Anda sendiri untuk menerapkan fungsi COUNT ini di excel vba.
Langkah 1: Mulai makro dengan memulai prosedur Sub.
Kode:
Sub Count_Example1 () End Sub
Langkah 2: Sekarang kita akan menyimpan hasil dari fungsi COUNT di sel C2. Jadi kode kita harus seperti "Range (" C2 ") Value =
Kode:
Sub Count_Example1 () Range ("C2"). Nilai = End Sub 
Langkah 3: Karena ini bukan fungsi bawaan VBA, kita perlu menerapkannya melalui kelas Fungsi Lembar Kerja. Jadi akses melalui kelas fungsi lembar kerja.
Kode:
Sub Hitung_Contoh1 () Rentang ("C2") Nilai = Fungsi Lembar Kerja.Hitung (End Sub 
Langkah 4: Sekarang berikan rentang sebagai A1 hingga A7.
Kode:
Sub Hitung_Contoh1 () Rentang ("C2"). Nilai = WorksheetFunction.Count (Rentang ("A1: A7")) End Sub 
Oke, ini adalah tiga langkah sederhana untuk sampai pada hasilnya.
Sekarang jalankan kode untuk melihat hasilnya di sel C2.
Seperti biasa, kami mendapatkan hasil seperti 3 seperti yang kami dapatkan ketika kami menerapkan fungsi VBA COUNT di lembar kerja.
Jika kita mengamati bilah rumus, kita belum mendapatkan rumusnya melainkan baru mendapatkan hasil rumusnya. Untuk menerapkan rumus ke sel C2 kita perlu mengubah kode kita. Di bawah ini adalah kode untuk menerapkan rumus tersebut.
Kode:
Sub Jumlah_Contoh1 () Rentang ("C2"). Nilai = "= Jumlah (A1: A7)" End Sub 
Jalankan kode VBA ini menggunakan tombol F5 atau secara manual, ini akan menerapkan rumus ke sel C2.
Contoh Hitung VBA # 2
Sekarang, lihat satu contoh lagi dengan fungsi COUNT. Untuk contoh ini lihat data di bawah ini.
Kami memiliki beberapa nilai numerik & non-numerik dari A1 hingga A11. Sekarang saya akan menerapkan kode di bawah ini untuk menghitung nilai numerik dari rentang A1 hingga A11.
Kode:
Sub Count_Example2 () Range ("C2"). Nilai = "= Hitungan (A1: A11)" End Sub 
Ketika kami mengeksekusi kode di atas secara manual atau menggunakan tombol F5, kami mendapatkan hasilnya sebagai 5.
Namun, ketika kita melihat data dari A1 hingga A11, kita memiliki nilai numerik di sel A1, A2, A3, A4, A5, A7, dan A11. Jadi secara total, kami memiliki nilai numerik dalam 7 sel tetapi rumus telah mengembalikan hasilnya hanya sebagai 5.
Alasannya adalah ketika kita melihat dari dekat setiap sel di sel A5 dan A7, nilainya disimpan sebagai teks, bukan sebagai angka. Jadi fungsi COUNT mengembalikan hasil sebagai hanya 5 karena memperlakukan sel-sel yang diformat atau disimpan sebagai teks sebagai nilai non-numerik dan mengabaikan dari hitungan numerik.
Seperti ini, kita dapat menggunakan fungsi COUNT di excel sebagai bagian dari worksheet dan fungsi VBA untuk menghitung nilai numerik dari daftar.
