VBA ya da Visual Basic'te kod yazarken, sıklıkla bir karakteri bir stringin içinde aramaya ihtiyaç duymuşsunuzdur. Buradaki fonksiyon bu işlemi yapıyor. Kendim yazmadım, yazabilirdim, yazması çok da zor değil, ama hazır kodları mümkün olduğunca fazla kullanmak iyi bir pratiktir. Siz de kullanın:
Function RevInStr(findin As Range, tofind As String) As Integer
' Chris Rae's VBA Code Archive - http://chrisrae.com/vba
Dim findcha As Integer
For findcha = Len(findin) - Len(tofind) + 1 To 1 Step -1
If Mid(findin, findcha, Len(tofind)) = tofind Then
RevInStr = findcha
Exit Function
End If
Next findcha
' Defaults to zero anyway (tsk, tsk, etc)
End Function
