Fungsi Lembar Kerja COUNTA di Excel VBA
Di artikel sebelumnya "COUNTA Excel", kita telah melihat bagaimana menggunakan fungsi COUNT untuk menghitung nilai numerik dari rentang nilai. Bagaimana dengan menghitung semua biaya di bidang sel? Ya, kami juga dapat memperkirakannya. 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; tetap saja, kita bisa menggunakannya di bawah kelas fungsi lembar kerja dalam pengkodean VBA.
Ok mari kita tulis kode untuk mengaplikasikan excel VBA COUNTA.
Langkah 1: Buat nama subprocedure.
Langkah 2: Sekarang, pertama tentukan di mana kita akan menyimpan hasil dari fungsi VBA COUNTA. Dalam contoh ini, saya ingin menyimpan pekerjaan 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 fungsi VBA COUNTA. Jadi untuk menerapkan fungsi excel VBA COUNTA, pertama-tama mari kita gunakan 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 memberi 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. Untuk menyediakan 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.
Hasil yang sama juga dibalas oleh VBA COUNTA.
Seperti ini, kita dapat menggunakan COUNTA untuk menghitung sel yang tidak kosong atau tidak kosong dari kisaran 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.
Misalnya, 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 kisaran untuk mereferensikan 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, kami memiliki Range C2. Di Kode 2, kami memiliki nama variabel "CountaResultCell". Di sini variabel "CountaResultCell" menetapkan referensi sebagai sel C2. Jadi variabel ini sekarang adalah sel C2.
Dalam kode 1, rentang fungsi COUNTA adalah A1 hingga A11. Dalam regulasi 2, ini adalah variabel yang 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.
