The COUNTIF di Excel digunakan untuk menghitung jumlah sel dalam rentang yang memenuhi kondisi yang diberikan. Pada artikel ini, kami akan menunjukkan kepada Anda cara menggunakan fungsi COUNTIF fungsi di Excel dengan VBA makro.

Unduh Buku Kerja

Anda bisa mengunduh buku kerja Excel latihan gratis dari sini.

Fungsi COUNTIF dengan VBA.xlsm

Fungsi COUNTIF di Excel

• Sintaksis

Lembar KerjaFungsi.CountIf( Arg1 Sebagai Rentang, Arg2 ) Sebagai Double

• Parameter

• Tipe Pengembalian

Nilai sebagai Double

6 Contoh Penggunaan Fungsi COUNTIF di Excel dengan VBA

Dalam bagian ini, Anda akan belajar cara menggunakan COUNTIF fungsi di Excel untuk menghitung teks, angka, dll. dengan VBA kode.

1. Fungsi Lembar Kerja dengan COUNTIF di Excel VBA

Excel Fungsi Lembar Kerja dapat digunakan untuk memanggil sebagian besar fungsi lain di Excel yang tersedia di dalam Fungsi Sisipkan kotak dialog di Excel dan COUNTIF adalah salah satu dari fungsi-fungsi tersebut.

Dengan contoh di atas, kita akan belajar bagaimana menggunakan Fungsi Lembar Kerja dengan COUNTIF untuk menghitung data dengan VBA di Excel.

Langkah-langkah:

• Tekan Alt + F11 pada keyboard Anda atau buka tab Pengembang -> Visual Basic untuk membuka Editor Visual Basic .

• Di jendela kode pop-up, dari bilah menu, klik Sisipkan -> Modul .

• Salin kode berikut ini dan tempelkan ke jendela kode.

 Sub ExCOUNTIF() Range("B13") = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Tekan F5 pada keyboard Anda atau dari bilah menu pilih Jalankan -> Jalankan Sub/UserForm Anda juga bisa mengklik pada ikon Putar kecil di bilah sub-menu untuk menjalankan makro.

Kami ingin mengetahui berapa banyak angka yang ada di dataset kami yang kurang dari 3. Jadi setelah menjalankan kode kami mendapatkan hasil 4 yang merupakan jumlah angka yang kurang dari 3 untuk dataset kami.

Baca selengkapnya: Cara Menggunakan COUNTIF Antara Dua Angka (4 Metode)

2. COUNTIF Berfungsi untuk Menghitung Teks Tertentu di Excel

Jika Anda ingin menghitung teks tertentu seperti berapa banyak kota atau nama atau makanan, dll. Yang ada di lembar Excel, maka Anda dapat memanfaatkan COUNTIF fungsi dalam VBA .

Dari contoh di atas, kita akan belajar bagaimana menggunakan COUNTIF untuk menghitung berapa kali nama John terjadi dalam dataset kami dengan VBA makro.

Langkah-langkah:

• Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub CountifText() 'input countName = WorksheetFunction.CountIf(Range("B5:B10"), "John") 'output Range("E7") = countName End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari makro dan Anda akan mendapatkan jumlah total.

Jika Anda tidak ingin menulis teks secara langsung dalam kode Anda maka Anda dapat menyimpannya dalam variabel terlebih dahulu dan kemudian meneruskan variabel di dalam kode. Sama seperti kode di bawah ini,

 Sub CountifText() 'input Nama = Range("E6") countName = WorksheetFunction.CountIf(Range("B5:B10"), Nama) 'output Range("E7") = countName End Sub 

Baca selengkapnya: Hitung Teks di Awal dengan COUNTIF & Fungsi LEFT di Excel

3. COUNTIF Berfungsi untuk Menghitung Angka dengan VBA

Anda bisa memanfaatkan COUNTIF untuk mengekstrak hasil tertentu.

Dari contoh di atas, kita akan belajar bagaimana menggunakan COUNTIF untuk menghitung berapa banyak angka yang ada dalam dataset kita yang lebih besar dari 1,1 dengan VBA makro.

Langkah-langkah:

• Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub CountifNumber() 'input countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">1.1") 'output Range("E7") = countNum End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari makro dan Anda akan mendapatkan jumlah total.

Seperti yang telah dibahas sebelumnya, jika Anda tidak ingin menuliskan angka secara langsung dalam kode Anda maka Anda dapat menyimpannya dalam variabel terlebih dahulu dan kemudian mengoper variabel tersebut di dalam kode. Seperti kode di bawah ini,

 Sub CountifNumber() 'input Num = Range("E6") countNum = WorksheetFunction.CountIf(Range("B5:B10"), ">" & Num) 'output Range("E7") = countNum End Sub 

