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