السلام عليكم اخي الحبيب حمادة
تحية طيبة و اسأل الله ان تكون بخير
كنت البادئ بالرد و قد كتبت فقرة طويلة و عند الانتهاء منها وجدت ان الموضوع قد تم إغلاقه .
على كل حال أعانك الله و وفقك في هذا العمل و جعله في ميزان حسناتك ان شاء الله
تقبل تحياتي و تقديري
السلام عليكم
كما ذكر الأخ محمد الكود فعال و لمسح علامة ؟ يصبح الكود بهذا الشكل
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
StrNew = Replace(StrNew, "?", "")
Next i
Reverse = StrNew
End Function
السلام عليكم
أخي ناصر جزاكم الله خيرا
تقبل تحياتي و تقديري
-----------------------------------------------------
تم تعديل الخطأ الموجود بالبحث
Emp3.rar