كيف يمكن إدراج صف جديد فارغ تلقائيًا باستخدام زر الأمر في Excel؟
في العديد من الحالات، قد تحتاج إلى إدراج صف جديد فارغ في موضع محدد من ورقة العمل الخاصة بك. وفي هذه المقالة، سنوضح لك كيفية إدراج صف جديد فارغ تلقائيًا بنقرة واحدة على زر الأمر في Excel.
إدراج صف جديد فارغ تلقائيًا باستخدام زر الأمر
إدراج صف جديد فارغ تلقائيًا باستخدام زر الأمر
يمكنك تشغيل كود VBA التالي لإدراج صف جديد فارغ بمجرد النقر على زر الأمر. يُرجى اتباع الخطوات التالية:
1. أولاً، تحتاج إلى إدراج زر أمر. يُرجى النقر علىالمطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:
2. بعد ذلك، ارسم زر الأمر في ورقة العمل التي تريد إضافة صفوف جديدة إليها، ثم انقر بزر الماوس الأيمن على زر الأمر واخترالخصائصمن قائمة النقر بزر الماوس الأيمن.
3. في مربع حوارالخصائص، أدخل عرض النص لزر الأمر في حقلالتسمية التوضيحيةضمن علامة التبويبمرتبة حسب الفئات، ثم أغلق مربع الحوار.
يمكنك ملاحظة أن عرض النص لزر الأمر قد تغيّر، كما يظهر في لقطة الشاشة أدناه.
4. انقر بزر الماوس الأيمن على زر الأمر مرة أخرى، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن.
5. بعد ذلك، في نافذةمايكروسوفت Visual Basic for Applications، يُرجى استبدال الكود الأصلي بالكود التالي من نوع VBA في نافذةالكود.
كود 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ملاحظة: في الكود، يشيرCommandButton1 إلى اسم زر الأمر الذي أنشأته.
6. اضغط معًا على مفاتيحAlt + Q لإغلاق نافذةمايكروسوفت Visual Basic for Applications، ثم أوقفوضع التصميممن علامة التبويبالمطور.
7. انقر على زر الأمر الذي تم إدراجه، وسيظهر مربع حوارKutools لـ Excel. يُرجى إدخال رقم الصف الذي تريد إضافة صف جديد فارغ فيه، ثم انقر على زرموافق. انظر لقطة الشاشة:
بعد ذلك، يتم إدراج الصف الجديد الفارغ في الموضع المحدد من ورقة العمل كما هو موضح في لقطة الشاشة أدناه، ويحتفظ بتنسيق الخلايا الموجود في الخلية العلوية.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
- كيفية تنسيق الخلية لتبدو كزر ثلاثي الأبعاد في Excel؟
- كيفية إخفاء أو إظهار زر الأمر بناءً على قيمة خلية محددة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل