Bir metin içerisinde Her harften kaç tane olduğunu bulan fonksiyon var mı
modüle eklenecek kod
Function KcHrf(txtGirdi As String) As String
Dim TmpGirdi As String
Dim Hrf As String
Dim ilkHrfSay, SonHrfSay As Long
TmpGirdi = Replace(Trim(txtGirdi), " ", "")
Do While Len(TmpGirdi) > 0
ilkHrfSay = Len(TmpGirdi)
Hrf = Left(TmpGirdi, 1)
TmpGirdi = Replace(TmpGirdi, Hrf, "")
SonHrfSay = Len(TmpGirdi)
KcHrf = Hrf & " harfinden : " & ilkHrfSay - SonHrfSay & vbCrLf & KcHrf
Loop
End Function