ismailerkan15
Altın Üye
- Katılım
- 23 Nisan 2005
- Mesajlar
- 43
- Excel Vers. ve Dili
- 2003 tr
- Altın Üyelik Bitiş Tarihi
- 5-11-2026
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
"İ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