تم تصميم تطبيقات MS Office بذكاء شديد وأنا لا أقول هذا لمجرد أنها تجعل عملي أسهل بكثير. أنا أقول ذلك لأنه صحيح. قبل بضعة أيام قمنا بنشر مشاركة على إدراج مقاطع فيديو YouTube في Office 2013 ولاحظنا أن الخيار كان غائبًا في MS Excel لمجرد أنه لم يكن هناك حاجة إليه. هذا هو نوع الذكاء الذي أتحدث عنه ؛ معرفة الميزات المطلوبة في نوع معين من التطبيق. إنه يتأكد من عدم وجود شيء غير ذي صلة يجعله في العرض النهائي. ومع ذلك ، فوجئت عندما وجدت أنه في Excel يسمح لك بإدراج المزيد من الصفوف في ورقة العمل ، فإنه لا يسمح لك بتحديد عدد الصفوف التي تريد إضافتها. لديك العديد من المهام الأخرى لإنجاز ذلك مثل تحديد عدد الصفوف التي تريد إضافتها من تلك الموجودة ثم استخدام وظيفة الإدراج. أو يمكنك تكرار خطوة إدراج الصف لعدد الصفوف التي تريدها. إنه متكرر ، ولكن إذا كنت على استعداد لتجنيب خمس دقائق ، فيمكن لهذا الماكرو الصغير الاهتمام بهذه المهمة نيابة عنك.

نظرًا لأن هذا يتطلب ماكرو ، فستحتاج إلى حفظ الملف كملف Excel تم تمكين الماكرو. للقيام بذلك ، انقر فوق القائمة المنسدلة "حفظ بنوع" في نافذة الحفظ باسم ، وحدد "مصنف Excel Marco Enabled Workbook (* xlsm)".

بعد ذلك ، حان الوقت لكتابة ماكرو. انتقل إلى علامة التبويب عرض وانقر فوق وحدات ماكرو لإنشاء واحدة جديدة. سمها ما شئت وانقر فوق "إنشاء". سيتم فتح النافذة التالية تلقائيًا.

ما هو مهم هنا هو السطور "Sub" و "End Sub". سيحتوي السطر الفرعي على اسم الماكرو الخاص بك بينما يشير End Sub إلى نهاية commnads في هذا الماكرو. نظرًا لأنك قمت بإنشائه للتو ، فلا ينبغي أن يكون هناك شيء بين تلك الخطوط كما في لقطة الشاشة أعلاه. الصق ما يلي بين هذين الخطين.

Dim CurrentSheet As Object 'Loop خلال كل الأوراق المحددة. لكل ورقة حالية في ActiveWindow.SelectedSheets 'إدراج 5 صفوف في أعلى كل ورقة. CurrentSheet.Range ("a1: a5"). EntireRow.Insert Next CurrentSheet

سيؤدي هذا الرمز إلى إدراج خمسة صفوف من الأعلى. تتم الإشارة إليه في التعليمات البرمجية كـ A1: A5. لتعديله ليناسب احتياجاتك ، تحتاج إلى تعديل هذا النطاق. تعمل القيمة الأولى كمرجع إلى مكان إدراج الصفوف. إذا قمت بتغييره إلى A100 ، سيتم إدراج الصفوف بعد أول تسعة وتسعين صفًا. بعد ضبط النقطة المرجعية ، تحتاج إلى إدخال عدد الصفوف.

يتم تعريف أرقام الصفوف بنطاق الخلية A1: A5. سيضيف هذا النطاق 5 صفوف. للعثور على النطاق الصحيح لعدد الصفوف ، على سبيل المثال ، ترغب في إدراج 25 صفًا من A99 ، ستقوم بإضافة 25 إلى النقطة المرجعية بحيث تكون A99 وناقصًا خلية واحدة منها. أي. A100 + 99 - 1 = A198. أنت تضيف صفوفًا وليست أعمدة ، لذا سيتغير الرقم فقط وليس حرف العمود. يجب تحديث الماكرو في كل مرة يتعين عليك فيها إدراج صفوف في شكل مجموعة صغيرة ، لكنها تعد مجرد تعديل صغير وتعمل بشكل جيد جدًا لذا فهي تستحق الوقت الذي تستغرقه.

ماكرو عبر دعم Microsoft

عملت لك: Robert Gaines & George Fleming | تريد الاتصال بنا؟

التعليقات على الموقع: