+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Her Harften Kaç Tane (/konu-her-harften-kac-tane.html)
Her Harften Kaç Tane - accessman - 30/05/2020
Bir metin içerisinde Her harften kaç tane olduğunu bulan fonksiyon var mı
RE: Her Harften Kaç Tane - berduş - 01/06/2020
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 FunctionRE: Her Harften Kaç Tane - accessman - 01/06/2020
Çok teşekkürler sn. @berduş