عكس النص

[محمد طاهر عرفه]

هل يمكن التعامل فى دوال النص من اليمين للشمال ( أو عكس النص لكي يتم التعامل معه بدوال النصوص من اتجاه اليمين) ??

الاجابة :

يمكنك عكس الكلام الموجود فى 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

  

و يوجد حل آخر للتحايل و الحصول علي نفس النتيجة بدون الكود و بدون عكس النص أي التعامل مع النص مباشرة توجد طريقة للتحايل فمثلا فى الدالة MID باستخدام الدالة Len و التي تعيد طول الكلمة عندما تريد البحث بدءا من 2 و لمسافة 3 من اليمين و كان طول الكلمة 10 فهذا يعني بدأً من 10-2-1=7 و لمسافة 2 فيمكن البحث بدأ من اليسار بدأ من 7 و لمسافة 2 من اليسار

=MID(E5;5;3)


و من اليمين



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

reversetext.zip