آموزشی تابعی برای معکوس کردن نوشته

[Amir Ghasemiyan]

سلام به همه دوستان

تو این تاپیک میخوایم یه تابع بنویسیم که بتونیم خیلی راحت محتوای یک سلول رو معکوس کنیم. مثلا اگر تو سلول نوشتیم "اکسل ایران" برامون بنویسه "ناریا لسکا" یا مثلا "12345" رو بنویسه "54321"

خب. اولین کاری که میکنیم اینه که کدهای زیر رو تو محیط ویژوال بیسیک اضافه میکنیم.

Function ReverseCell(Rcell As Range)
    Dim i As Integer, StrNewNum As String, strOld As String
    Application.Volatile True
    strOld = Trim(Rcell)
    For i = 1 To Len(strOld)
        StrNewNum = Mid(strOld, i, 1) & StrNewNum
    Next i
    ReverseCell = StrNewNum
End Function

حالا کافیه هر سلول رو که میخوایم معکوس کنیم از فرمول زیر استفاده کنیم. مثلا برای بدست آوردن معکوس سلول A1:

=ReverseCell(A1)