كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟
في كثير من الحالات ، قد تحتاج إلى إدراج صف جديد فارغ في موضع محدد من ورقة العمل الخاصة بك. في هذه المقالة ، سنوضح لك كيفية إدراج صف جديد فارغ تلقائيًا عن طريق النقر فوق زر الأمر في Excel.
أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر
أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر
يمكنك تشغيل التعليمات البرمجية لـ VBA التالية لإدراج صف جديد فارغ بالنقر فوق زر الأمر. الرجاء القيام بما يلي.
1. أولاً ، تحتاج إلى إدخال زر الأمر. من فضلك اضغط المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:
2. ثم ارسم زر الأمر إلى ورقة العمل التي تريد إضافة صفوف جديدة إليها ، انقر بزر الماوس الأيمن فوق زر الأمر وانقر عقارات من قائمة النقر بزر الماوس الأيمن.
3. في ال عقارات في مربع الحوار ، أدخل النص المعروض لزر الأمر في ملف شرح مربع تحت مصنف علامة التبويب ، ثم أغلق مربع الحوار.
يمكنك أن ترى تغيير النص المعروض لزر الأمر كما هو موضح أدناه لقطة الشاشة.
4. انقر بزر الماوس الأيمن فوق زر الأمر مرة أخرى ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
5. ثم ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، يرجى استبدال الكود الأصلي برمز VBA أدناه في ملف رمز نافذة.
رمز فبا: أدخل صفًا جديدًا فارغًا تلقائيًا بواسطة زر الأمر
Private Sub CommandButton1_Click()
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
Title:="Kutools for excel", Type:=1)
Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub
ملاحظات: في الكود ، CommanButton1 هو اسم زر الأمر الذي قمت بإنشائه.
6. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. وأوقف تشغيل وضع التصميم تحت المطور علامة التبويب.
7. انقر فوق زر الأمر الذي تم إدخاله ، ثم أ كوتولس ل إكسيل ينبثق مربع الحوار. الرجاء إدخال رقم صف معين حيث تريد إضافة صف جديد فارغ ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
ثم يتم إدراج الصف الفارغ الجديد في موضع محدد من ورقة العمل الخاصة بك كما هو موضح أدناه لقطة الشاشة. وتحافظ على تنسيق الخلية للخلية أعلاه.
مقالات ذات صلة:
- كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
- كيفية تنسيق الخلية لتبدو وكأنها زر ثلاثي الأبعاد في إكسيل؟
- كيفية إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!