كيفية استخدام VBA لإدراج صفوف في Microsoft Excel: أفضل 3 خطوات

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

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

1. استخدم VBA لإدراج صف: مفرد ومتعدد

يمكنك كتابة تعليمات برمجية بسيطة لـ VBA لإدراج صف واحد أو عدة صفوف بعد مراجع الخلايا المعينة باستخدام الأسلوب Insert وخاصية EntireRow لمحرر Excel VBA.

فيما يلي الخطوات التي يمكنك تجربتها مع رموز VBA:

• افتح مصنف Excel الهدف وقم بالوصول إلى أي ورقة عمل Excel حيث تريد إدراج صف.
• اضغط على Alt + F11 لإحضار محرر Excel VBA.
• في محرر الكود ، ابحث عن علامة التبويب إدراج في قسم القائمة وانقر عليها.
• الآن ، انقر فوق الوحدة النمطية لفتح وحدة تحرير رمز VBA فارغة.
• انسخ والصق رمز فبا المذكور أدناه لإدراج صف واحد. يمكنك تغيير نطاق الخلايا إذا كنت ترغب في إدراج الصف في موقع مختلف.

النطاق الفرعي vba_insert_row () ("A3"). EntireRow.Insert End Sub

بمجرد الانتهاء من كتابة الرمز ، اضغط على F5 لتنفيذ ماكرو VBA. سيظهر صف جديد في مرجع الخلية الذي ذكرته في كود فبا.

لإدراج صفوف متعددة ، قم بتغيير مرجع الخلية من عنوان خلية واحدة إلى نطاق من الخلايا. على سبيل المثال ، تحتاج إلى صفين بين A3 و A6 ، أدخل A4: A5 كمرجع الخلية. سيبدو رمز VBA مثل هذا بعد إدخال نطاق الخلايا:

النطاق الفرعي vba_insert_row () ("A4: A5"). الصف بالكامل. أدخل نهاية الجزء الفرعي

2. استخدم فبا لإدراج صف: صف منسوخ جديد

يمكنك استخدام الكود الصغير التالي لنسخ صف ولصقه في مكان آخر.

فرعي vba_insert_row () صفوف (4). نسخ صفوف (6). أدخل التحول: = xlShiftDown End Sub

إذا قمت بتشغيل هذا الرمز ، فسيقوم Excel بنسخ صف A4 ولصقه بين صف A5 و A7 ، وهو A6 . يجب ملاحظة أنه لا يمكن التراجع عن التعديلات التلقائية المستندة إلى VBA باستخدام الأمر Ctrl + Z. تحتاج إلى حذف التغييرات يدويًا.

3. استخدم فبا لإدراج صف: لا يوجد تنسيق

لنفترض أنك تريد إدراج صف بين صفين دون نسخ التنسيق من الصفوف المجاورة. يمكنك القيام بذلك بسهولة عن طريق تشغيل رمز صف إدراج VBA:

Sub vba_insert_row () Rows (5) .EntireRow.Insert Rows (5). ClearFormats End Sub

عند تشغيل برنامج VBA المذكور أعلاه ، سيظهر صف فارغ وخالي من التنسيق في المكان الذي تريده.

الكلمات الأخيرة

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

هل تبحث عن المزيد من الأشياء الممتعة التي يمكن أن يقوم بها Excel VBA من أجلك؟ إليك خيار آخر لك: أصبح التدقيق الإملائي في Excel أمرًا سهلاً باستخدام VBA.