في Excel ، التسلسل هو عملية ضم سلسلتين معًا لتكوين سلسلة واحدة. ببساطة ، إذا كان لدينا جدول يحتوي على الأسماء الأولى في عمود واحد والأسماء الأخيرة في عمود آخر ، فيمكننا استخدام إجراء التسلسل لربطها ودمجها في خلية واحدة في جزء من الثانية. في Excel ، لدينا وظيفة تسمى CONCATENATE () تتيح لنا القيام بهذا التسلسل. ومع ذلك ، في VBA ، هذا النوع من الوظائف غير مسموح به. لا يمكننا استخدام CONCATENATE () في كود VBA لأنه لن يعمل. لأن VBA يفتقر إلى الوظائف المضمنة ولا يمكننا استخدام وظائف جداول البيانات. لذلك ، سيوضح لك هذا الدرس كيفية استخدام سلسلة VBA لدمج خلايا وأعمدة وصفوف متعددة في Excel.

تنزيل Practice Workbook

تنزيل هذا المصنف التدريبي للتمرين أثناء قراءة هذه المقالة.

مقدمة إلى وظيفة VBA Concatenate

كما لدينا ذكر أن Excel ليس لديه أي وظيفة مضمنة لـ VBA Concatenate ، ولكن يمكننا أن نجعلها تعمل كدالة من خلال دمج سلاسل مختلفة مع عوامل التشغيل. هنا نستخدم علامة العطف (& amp؛) كمعامل.

⟴ بناء الجملة

String1 = " النص الأول"

String2 = “ النص الثاني”

⟴ إرجاع القيمة

Return_value = String1 & amp؛ String2

4 استخدامات مختلفة لـ VBA Concatenateالوظيفة في Excel

هنا ، سوف نستخدم 4 طرق مختلفة لأداء عملية التسلسل. سنطبق عوامل تشغيل مختلفة بالاقتران مع كود VBA لتحقيق ذلك.

1. استخدم عامل Ampersand (& amp؛) لربط الخلايا في VBA Concatenate

كما هو موضح في لقطة الشاشة أدناه ، لدينا مجموعة بيانات من عمودين مع الأسماء الأولى في عمود واحد والأسماء الأخيرة في الآخر. من خلال دمج العمودين ، يمكننا الآن الحصول على الأسماء الكاملة. نظرًا لأن VBA لا يحتوي على أي طرق مضمنة للتسلسل ، فسنستخدم عامل العطف (& amp؛) كما هو مفصل في الإرشادات أدناه.

الخطوة 1:

• أولاً ، اضغط على Alt + F11 لفتح ورقة عمل ممكنة بماكرو.
• ثم انقر فوق
• حدد الوحدة النمطية .

الخطوة 2:

• لدمج خليتين في خلية واحدة ، انسخ والصق التالي VBA

9481

هنا ،

• String1 = خلايا (5 ، 2) القيمة هي موقع الخلية الأول B5 ، الصف 5 ، و العمود 2 ​​ .
• String2 = الخلايا (5 ، 3). القيمة هي موقع الخلية الثاني C5 ، الصف 5 ، والعمود 3 .
• خلايا (5 ، 5) .Value = String1 & amp؛ String2 هو موقع خلية النتيجة E5 ، الصف 5 والعمود 5 .
• String1 & amp؛ String2 هما السلسلتان المرتبطتان بعلامة العطف (& amp؛)

الخطوة3:

• احفظ واضغط F5 لتشغيل البرنامج.

لذلك ، ستحصل على النتيجة في خلية E5 من ورقة العمل الحالية.

الخطوة 4:

• اتبع وكرر الخطوات من أجل بقية الخلايا والحصول على النتائج كما هو موضح في الصورة أدناه.

اقرأ المزيد: كيفية استخدام VBA StrComp في Excel ( 5 أمثلة شائعة)

2. استخدم العامل الإضافي (+) لربط الخلايا في VBA Concatenate

كما هو موضح في القسم السابق ، لقد استخدمنا علامة العطف (& amp ؛) عامل لضم سلاسل الخلايا. يمكنك الحصول على نفس النتيجة من خلال تطبيق علامة الجمع (+) بدلاً من علامة العطف (& amp؛) عامل التشغيل. للقيام بذلك ، اتبع هذه الخطوات.

الخطوة 1:

• لفتح ماكرو في Excel ، اضغط على Alt + F11 .
• انقر فوق إدراج وحدد
• بعد فتح صفحة البرنامج ، قم بلصق التالي VBA

