VBA COUNTIF
Fungsi berbasis kriteria adalah penguasa excel dalam perhitungan. Di awal belajar excel, kita pasti sudah mempelajari proses COUTNIF di excel. Di artikel kami sebelumnya, kami telah menunjukkan kepada Anda cara bekerja dengan fungsi COUNTIF di Excel VBA.
Lihat artikel kami tentang Rumus COUNTIF di Excel untuk mengetahui dasar-dasar fungsi COUNTIF di Excel VBA. Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana menggunakan fungsi yang sama dalam pengkodean VBA. Sekarang kita akan melihat rumus yang sama di VBA. Hal pertama yang pertama, COUNTIF bukanlah fungsi VBA; sebagai gantinya, ini adalah fungsi lembar kerja yang dapat diakses di bawah kelas fungsi lembar kerja.
Contoh Fungsi Countif VBA Excel
Ok, mari kita lihat contoh sederhananya.
Lihatlah contoh yang sama di bawah ini untuk menghitung nilai dari lot.
Pada gambar di atas, kami memiliki nama kota dari sel A1 hingga A10. Di sel C3, kita perlu menghitung berapa kali nama kota “Bangalore” muncul di rentang A1 hingga A10.
Oke, ikuti langkah-langkah di bawah ini untuk menulis kode untuk menerapkan fungsi COUNTIF.
Langkah 1: Mulai prosedur Sub.
Kode:
Opsi Eksplisit Sub Countif_Example1 () End Sub
Langkah 2: Karena kita perlu menyimpan hasil di sel C3, mulailah Range ("C3") Nilai.
Kode:
Sub Countif_Example1 () Range ("C3"). Nilai = End Sub
Langkah 3: Di sel C3, dengan menerapkan fungsi excel VBA COUNTIF, kami mencoba sampai pada hasilnya. Jadi untuk mengakses fungsinya, pertama kita perlu menggunakan kelas Fungsi Worksheet.
Kode:
Sub Countif_Example1 () Range ("C3") Nilai = Fungsi Lembar Kerja. Akhiri Sub
Langkah 4: Dari fungsi excel VBA COUNTIF yang hilang.
Kode:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (End Sub
Langkah 5: Jika Anda melihat parameter fungsi VBA COUNTIF, kami tidak melihat parameternya, seperti yang kami lihat di lembar kerja.
Seperti yang bisa kita lihat pada gambar di atas di lembar kerja, kita memiliki sintaks yang tepat, tetapi di VBA, kita hanya bisa melihat Arg 1 & Arg 2.
Arg 1 adalah Range, jadi pilih range sebagai A1 hingga A10.
Kode:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), End Sub
Langkah 6: Arg 2 adalah nilai yang perlu kita hitung dari rentang A1 hingga A10. Dalam contoh ini, kita perlu menghitung "Bangalore".
Kode:
Sub Countif_Example1 () Range ("C3"). Value = WorksheetFunction.CountIf (Range ("A1: A10"), "Bangalore") End Sub
Ok, kita sudah selesai.
Jalankan kode untuk melihat hasilnya di sel C3.
Kami mendapatkan hasil sebagai 4. Karena nama kota "Bangalore" muncul di sel A1, A4, A7, dan A10 VBA fungsi COUNTIF mengembalikan produk sebagai 4.
Jika Anda bisa melihat kode VBA hanya mengembalikan hasil rumus, kami tidak mengetahui prosedur di bilah rumus.
Untuk sampai pada rumusnya, kita perlu menulis kodenya sedikit berbeda. Di bawah ini adalah kode untuk Anda menerapkan rumus itu sendiri ke sel.
Kode:
Sub Countif_Example1 () Range ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" End Sub
Ini akan menerapkan rumus ke sel C3.
Tiba Hasil dengan Variabel
Variabel merupakan bagian integral dari bahasa pengkodean apa pun. Kita perlu mendeklarasikan variabel agar bekerja secara efisien dengan kode VBA. Misalnya, lihat kode di bawah ini.
Kode:
Sub Countif_Example2() Dim ValuesRange As Range Dim ResultCell As Range Dim CriteriaValue As String Set ValuesRange = Range("A1:A10") Set ResultCell = Range("C3") CriteriaValue = "Bangalore" ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue) End Sub
Let me decode the code for you to understand better.
Firstly I have declared the two variables as Range.
Dim ValuesRange As Range: This is to reference the list of values.
Dim ResultCell As Range: This to reference the result cell.
Then I have set the range of references to both the variables.
Set ValuesRange = Range(“A1: A10”): This is the range where all the city names are there.
Set ResultCell = Range(“C3”): In this cell, we will store the result of the COUNTIF function.
In the meantime, I have declared one more variable to store the criteria value.
Redupkan Nilai Kriteria Sebagai String
CriteriaValue = “Bangalore”
Jadi sekarang variabel "CriteteriaValue" menyimpan nilai "Bangalore".
Di baris berikutnya, seperti biasa, saya telah menerapkan fungsi COUTNIF.
ResultCell = WorksheetFunction.CountIf (ValuesRange, CriteriaValue)
Seperti ini, kita dapat menerapkan fungsi COUNTIF di Excel VBA agar sesuai dengan kebutuhan kita.
