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

يمكنك استخدام الطرق التالية لتسلسل السلاسل في VBA:

الطريقة الأولى: ربط سلسلتين

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

سيقوم هذا المثال بربط السلاسل الموجودة في الخلايا A2 و B2 وعرض النتيجة في الخلية C2 .

الطريقة الثانية: ربط سلسلتين باستخدام محدد

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

سيقوم هذا المثال بربط السلاسل في الخليتين A2 و B2 مع وجود مسافة بين السلاسل وعرض النتيجة في الخلية C2 .

الطريقة الثالثة: ربط عمودين بمحدد

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

سيقوم هذا المثال بربط السلاسل الموجودة في النطاقين A2:A6 و B2:B6 بشرطة سفلية بين السلاسل وعرض النتائج في الخلايا C2:C6 .

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا.

المثال 1: ربط سلسلتين

يمكننا إنشاء الماكرو التالي لربط سلسلتين:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & Range(" B2 ")
End Sub

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

لاحظ أن السلاسل من الخلايا A2 و B2 قد تم ربطها في الخلية C2 .

مثال 2: قم بتوصيل سلسلتين باستخدام محدد

يمكننا إنشاء الماكرو التالي لربط سلسلتين بمسافة كمحدد:

 SubConcatStrings ()
    Range(" C2 ") = Range(" A2 ") & " " & Range(" B2 ")
End Sub

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

لاحظ أن السلاسل الموجودة في الخلايا A2 و B2 تم ربطها بمسافة بينهما ويتم عرض النتيجة في الخلية C2 .

مثال 3: قم بتوصيل عمودين باستخدام محدد

يمكننا إنشاء الماكرو التالي لتسلسل السلاسل في عمودين مع الشرطة السفلية كمحدد:

 SubConcatStrings ()
    Dim i As Integer

    For i = 2 To 6
      Cells(i, 3).Value = Cells(i, 1) & " _ " & Cells(i, 2)
    Next i
End Sub

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

لاحظ أن السلاسل الموجودة في النطاق A2:A6 و B2:B6 تم ربطها بشرطة سفلية بينهما ويتم عرض النتائج في النطاق C2:C6 .

مصادر إضافية

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

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