Tweet
Bunun için uzun uzun kod yazmaya gerek yok.
Excel i açın
alt + F11 tuşu ile VBA yı açın solda kutuya yeni modül ekleme seçin (Insert > Module)
Alttaki kodları oraya yapıştırın...
Hepsi bu kadar, daha sonra yapacağınız ise , tersine çevirmek istediğiniz metin örneğin A1 de olsun
B1 e gelerek =reverse(A1) yazıp enterladığınızda metnin terse çevrildiğini göreceksiniz.
İkinci yöntem ise ;
Önceki gibi fonksiyn yaratıp bunu aynı şekilde kullanmaktır.
Yabana atmayın gün gelir lazım olur.
Excel i açın
alt + F11 tuşu ile VBA yı açın solda kutuya yeni modül ekleme seçin (Insert > Module)
Alttaki kodları oraya yapıştırın...
Function Reverse(Text As String) As String
Dim i As Integer
Dim StrNew As String
Dim strOld As String
strOld = Trim(Text)
For i = 1 To Len(strOld)
StrNew = Mid(strOld, i, 1) & StrNew
Next i
Reverse = StrNew
End Function
Dim i As Integer
Dim StrNew As String
Dim strOld As String
strOld = Trim(Text)
For i = 1 To Len(strOld)
StrNew = Mid(strOld, i, 1) & StrNew
Next i
Reverse = StrNew
End Function
Hepsi bu kadar, daha sonra yapacağınız ise , tersine çevirmek istediğiniz metin örneğin A1 de olsun
B1 e gelerek =reverse(A1) yazıp enterladığınızda metnin terse çevrildiğini göreceksiniz.
İkinci yöntem ise ;
Function Reverse(str As String) As String
Reverse = StrReverse(Trim(str))
End Function
Reverse = StrReverse(Trim(str))
End Function
Önceki gibi fonksiyn yaratıp bunu aynı şekilde kullanmaktır.
Yabana atmayın gün gelir lazım olur.