Vba: cara menghitung kemunculan karakter dalam sebuah string

Anda dapat menggunakan sintaks dasar berikut untuk menghitung jumlah kemunculan karakter dalam string menggunakan VBA:

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

Contoh khusus ini menghitung jumlah kemunculan garis miring ( / ) di setiap sel dalam rentang B2:B12 dan menampilkan hasilnya dalam rentang C2:C12 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menghitung Kemunculan Karakter dalam String Menggunakan VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang memperlihatkan nama-nama pemain bola basket yang berbeda dan posisi yang bisa mereka mainkan dalam sebuah permainan:

Misalkan kita ingin menghitung jumlah garis miring ( / ) pada setiap string pada kolom Posisi.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub CountOccurrences()
    Dim i As Integer
    
    'Specify character to look for
    my_char = "/"
    
    'Count occurrences in each string in B2:B12 and display results in C2:C12
    For i = 2 To 12
        Count = (Len(Range(" B " & i)) - Len(Replace(Range(" B " & i), my_char, ""))) / Len(my_char)
        Range(" C " & i) = Count
    Next i
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Nilai di kolom C menampilkan jumlah kemunculan garis miring pada string yang cocok di kolom B.

Misalnya:

• String Guard / Forward berisi 1 garis miring.
• String Penjaga berisi 0 garis miring.
• String Penjaga berisi 0 garis miring.
• String Maju/Tengah berisi 1 garis miring.

Dan seterusnya.

Untuk menghitung kemunculan karakter yang berbeda, cukup ubah karakter variabel my_char di makro.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: cara memeriksa apakah suatu string berisi string lain
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS