اصلاح العربى المعكوس

[a7mad3rafa]

السلام عليكم

هل يوجد اى طريقه لتعديل  الكتابه العربيه المعكوسه فى الملف المرفق.. و شكرا لكم.. ارجو الرد للاهميه.

group7.zip

تم تعديل مارس 3, 2017 بواسطه a7mad3rafa

[mohamed elforse]

السلام عليكم ورحمة الله وبركاتة

تحية طيبة وبعد 

بعد البحث علي الانترنت وجد هذا الكود و تم تجربتة و فعال و لكن تبقي شي واحد وهو وجود علامة ؟ في وسط الكلمة لذا يجب تغيير الكلمة يدويا 

الملف المرفق : group7.rar

[أبو حنــــين]

السلام عليكم

كما ذكر الأخ محمد الكود فعال و لمسح علامة   ؟  يصبح الكود بهذا الشكل

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

 

[a7mad3rafa]

جزاكم الله خيرا والف شكر للمساعده، بس سؤال لما بحاول اعمل الداله ريفيرس فى اى شيت تانى لا تظهر حتى لو حاول لصقها تعطى ايرور، واسف على تعبكم

 

[mohamed elforse]

44 دقائق مضت, a7mad3rafa said:

جزاكم الله خيرا والف شكر للمساعده، بس سؤال لما بحاول اعمل الداله ريفيرس فى اى شيت تانى لا تظهر حتى لو حاول لصقها تعطى ايرور، واسف على تعبكم

 

السلام عليكم ورحمة الله وبركاتة

تحية طيبة وبعد 

الكود شغال معي و مرفق ملف بعد عمل كوبي من المعادلة ريفيرس و لصقها في شيت Table 2 و table 3 كما تم تعديل الكود وفقا لكود استاذنا الخبير : أبو حنــــين 

الملف المرفق : group7.rar

[a7mad3rafa]

جزاكم الله خيرا والف شكر للمساعده.

 

[a7mad3rafa]

 اعذرنى لغبائى و لكن مثلا فى الشيت المرفق تعطى دالة ريفيرس ايرور و لكننى فهمت ان هناك خطوه قبل المعادله و هو الكود الذى ادخلته و عدله اخونا الفاضل ابو حنين وبصراح لا افهم هذه الخطوه و ان امكن بعض التوضيح و اسف على الاطاله.

Test.zip

[mohamed elforse]

السلام عليكم و رحمة الله وبركاتة 

تحية طيبة وبعد ,,,

الرجاء التباع الخطوات الاتية كما في الصور :

اولا : 

ثانيا :

ثالثا :

يتم عمل كوبي من كود استاذنا الخبير : أبو حنــــين ووضعها لصق ثم اغلق الملف الاكسيل بالكامل سوف تظهر رسالة تقول هذا الملف بيه مايكرو لحفظ المايكرو اضغط No و عند الضغط علي No سوف يظهر لك الشكل الاتي :

اولا :

 

ثانيا :

 

عند فتح الشيت مرة اخري و تكتب معادلة Reverse سوف يتعمل ان شاء الله 

و لكم جزيل الشكر و التقدير

[a7mad3rafa]

جزاك الله كل خير على تعبك و مجهودك

[goodcople]

عمل رائع جدا وشكرا على مجهودات الجميع