Excel: نموذج ماكرو لإدراج صفوف متعددة

يستضيف Microsoft Excel عددًا من الميزات التي تمكن المستخدمين من إنشاء أوراق عمل مخصصة تمامًا لاحتياجاتهم. من بين هذه الوظائف ، القدرة على إنشاء ماكرو ، والذي يسمح للمستخدمين بإجراء العمليات الحسابية ومعالجة البيانات دون المرور بحركات متكررة.

إدراج صفوف متعددة في ورقة عمل Excel

اكسل المهمة

سيمكّنك النص أدناه من إدراج صفوف متعددة بين صفوف موجودة في جدول بيانات Excel. سيمكّنك هذا الماكرو من إدراج قدر معين من الصفوف الفارغة في جدول البيانات الخاص بك ، ويمكن تعديله وفقًا لاحتياجاتك.

قبل ماكرو:

 TITLE1
TITLE2
Title3
Title4 

بعد ماكرو:

TITLE1
TITLE2
Title3
Title4 

عينة ماكرو

فيما يلي رمز الماكرو المطلوب لتنفيذ المهمة أعلاه:

 اختبار فرعي ()
خافت ي طالما ، ص المدى
j = InputBox ("اكتب عدد الصفوف المراد إدراجها")
مجموعة ص = المدى ("A2")
فعل
النطاق (r.Offset (1 ، 0) ، r.Offset (j ، 0)). EntireRow.Insert
Set r = Cells (r.Row + j + 1، 1)
MsgBox r.Address
إذا كان r.Offset (1، 0) = "" ثم الخروج قم
عقدة
نهاية الفرعية