Baca selengkapnya: Excel COUNTIF dengan Kriteria Lebih Besar dari dan Kurang dari

Bacaan Serupa

• Excel COUNTIF Berfungsi untuk Menghitung Sel Lebih Besar Dari 0
• Cara Menggunakan Fungsi IF dan COUNTIF Bersama-sama di Excel
• Excel COUNTIF untuk Menghitung Sel yang Berisi Teks dari Sel Lain
• Cara Menggunakan Fungsi COUNTIF untuk Menghitung Persentase di Excel

4. Fungsi COUNTIF dengan Rentang Objek di Excel

Anda dapat menetapkan sekelompok sel ke Rentang Objek dan kemudian gunakan itu Rentang Objek untuk menghitung nilai di Excel.

Langkah-langkah:

• Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
• Di jendela kode, salin kode berikut dan tempelkan.

 Sub ExCountIFRange() Dim iRng As Range 'tetapkan rentang sel Set iRng = Range("B5:B10") 'gunakan rentang dalam rumus Range("B13") = WorksheetFunction.SumIf(iRng, ">1") 'lepaskan objek rentang Set iRng = Nothing End Sub 

Kode Anda sekarang siap untuk dijalankan.

• Lari kode dan Anda akan mendapatkan jumlah total dengan nilai penjumlahan.

Baca selengkapnya: Cara Menggunakan COUNTIF untuk Rentang Tidak Bersebelahan di Excel

5. Metode Rumus COUNTIF di Excel

Anda juga bisa menggunakan Rumus dan/atau FormulaR1C1 untuk menerapkan metode COUNTIF ke sel di VBA Metode-metode ini lebih fleksibel dalam melakukan operasi semacam itu.

5.1. Metode Formula

Rumus memungkinkan menentukan rentang sel sebagai B5:B10 ditunjukkan di bawah ini dalam contoh.

Langkah-langkah:

• Di jendela kode dari Editor Visual Basic , salin kode berikut dan tempelkan.

 Option Explicit Sub ExCountIfFormula() Range("B13").Formula = "=COUNTIF(B5:B10, "">1"")" End Sub 

Kode Anda sekarang siap untuk dijalankan.

Potongan kode ini akan memberi Anda jumlah total data yang Anda butuhkan.

5.2. Metode FormulaR1C1

RumusR1C1 lebih fleksibel karena tidak membatasi pada rentang sel yang ditetapkan.

Dengan dataset yang sama, sekarang kita akan belajar bagaimana menggunakan FormulaR1C1 untuk menghitung nilai dalam VBA .

Langkah-langkah:

• Di jendela kode dari Editor Visual Basic , salin kode berikut dan tempelkan.

 Option Explicit Sub ExCountIfFormulaRC() Range("B13").FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub 

Kode Anda sekarang siap untuk dijalankan.

Kode ini juga akan memberi Anda jumlah total data yang Anda butuhkan.

Jika Anda tidak ingin mengatur rentang output maka Anda dapat membuat kode ini lebih fleksibel dengan menulis seperti ini,

 Option Explicit Sub ExCountIfFormulaRC() ActiveCell.FormulaR1C1 = "=COUNTIF(R[-8]C:R[-1]C,"">2"")" End Sub 

Rumus ini akan menghitung sel yang memenuhi kondisi dan menempatkan jawabannya ke dalam ActiveCell di lembar kerja Anda. COUNTIF harus direferensikan dengan menggunakan Baris (R) dan Kolom (C) sintaksis.

Baca selengkapnya: Bagaimana Menerapkan COUNTIF Antara Dua Nilai Sel di Excel

6. Menugaskan Hasil dari Fungsi COUNTIF ke sebuah variabel

Jika kamu ingin menggunakan hasil rumusmu di tempat lain selain di dataset Excelmu, kamu bisa menetapkan hasilnya ke suatu variabel dan menggunakannya nanti dalam kodemu.

The VBA kode untuk itu adalah,

 Sub AssignCountIfVariable() Dim iResult As Double 'Tetapkan variabel iResult = Application.WorksheetFunction.CountIf(Range("B5:B10"), "<3") 'Tampilkan hasilnya MsgBox "Jumlah sel dengan nilai kurang dari 3 adalah " & iResult End Sub 

Hasilnya akan ditampilkan dalam kotak pesan Excel.

Baca selengkapnya: Contoh Excel COUNTIF (22 Contoh)

Kesimpulan

Artikel ini menunjukkan kepada Anda cara menggunakan COUNTIF fungsi di Excel dengan VBA Saya harap artikel ini sangat bermanfaat bagi Anda. Jangan ragu untuk bertanya jika Anda memiliki pertanyaan mengenai topik ini.