السلام عليكم ورحمة الله وبركاته. أهلا وسهلا بكل أحبابي زوار ومتابعي الماس لتطوير الذات والتعلم الذاتي. اليوم موعدنا مع أبسط كود وأفضل معادلة لعكس النصوص في اكسل. عكس النصوص والأرقام بالكود والمعادلات في اكسل من الاحتياجات الضرورية لبعض مستخدمي ميكروسوفت اكسبل.
طلب مني أحد الأصدقاء عكس النصوص والأرقام بالكود والمعادلات في اكسل . وكان قد أعطى له صديقا آخر معادلة يتم تكرارها بعدد الأرقام الموجودة في الخلية. مما يؤدي إلى طول محتويات المعادلة جدا. فقمت بعمل هذه المعادلة وهذا الكود الذي يقوم بعكس النصوص والأرقام بالكود والمعادلات في اكسل. بغض النظر عن طول الخلية.
معنى عكس النص في اكسل :
يعني عكس النص في اكسل أن ترجع المعادلة آخر حرف في الخلية وتجعله أول حرف في النص الجديد. ويكون الحرف قبل الأخير هو الحرف الثاني وهكذا. سواء كانت المحتويات في الخلية أرقاما أو نصوصا .
الدوال المستخدمة في عكس النص بالمعادلات :
سنستخدم في هذه المعادلة دالة mid وهي لاقتصاص جزء من النص. بناء على البداية وطول النص المراد اقتصاصة.
ونستخدم أيضا الدالة row والتي تقوم بجلب رقم الصف لمرجع الخلية المقدم لها.
ونستخدم أيضا الدالة indirect والتي تقوم بتحويل نص إلى مرجع.
والدالة abs التي ترجع القيمة المطلقة لرقم. وهي تقوم بتحويل القيمة السالبة إلى موجبة.
الدالة len لحساب طول النص الموجود في خلية.
والدالة concat وهي لدمج مجموعة من النصوص أو الخلايا في خلية واحدة. وهي ضمن أوفيس 2016 وما بعده.
عكس النص بالمعادلات في اكسل :
وبناء على ما سبق تكون معادلة عكس النص بالمعادلات في اكسل. وهي أفضل وأبسط معادلة لعكس النص في اكسل :
=CONCAT(MID(A2,ABS(ROW(INDIRECT("1:"&LEN(A2)))-(LEN(A2)+1)),1))
حيث أن النص المراد عكسه موجود في الخلية a2 وهذه المعادلة توضع في أي خلية يراد عكس النص فيها.
عكس النص بالكود في vba :
وبالرغم من بساطة معادلة عكس النص في اكسل . إلا أنها لا تعمل على الإصدرات قبل 2016 . ولذلك فإن عكس النصوص بالكود يعتبر هو الأبسط والأكثر استخداما. حيث يتم إنشاء دالة معرفة UDF . في نافذة أكواد فيجوال بيسك للتطبيقات vba . ويتم استدعاؤها في شريط المعادلات.
وهذا أبسط كود لهذه الدالة حيث أن هوايتي اختصار الأكواد. وأداء المطلوب بأقل عدد من الكلمات البرمجية.
Function ReverseMe(s As Range)
ReverseMe = StrReverse(s)
End Function
وتكون طريقة استدعائها كما يلي: بكتابة يساوي ثم اسم الدالة المعرفة ثم نمرر لها مرجع الخلية المراد عكس محتوياتها. وفي مثالنا هي الخلية a2 . فتكون معادلة عكس النصوص والأرقام بالكود والمعادلات في اكسل هي:
=ReverseMe(A2)
تحميل ملف عكس النص بالكود والمعادلات :
ولمن يريد التعلم بالمثال والتطبيق العملي . يمكنك تحميل ملف عكس النص بالكود والمعادلات في اكسل. من هذا الرابط الموجود على جوجل درايف.
خلاصة عكس النصوص والأرقام بالكود والمعادلات في اكسل :
وهنا يسعدني أن أقدم لكم خلاصة عكس النصوص والأرقام بالكود والمعادلات في اكسل على شكل صورة. تحتوي على الكود والمعادلات اللازمة لعكس النصوص والارقام في اكسل.
الدال على الخير كفاعله :
ونهاية الموضوع. أرجو أن أكون قد ساهمت في تطوير المحتوى العربي لبرمجة الاكسل المتقدمة vba على الانترنت. ووضع كل الأدوات والأكواد والمعادلات التي يحتاجها كل من يصمم اي برنامج لخدمة الناس. دون استغلال لحاجة الناس . وفقنا الله جميعا في معاونة بعضنا. رجاء مشاركة الصفحة مع المهتمين. فالدال على الخير كفاعله في الثواب. كما قال رسولنا الكريم صلى الله عليه وسلم.