پرسش افزایش ردیف ها به تعداد دلخواه

[msp65]

سلام دوستان
برای اضافه کردن تعدادی ردیف به ابتدای شیت از چه کدی باید استفاده کرد(به عنوان مثال بعد از ردیف ۲ میخواهیم ۱۰۰۰ ردیف خالی اضافه کنیم)

[ahura amini]

سلام
کد ذیل مثلا بعد از سطر دوم ١٠ ردیف به سمت پایین اضافه میکنه که شما میتونین مطابق با نیاز خویش تغییرات رو اعمال کنین:

 Rows("3:12").EntireRow.Insert Shift:=xlShiftDown 

[rahi_feri]

سلام

Sub sbInsertingRows()
Dim rownum As Long, numberofrows As Long
rownum = InputBox("بعد از کدام سطر، سطر(ها) اضافه شود؟", "شماره سطر")
numberofrows = InputBox("چه تعداد سطر مي خواهيد وارد شود؟", "تعداد سطر")
Rows(rownum + 1 & ":" & numberofrows + rownum).EntireRow.Insert
End Sub

چک کنید...!

[msp65]

سلام
فوق العاده وعالی
بسیار ممنون سپاس گذارم

[msp65]

اساتید سلام با توجه به کدی که جناب rahi_feri گذاشتن آیا برای افزایش ستون ها به تعداد دلخواه کد زیر درست هست

Sub sbInsertingCloumns()
Dim cloumnnum As Long, numberofcloumn As Long
cloumnnum = InputBox("بعد از کدام ستون، ستون(ها) اضافه شود؟", "شماره ستون")
numberofcloumns = InputBox("چه تعداد ستون مي خواهيد وارد شود؟", "تعداد ستون")
Cloumns(cloumnnum + 1 & ":" & numberofcloumns+ cloumnnum).EntireCloumn.Insert
End Sub