VBA Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

56 Okunma VBA

"VBA" Programlama dilinde "Bir Stringdeki Her Karakterin Sayısını Bulma Örneği" ile ilgili kod örneği aşağıda belirtilmiştir.

Sub countChars()
    Dim str1 As String
    Dim charDict As New Scripting.Dictionary
    Dim i As Integer, count As Integer
    str1 = "YazılımSeviyorum"
    
    For i = 1 To Len(str1)
        If charDict.Exists(Mid(str1, i, 1)) Then
            count = charDict(Mid(str1, i, 1))
            charDict(Mid(str1, i, 1)) = count + 1
        Else
            charDict.Add Mid(str1, i, 1), 1
        End If
    Next i
    
    Debug.Print "Sonuc:"
    For Each key In charDict.Keys
        Debug.Print key & ": " & charDict(key)
    Next key
End Sub

String Karakter Sayı Dizi Array VBA

VBA Bir Stringdeki Her Karakterin Sayısını Bulma Örneği

İlginizi Çekebilir

VBA Tüm Worksheet'leri Şifrelemek

VBA Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Şimdiki Zamanı Getirmek

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

BİLGİ KATEGORİ