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 langsung dihitung, sel tersebut yang memiliki data acak yang tidak dapat diterjemahkan dengan excel tidak dihitung.
Di 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.
Contoh 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 mendaftar 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 sebagai 3 seperti yang kami dapatkan ketika kami menerapkan fungsi VBA COUNT di lembar kerja.
Jika kita mengamati bilah rumus, kita belum mendapatkan rumusnya. Sebaliknya kita baru saja 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. Kemudian, 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 saat 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 lembar kerja dan fungsi VBA untuk menghitung nilai numerik dari daftar.
