VBA COUNTA

Fungsi Lembar Kerja COUNTA di Excel VBA

Dalam artikel sebelumnya "Excel COUNTA", kita telah melihat bagaimana menggunakan fungsi COUNT untuk menghitung nilai numerik dari rentang nilai. Bagaimana jika menghitung semua nilai dalam rentang sel? Ya, kita bisa menghitungnya juga. Untuk menghitung semua nilai sel dalam rentang sel kita perlu menggunakan rumus "COUNTA" di excel VBA. Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana menggunakan fungsi COUNTA di VBA untuk menghitung semua nilai sel dalam rentang yang disediakan.

Contoh Fungsi COUNTA di VBA

Salah satu kebenarannya adalah fungsi "COUNTA" bukanlah fungsi VBA. Saya tahu pertanyaan Anda adalah jika ini bukan fungsi VBA, lalu bagaimana kita menggunakannya? Tidak ada yang perlu dikhawatirkan meskipun ini bukan fungsi VBA, kita tetap dapat menggunakannya di bawah kelas fungsi lembar kerja dalam pengkodean VBA.

Anda dapat mendownload Template Excel VBA COUNTA ini di sini - Template Excel VBA COUNTA

Ok mari kita tulis kode untuk mengaplikasikan excel VBA COUNTA.

Langkah 1: Buat nama subprocedure.

Langkah 2: Sekarang tentukan dulu di mana kita akan menyimpan hasil dari fungsi VBA COUNTA. Dalam contoh ini, saya ingin menyimpan hasilnya di sel C2. Jadi kode saya adalah Range ("C2").

Kode:

 Sub Counta_Example1 () Range ("C2"). Nilai = End Sub 

Langkah 3: Di sel C2 kita membutuhkan nilai dari fungsi VBA COUNTA. Jadi untuk menerapkan fungsi excel VBA COUNTA mari kita menerapkan kelas fungsi lembar kerja.

Kode:

 Sub Counta_Example1 () Range ("C2") Nilai = Pekerjaan End Sub 

Langkah 4: Setelah menerapkan kelas fungsi lembar kerja pilih rumus COUNTA dengan meletakkan titik.

Kode:

 Sub Counta_Example1 () Range ("C2") Nilai = WorksheetFunction.Count End Sub 

Langkah 5: Sekarang kita perlu menyediakan kisaran sel yang akan dihitung. Dalam contoh ini, kita perlu menghitung rentang sel dari A1 hingga A11. Jadi berikan sel menggunakan objek VBA RANGE.

Kode:

 Sub Counta_Example1 () Range ("C2"). Nilai = WorksheetFunction.CountA (Range ("A1: A11")) End Sub 

Ok, mari kita jalankan kode untuk mendapatkan hasil di sel C2.

Jadi, hasil yang sama juga dibalas oleh VBA COUNTA.

Seperti ini, kita dapat menggunakan COUNTA untuk menghitung sel yang tidak kosong atau tidak kosong dari rentang yang disediakan.

Coding dengan Variabel

Variabel VBA adalah kunci untuk membangun sebuah proyek. Sekarang untuk data yang sama, kita bisa mendeklarasikan variabel VBA dan sampai pada hasilnya.

Untuk contoh lihat kode di bawah ini.

Kode:

 Sub Counta_Example2 () Redupkan CountaRange Sebagai Range Redup CountaResultCell Sebagai Rentang Set CountaRange = Range ("A1: A11") Set CountaResultCell = Range ("C2") CountaResultCell = WorksheetFunction.CountA (CountaRange) End Sub 

Mari kita jelaskan kode di atas sekarang.

Pertama saya telah mendeklarasikan variabel "CountaRange" sebagai rentang untuk referensi kisaran nilai.

 Redupkan CountaRange As Range

Selanjutnya, saya telah menetapkan referensi sebagai Range A1 ke A11.

 Setel CountaRange = Range ("A1: A11")

Variabel kedua adalah untuk mereferensikan sel hasil COUNTA.

 Redupkan CountaResultCell As Range

Untuk variabel ini, saya telah menetapkan sel sebagai C2.

 Set CountaResultCell = Range ("C2")

Sekarang, seperti biasa, saya telah menerapkan fungsi COUNTA menggunakan variabel, bukan rentang hardcode. Sekarang, lihat kode lama dan kode VBA ini.

Kode 1:

Kode 2:

Dalam kode 1 kita memiliki Range C2, di Kode 2 kita memiliki nama variabel "CountaResultCell". Di sini variabel "CountaResultCell" menetapkan referensi sebagai sel C2. Jadi variabel ini sekarang adalah sel C2.

Pada kode 1 range fungsi COUNTA adalah A1 sampai A11, pada kode 2 variabel disebut “CountaRange”. Variabel ini memiliki referensi ke rentang A1 hingga A11.

Inilah perbedaan antara kode lama dan kode dengan variabel.

Jadi, fungsi COUNTA membantu kita menghitung semua sel yang tidak kosong dari rentang yang disediakan terlepas dari data yang dimilikinya.