Metin İcinden Karakter Arama Fonksiyonu yazma

[ismailerkan15]

Yardımlarınız icin Şimdiden Teşekürler

"İsmail erkan iyi geceler" Kelimesindeki 3 “i” harfinin kaçıncı karakter oldugunu kodla bulabilirmiyiz.

sonuc=14


Private Function ArananKarakterSırano(Acıklama As String , ArananKarakter As String, KacıncıKarakter ) As Byte
Dim ii As Integer
For ii = Len(Acıklama) To 1 Step -1
If Mid(Acıklama, ii, 1) = arananKarakter Then
ArananKarakterSırano = ii
Exit Function
End If
Next
End Function

Private Sub ArananKarakter_AfterUpdate()

ArananKarakterSırano(Acıklama,i,3)
End Sub

Diye Denedim Ama Başarılı Olamadım.
Emeginiz için Şimdiden Teşekürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Aranan harf yoksa 0 (Sıfır) değeri döndürür.

Hücredeki kullanım şekli;
=ArananKarakterSirano(A1;"İ";3)

Kırmızı renki kısım opsiyoneldir. O kısıma birşey yazmazsanız otomatikman 1 olarak algılanır.

Option Explicit
 
Private Function ArananKarakterSirano(Aciklama As String, ArananKarakter As String, Optional KacinciKarakter = 1) As Integer
    Dim X As Integer, Say As Integer, Harf As String
    
    For X = 1 To Len(Aciklama)
        Harf = Replace(Replace(Mid(Aciklama, X, 1), "i", "İ"), "ı", "I")
        ArananKarakter = Replace(Replace(ArananKarakter, "i", "İ"), "ı", "I")
            If StrConv(Harf, vbUpperCase) = StrConv(ArananKarakter, vbUpperCase) Then
            Say = Say + 1
                If Say = KacinciKarakter Then
                    ArananKarakterSirano = X
                Exit Function
                End If
            End If
    Next
End Function

 

[ismailerkan15]

cok teşekkür ederim elinize sağlık