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

[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