كيفية عكس سلسلة في vba (مع مثال)

يمكنك استخدام الدالة StrReverse في VBA لعكس سلسلة نصية.

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

يقوم هذا المثال المحدد بعكس كل سلسلة في النطاق A2:A11 ويعرض النتائج في النطاق B2:B11 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية عكس السلاسل باستخدام VBA

لنفترض أن لدينا العمود التالي لأسماء فرق كرة السلة في برنامج Excel:

لنفترض أننا نريد عكس اسم كل فريق وعرض النتائج في الخلية المقابلة في العمود B.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض العمود B اسم كل فريق في العمود A بشكل عكسي.

على سبيل المثال:

• يصبح Mavs svaM
• توتنهام يصبح SrupS
• الصواريخ تصبح stekcoR
• يصبح الملوك sgniK

وما إلى ذلك وهلم جرا.

لاحظ أن الدالة StrReverse تعمل أيضًا مع الأرقام.

على سبيل المثال، سيؤدي تطبيق الدالة StrReverse على الرقم 1234 إلى إرجاع 4321 .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى
فبا: كيفية حساب عدد الصفوف في النطاق
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS