آموزش استفاده از تابع معکوس متن ( Reverse ) در اکسل

سلام ممنون از مطلب خوبتون، من کد رو نوشتم و قرار دادم ولی وقتی میخوام ازش استفاده کنم ارور Value! میزنه. باید چیکارش کنم؟

ممنون میشم

Function reverse(text As String) As String
Dim x As Integer
Dim StNew As String
Dim stOld As String
stOld = Trim(text)
For x = 1 To Len(stOld)
    StNew = Mid(stOld, x, 1) & StNew
 Next
reverse = StNew
End Function

دوستان فکر کنم اشتباه تایپی بود بعد از Next کلمه نباید بیاد و این که اگر سکیوریتی آفیس قبلا غیر فعال شده باشه هیچ پیغام خطایی داده نمی شه و به راحتی فانکشن Reverse قابل استفاده ست

سلام و عرض ادب؛

اولا جهت سهولت دوستان کدی که تصویرش بود رو تایپ کردم و همینجا قرار میدم:

Function reverse(text As String) As String
Dim x As Integer
Dim StNew As String
Dim stOld As String
stOld = Trim(text)
For x = 1 To Len(stOld)
    StNew = Mid(stOld, x, 1) & StNew
Next i
reverse = StNew
End Function

اما مسأله اینه که بعد از ورود این کد و فانکشن ابتدا Reverse اضافه شد اما متاسفانه ارور می داد و نتونست عمل کنه تازه گزینه آپشن برای اینیبل کردن هم در اکسل نیومد!! حالا چکار کنم؟

ممنون دوست عزیزم.

منتظرم. کسی هم اگه آموزشی داره برام بذاره... ممنونش میشم.

خواهش میکنم خیلی کارا میتونی انجام بدی میتونید دقیقاً برنامه نویسی کنید تو اکسل دگمه بزارید لیست درست کنید Check Button , Radio Button و تمام ابزار هایی که در VB هست رو به نوعی دخالت بدید در اکسل.

همونطور که میدونید اکسل برنامه ای ست جهت کار با آمار و ارقام و محاسبات ریاضی از قبیل حقوق و دستمزد خیلی موقع ها پول دادن به برنامه هایی که کار خاصی هم نمیکنن نمیصرفه بهتره تو اکسل برنامه ات رو درست کنی سپس تو کد نویسی VB که متصل میشه به اکسل فرم درست کنی زیبا کنی و کاربر پسند تر و بهینه تر.

فعلاً چیزی ازش ندارم هر موقع اتفاقی برام بیوفته که نیاز به چیزی داشته باشم اول عملی اش میکنم سپس عکس میگیرم میزارم تو سایت شاید مشکل من مشکل دیگران هم باشه.

موفق باشید

جالب بود مهندس. من نوشتن کد با excel رو بلد نبودم.

آموزش خاصی دارین ازش؟