تطبيقات مايكروسوفت أوفيس مصممة جدابذكاء وأنا لا أقول هذا لمجرد أنها تجعل عملي أسهل بكثير. أنا أقول ذلك لأنه صحيح. قبل بضعة أيام قمنا بنشر مشاركة على إدراج مقاطع فيديو YouTube في Office 2013 ولاحظنا أن هذا الخيار كان غائبًا في MS Excel لمجرد أنه لم يكن هناك حاجة إليه. هذا هو نوع الذكاء الذي أتحدث عنه ؛ معرفة الميزات المطلوبة في نوع معين من التطبيق. إنه يتأكد من عدم وجود شيء غير ذي صلة في العرض النهائي. ومع ذلك ، فوجئت عندما وجدت أنه في Excel يسمح لك بإدراج المزيد من الصفوف في ورقة العمل ، فإنه لا يسمح لك بتحديد عدد الصفوف التي تريد إضافتها. لديك العديد من المهام الأخرى لإنجاز هذا مثل تحديد عدد الصفوف التي تريد إضافتها من تلك الموجودة ثم استخدام وظيفة الإدراج. أو يمكنك تكرار خطوة إدراج الصف لعدد الصفوف التي تريدها. إنه أمر متكرر ، ولكن إذا كنت على استعداد لتجنيب خمس دقائق ، فيمكن لهذا الماكرو الصغير الاهتمام بهذه المهمة نيابة عنك.
لأن هذا يتطلب ماكرو ، سوف تحتاج إلىاحفظ الملف كملف Excel مُمكّن للماكرو. للقيام بذلك ، انقر فوق القائمة المنسدلة "حفظ بنوع" في نافذة الحفظ باسم ، وحدد "مصنف Excel Marco Enabled Workbook (* xlsm)".
بعد ذلك ، حان الوقت لكتابة ماكرو. انتقل إلى علامة التبويب عرض وانقر فوق وحدات ماكرو لإنشاء واحدة جديدة. سمها ما شئت وانقر فوق "إنشاء". سيتم فتح النافذة التالية تلقائيًا.
ما هو مهم هنا هو "Sub" و "End Sub"خطوط. سيحتوي السطر الفرعي على اسم الماكرو الخاص بك بينما يشير End Sub إلى نهاية commnads في هذا الماكرو. نظرًا لأنك قمت بإنشائه للتو ، فلا ينبغي أن يكون هناك شيء بين تلك الخطوط كما في لقطة الشاشة أعلاه. الصق ما يلي بين هذين الخطين.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
سيضيف هذا الرمز خمسة صفوف من الأعلى. تتم الإشارة إليه في التعليمات البرمجية كـ A1: A5. لتعديله ليناسب احتياجاتك ، تحتاج إلى تعديل هذا النطاق. تعمل القيمة الأولى كمرجع إلى مكان إدراج الصفوف. إذا قمت بتغييره إلى A100 ، سيتم إدراج الصفوف بعد أول تسعة وتسعين صفًا. بعد ضبط النقطة المرجعية ، تحتاج إلى إدخال عدد الصفوف.
يتم تعريف أرقام الصفوف من خلال نطاق الخلايا A1: A5. سيضيف هذا النطاق 5 صفوف. للعثور على النطاق الصحيح لعدد الصفوف ، على سبيل المثال ، ترغب في إدراج 25 صفًا من A99 ، ستقوم بإضافة 25 إلى النقطة المرجعية بحيث تكون A99 وناقصًا خلية واحدة منها. بمعنى آخر. A100 + 99 - 1 = A198. أنت تضيف صفوفًا وليست أعمدة ، لذا سيتغير الرقم فقط وليس حرف العمود. يجب تحديث الماكرو في كل مرة يتعين عليك فيها إدراج صفوف في محيطها ، لكنه يعد مجرد تعديل صغير ويعمل بشكل جيد جدًا لذا فهو يستحق الوقت المستغرق.
ماكرو عبر دعم Microsoft
تعليقات