كود ادراج صفوف متعددة فى الاكسل Excel VBA Insert Multiple Rows

بسم الله الرحمن الرحيم
اهلا بكم متابعى موفع عالم الاوفيس

درس جديد وكود جديد من مكتبة اكواد اكسل ماكرو VBA

كود ادراج صفوف متعددة فى الاكسل  Insert Multiple Rows


فى هذا الكود نقوم بادراج اى عدد من الصفوف التى  تحددها من التاكد من الخلية التى يمكن ادراج الصفوف منها

Sub InsertMultipleRows()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox("Enter number of columns to insert", "Insert Columns")
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub
اذا كنت تريد اضافة الصفوف اعلى الصف المحدد نستبدل الكود
XlToDown بالكود التالى XlToUp


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق