RevInstr

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