برای این کار باید یک تابع در قسمت مدول اکسل تعریف کنید:
- فایل اکسل مورد نظر را باز کنید و کلیدهای Alt+F11 را بزنید.
- قسمت VBA در اکسل باز می شود، سپس به منوی Insert قسمت Module بروید.
- در صفحه باز شده کد زیر را کپی نمایید و صفحه را ببندید:
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
- حال در این اکسل، می توانید دستور Reverse را بعنوان یک تابع بکار ببرید و حروف یا اعداد مورد نظر خود را برعکس کنید.
