MAJLIS VBA
Fungsi berdasarkan kriteria adalah penguasa cemerlang dalam pengiraan. Pada awal pembelajaran excel, kita pasti telah mempelajari proses COUTNIF di excel. Dalam artikel kami yang terdahulu, kami telah menunjukkan kepada anda cara bekerja dengan fungsi COUNTIF di Excel VBA.
Rujuk artikel kami mengenai COUNTIF Formula di Excel untuk mengetahui asas fungsi COUNTIF di Excel VBA. Dalam artikel ini, kami akan menunjukkan kepada anda bagaimana menggunakan fungsi yang sama dalam pengekodan VBA. Sekarang kita akan melihat formula yang sama di VBA. Perkara pertama yang pertama, COUNTIF bukan fungsi VBA; sebaliknya, ia adalah fungsi lembaran kerja yang dapat diakses di bawah kelas fungsi lembaran kerja.
Contoh Fungsi Count V Excel Excel
Ok, mari kita lihat contoh mudahnya.
Lihat contoh pengiraan nilai dari lot yang sama.
Dalam gambar di atas, kami mempunyai nama bandar dari sel A1 hingga A10. Di sel C3, kita perlu mengira berapa kali nama kota "Bangalore" muncul dalam julat A1 hingga A10.
Ok, ikuti langkah-langkah di bawah ini untuk menulis kod untuk menerapkan fungsi COUNTIF.
Langkah 1: Mulakan prosedur Sub.
Kod:
Opsyen Eksplisit Sub Countif_Contoh1 () Sub Akhir
Langkah 2: Oleh kerana kita perlu menyimpan hasilnya di sel C3, mulakan Range ("C3"). Nilai.
Kod:
Sub Countif_Contoh1 () Julat ("C3"). Nilai = Sub Akhir
Langkah 3: Di sel C3, dengan menerapkan fungsi excel VBA COUNTIF, kami berusaha untuk mencapai hasilnya. Oleh itu, untuk mengakses fungsi, kita perlu menggunakan kelas Fungsi Lembaran Kerja terlebih dahulu.
Kod:
Sub Countif_Contoh1 () Julat ("C3"). Nilai = Fungsi Lembaran Kerja. Sub Akhir
Langkah 4: Dari fungsi pilih VBA COUNTIF excel yang hilang.
Kod:
Sub Countif_Contoh1 () Julat ("C3"). Nilai = Lembaran KerjaFungsi.CountIf (Sub Akhir
Langkah 5: Jika anda melihat parameter fungsi VBA COUNTIF, kami tidak melihat parameternya, seperti yang kami lihat di lembaran kerja.
Seperti yang dapat kita lihat pada gambar di atas dalam lembaran kerja, kita mempunyai sintaks yang tepat, tetapi di VBA, kita hanya dapat melihat Arg 1 & Arg 2.
Arg 1 adalah Julat, jadi pilih julat sebagai A1 hingga A10.
Kod:
Sub Countif_Contoh1 () Julat ("C3"). Nilai = Lembaran KerjaFungsi.CountIf (Julat ("A1: A10"), Sub Akhir
Langkah 6: Arg 2 adalah nilai yang perlu kita hitung dari julat A1 hingga A10. Dalam contoh ini, kita perlu mengira "Bangalore."
Kod:
Sub Countif_Contoh1 () Julat ("C3"). Nilai = Lembaran KerjaFungsi.CountIf (Julat ("A1: A10"), "Bangalore") Sub Akhir
Ok, kita sudah selesai.
Jalankan kod untuk melihat hasilnya di sel C3.
Kami mendapat hasilnya sebagai 4. Oleh kerana nama bandar "Bangalore" muncul di fungsi A1, A4, A7, dan A10 VBA COUNTIF mengembalikan produk sebagai 4.
Sekiranya anda dapat melihat kod VBA hanya menghasilkan hasil formula, kami tidak akan mengetahui prosedur di bar formula.
Untuk mencapai formula, kita perlu menulis kodnya sedikit berbeza. Berikut adalah kod untuk anda menerapkan formula itu sendiri ke sel.
Kod:
Sub Countif_Example1 () Julat ("C3"). Formula = "= CountIf (A1: A10," "Bangalore" ")" Sub Akhir
Ini akan menggunakan formula pada sel C3.
Tiba Hasil dengan Pemboleh ubah
Pemboleh ubah adalah bahagian yang tidak dapat dipisahkan dari mana-mana bahasa pengekodan. Kita perlu menyatakan pemboleh ubah agar berfungsi dengan cekap dengan kod VBA. Contohnya, lihat kod di bawah.
Kod:
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.
Dim KriteriaNilai Sebagai Rentetan
CriteriaValue = "Bangalore"
Jadi sekarang pemboleh ubah "CriteteriaValue" memegang nilai "Bangalore."
Pada baris seterusnya, seperti biasa, saya telah menerapkan fungsi COUTNIF.
ResultCell = WorksheetFunction.CountIf (Nilai Julat, Nilai Kriteria)
Seperti ini, kita dapat menerapkan fungsi COUNTIF di Excel VBA untuk memenuhi keperluan kita.