1192

هنا ،

• الخلايا (5 ، 5). القيمة = String1 + String2 هذا السطر نستخدم علامة الجمع (+) بدلاً من علامة العطف (& amp؛)

الخطوة 2 :

• بعد اللصق ، احفظ واضغط F5 لتشغيل البرنامج. وبالتالي ، سترى التغيير في الخلية E5 .

• للحصول على النتائج النهائية ، املأ الخلايا المطلوبة عن طريق تنفيذ الخطوات السابقة مرة أخرى.

قراءة المزيد: كيفية استخدام وظيفة VBA StrConv (5 أمثلة)

مماثلة القراءات:

• كيفية استدعاء Sub في VBA في Excel (4 أمثلة)
• إرجاع قيمة في وظيفة VBA (كلاهما قيم صفيف وغير صفيف)
• كيفية استخدام دالة VBA DIR في Excel (7 أمثلة)
• استخدم دالة VBA UCASE في Excel ( 4 أمثلة)
• كيفية استخدام وظيفة InStr في VBA (3 أمثلة)

3. إضافة أعمدة متعددة باستخدام VBA Concatenate

في الطريقتين السابقتين ، ناقشنا كيفية دمج خليتين. ومع ذلك ، إذا أردنا تطبيقه على العمود بأكمله ، فستستغرق إضافة واحد تلو الآخر وقتًا طويلاً. سنعلمك كيفية إضافة عدة أعمدة بالكامل باستخدام كود VBA لهذا الغرض.

الخطوة 1:

• أولاً ، لفتح ماكرو اضغط على Alt + F11
• اختر الوحدة من إدراج علامة التبويب
• ثم قم بلصق ما يلي VBA

7813

هنا ،

• باستخدام أوراق العمل ("Sheet3") هي اسم ورقة العمل الحالية.
• LastRow = .Cells (.Rows.Count، “B”). End (xlUp) .Row هو اسم العمود الأول.
• With .Range (“E5: E” & amp؛ LastRow) هو نطاق خلية إرجاع النتيجة.
• .Formula = "= B5 & amp؛ C5 ” هي الصيغة للانضمام إلىالخلية الأولى من النطاق.

الخطوة 2:

• ثم ، أخيرًا ، احفظ واضغط على F5 لتشغيل البرنامج.

نتيجة لذلك ، ستحصل على النتائج بالكامل في عمود.

قراءة المزيد: كيفية استخدام VBA Rnd في Excel (4 طرق)

4. انضم إلى صفوف متعددة باستخدام VBA Concatenate

بالإضافة إلى إضافة أعمدة متعددة ، يمكننا أيضًا تطبيق VBA رمز لربط عدة صفوف في واحد. كما هو موضح في لقطة الشاشة أدناه ، نريد أن نجمع الصفوف الثلاثة في صف واحد. لتسلسل الصفوف ، اتبع الخطوات البسيطة أدناه.

الخطوة 1:

• لتنشيط ماكرو في Excel ، اضغط على Alt + F11 .
• ثم حدد الوحدة النمطية من أدخل
• للتسلسل الصفوف ، الصق VBA

8156

هنا ،

• Set SourceRange = Range (“B5: D5”) هو نطاق الخلية المصدر.
• النطاق ("B8"). القيمة = الاقتطاع (i) هو رقم الخلية المعادة.

الخطوة 2:

• أخيرًا ، احفظ البرنامج واضغط F5 للتشغيل.

وهكذا ، سيتم عرض النتيجة النهائية لسلسلة الصفوف الثلاثة في الخلية B8 .

اقرأ المزيد: How to إظهار الصفوف العليا في Excel (7 طرق)

الخاتمة

للتلخيص ، آمل أن يكون هذا المنشور قد قدم إرشادات واضحة حول كيفية استخدام VBA المتسلسلة في تفوق بعدة طرق. كليجب تعلم هذه التقنيات واستخدامها على بياناتك. افحص كتاب التدريب واستخدم معرفتك المكتشفة حديثًا. بسبب دعمكم الكريم ، نحن متحمسون لمواصلة إنشاء ورش عمل مثل هذه.

لا تتردد في الاتصال بنا إذا كان لديك أي استفسارات. يرجى إخبارنا برأيك في منطقة التعليقات أدناه.

سيقوم فريق Exceldemy بالرد باستمرار على أسئلتك.