كيفية استخدام الماكرو لإدراج الصف أدناه الجدول في إكسيل؟
من الشائع أن نضيف صفوفًا فارغة في أسفل الجدول المحدد لتوسيع الجدول وإضافة محتوى جديد. تتحدث هذه المقالة عن استخدام ماكرو لإدراج صف جديد أسفل جدول محدد والاحتفاظ بصيغة الخلية أعلاه في Excel.
استخدم الماكرو لإدراج صف أسفل الجدول في Excel
استخدم الماكرو لإدراج صف أسفل الجدول في Excel
الرجاء القيام بما يلي لإدراج صف فارغ أسفل جدول محدد مع الماكرو.
1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة لفتح نافذة الوحدة. ثم انسخ والصق رمز فبا أدناه في النافذة.
كود فبا: استخدم الماكرو لإدراج صف فارغ أسفل جدول محدد
Sub AddRows()
'Updated by Extendoffice 2017/9/12
Dim xLastRow As Long
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the table range you will insert blank row below:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xLastRow = xRg.Row + xRg.Rows.Count
xRg.Rows(xLastRow).FillDown
xRg.Rows(xLastRow).SpecialCells(xlCellTypeConstants).ClearContents
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. وأ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد نطاق جدول معين ستضيف صفًا فارغًا أدناه ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
ثم يمكنك مشاهدة إضافة صف فارغ جديد في أسفل الجدول المحدد. والصيغة الموجودة في الخلية أعلاه محجوزة أيضًا في الصف المدرج حديثًا كما هو موضح أدناه:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!