سلام دوست عزیز
باید یک تابع تعریف کنید :
-Alt + F11 را بزنید تا وارد محیط Vba بشید .
- کد زیر را به اون پنجره کپی کنید :
کد:
Option Explicit
Public Function REVERSE(ByVal sCellContents As String) As String
Call Application.Volatile(True)
If Application.WorksheetFunction.IsNonText(sCellContents) = True Then
REVERSE = VBA.CVErr(xlErrNA)
Else
REVERSE = VBA.StrReverse(sCellContents)
End If
End Function
حالا کافیه هر جایی که خواستی تابع را صدا بزنی . مثلا اگر اطلاعاتت در سلول C2 وارد شده و تو یک سلول دیگه می خوای مقلوبش را بدست بیاری کافیه بنویسی :
REVERSE(C2)=
موفق باشی
بدرود .