بسم الله الرحمن الرحيم
اهلا بكم متابعى موفع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسل ماكرو 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