Vba: cara menghitung sel dengan teks tertentu

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah sel dalam rentang yang berisi teks tertentu menggunakan VBA:

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

Contoh khusus ini menghitung jumlah sel dalam rentang A2:A13 yang berisi “avs”, lalu menetapkan hasilnya ke sel D2 .

Catatan : Tanda bintang ( * ) digunakan sebagai wildcard dalam fungsi Countif .

Jika Anda ingin menampilkan jumlah sel dalam kotak pesan, Anda bisa menggunakan sintaks berikut:

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
    cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), "* avs* ")
    
    'Display the result
    MsgBox "Cells that contain avs : " & cellCount
End Sub

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan himpunan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Contoh 1: Hitung sel dengan teks tertentu menggunakan VBA dan tampilkan hasilnya di sel

Misalkan kita ingin menghitung jumlah sel yang mengandung “avs” di nama tim dan menampilkan hasilnya di sel tertentu.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountCellsWithText ()
    Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa sel D2 berisi nilai 5 .

Ini memberitahu kita bahwa ada 5 sel dalam rentang A2:A13 yang berisi “avs” di nama tim.

Contoh 2: Hitung sel dengan teks tertentu menggunakan VBA dan tampilkan hasilnya di kotak pesan

Misalkan kita ingin menghitung jumlah sel yang berisi “avs” dan menampilkan hasilnya dalam kotak pesan.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCountCellsWithText ()

    Dim cellCount As Integer
    
    'Calculate number of cells that contain 'avs'
cellCount = WorksheetFunction.CountIf(Range(" A2:A13 "), " *avs* ")
    
    'Display the result
MsgBox "Cells that contain avs : " & cellCount
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberitahu kita bahwa ada 5 sel yang berisi “avs” di nama tim.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: rumus sederhana untuk “Jika sel berisi”
VBA: Cara menghitung kemunculan karakter dalam sebuah string
VBA: cara memeriksa apakah suatu string berisi string lain