Yazıyı Tersine Çevirme

[baydeniro]

Arkadaşlar bir hücredeki yazıyı formül ile tersine çevirmek mümkün mü ? Örnek dosya ekte. Öyle ir formülasyon olmalı ki 2 taneden 256 harfe kadar çalışmalı.

Not : Her bir harfi tespit için MID / Parçaal formülü kullanmadan.

 

[harziyan]

bir modüle aşağıdaki kodu yerleştirin. sonra da excelden =terscevir() fonksiyonunu kullanın.

Function TersCevir(text) As String
Dim Uzunluk As Integer, i As Integer
Uzunluk = Len(text)
For i = Uzunluk To 1 Step -1
TersCevir = TersCevir & Mid(text, i, 1)
Next i
End Function

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=25541&highlight=StrReverse

 

[baydeniro]

Sayin leventm, yazıda link adresi çıkmamış.

 

[Levent Menteşoğlu]

Linki ekledim.

 

[İdris SERDAR]

Ekteki örneği inceleyin.


..

 

[baydeniro]

Herkesin ilginisine çok teşekkürler. Kullanacağım dosyanın durumuna göre en uygun çözümü buldum ve ekteki dosyada ilgilenenlere sunuyorum.