هل يوجد في الإكسيل دالة مرآة أو انعكاس

بالنسبة للانعكاس لا أعرف دالة جاهزة لذلك ، و كما تفضلت يمكن عمل ذلك بماكرو صغير

أما الثانية فلها 3 دوال كما يلي:

لنفرض أنك كتبت فى الخلية رقم H3 الاسم التالي

Mohamed taher

فيصبح ناتج الثلاث دوال الاتية :

=LEFT(H3;4)
=RIGHT(H3;3)
=MID(H3;3;4)

علي الترتيب كما يلي

Moha

her

hame

حيث ان الاوليان تأخذان العدد من اليمين أو من اليسار

أما الثالثة فنحدد لها نقطة البدء و العدد

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

الأخ الكريم / محمد طاهر

مشكور على الرد ولكني لم أقصد الدوال LEFT, RIGHT فأنا أعرفها جيدا ولكني قصدت الدوال FIND, SEARCH, MID والتي تعمل من إتجاه الشمال ( بالنسبة للنص اللاتيني )

وسؤالي هل هناك طريقة أو حيلة لجعلها تعمل من اليمين (بالنسبة للنص اللاتيني )

بعبارة أخرى اتجاه دالة RIGHT عكس اتجاه دالة LEFT

فهل هناك حيلة لعكس إتجاه FIND, SEARCH, MID وجعلهم يعملون من اليمين

وبدون إستخدام الكود

أرجو أن أكون قد أوضحت فربما لا أكون بليغا بالقدر الكافي

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

لا أعلم دالة جاهزة تقوم بذلك

تحايل

توجد طريقة للتحايل فمثلا فى الدالة MID

باستخدام الدالة Len و التي تعيد طول الكلمة

عندما تريد البحث بدءا من 2 و لمسافة 3 من اليمين

و كان طول الكلمة 10

فهذا يعني بدأً من 10-2-1=7

و لمسافة 2

فيمكن البحث بدأ من اليسار بدأ من 7 و لمسافة 2

مثال :

من اليسار

=MID(E5;5;3)

و من اليمين


=MID(E5;+LEN(E5)-6;3)

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

الأخ الكريم / محمد طاهر

أولا : أود أن أشكرك على الحيلة

ثانيا : لقد فكرت في طريقة لعمل مرآة أو انعكاس لمحتوى خلية تحتوي على نص ما ثم بعد ذلك من هذا الناتج المعكوس يمكن إجراء FIND, SEARCH & MID

وللعلم هذه الأفكار لم تات عبثا ولكنها فعلا مشكلات قابلتني في أثناء عملي

والرابط التالي عبارة عن ملف إكسيل صغير به الطريقة المذكورة

http://mypage.ayna.com/mtsasb/TextMirror.xls

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

جزاك الله خيرا

و هذا حل آخر عن طريق الكود

يمكنك عكس الكلام الموجود فى b2 عن طريق استدعاء الدالة كالتالي

=refverseText(B2)

و الكود الموجود في الدالة كالتالي

Function refverseText(mycell)

   Dim mcount As Long, mtxt As String
   mcount = Len(mycell.Value)
mtxt = mycell.Value
Dim m As String
For i = mcount To 1 Step -1
 m = m & Mid(mtxt, i, 1)
Next i
refverseText = m


End Function

reversetext.zip

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

الأخ العزيز محمد طاهر

أعتذر عن تأخري في الرد عليك

كما أود أن أشكرك على المعلومات القيمة وجزاك الله خيرا