پرسش: Subscript out of range (Error 9)
با سلام خدمت دوستان محترم و اعضای عزیز
در فایل اکسل کد نوشتم بدلیل سنگین بودن فایل با عرض پوزش کد هارو میزارم خدمتتون
مشاهده میفرمایید در شیت "فرم نصب" قرار داد وجود دارد و در شیت "تخصیصی روز" اطلاعات قرار داد در ردیف ها
هر بار از هر ردیف اطلاعات در فرم بارگذاری و چاپ می شود
و سپس ردیف بعدی و چاپ
هنگامی که از در شیت "تخصیصی روز" ردیف ها
Delete sheete rowe
می شود
و اطلاعات جدید
وارد می شود خطای زیر داده می شود
***اگر محدوده اطلاعات انتخاب شود پاک شود و اطلاعات جدید کپی شود خطا نمی دهد ****
2021-05-17_22-36-12.jpg
2021-05-17_22-37-05.jpg
2021-05-17_22-37-28.jpg
Subscript out of range.zip
در فایل اکسل کد نوشتم بدلیل سنگین بودن فایل با عرض پوزش کد هارو میزارم خدمتتون
کد:
Sub Print_Form()
Dim x As Integer
x = 2
Do
Call Fill_Form(x)
Sheets("فرم نصب").PrintOut
x = x + 1
Loop Until IsEmpty(Sheets("تخصيصي روز").Cells(x, 1))
End Sub
Sub Fill_Form(x As Integer)
Sheets("فرم نصب").Shapes("TextBox 49").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 3)
Sheets("فرم نصب").Shapes("TextBox 22").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 18)
Sheets("فرم نصب").Shapes("TextBox 24").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 31)
Sheets("فرم نصب").Shapes("TextBox 84").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 16)
Sheets("فرم نصب").Shapes("TextBox 37").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 17)
Sheets("فرم نصب").Shapes("TextBox 10").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 29)
Sheets("فرم نصب").Shapes("TextBox 8").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 25)
Sheets("فرم نصب").Shapes("TextBox 7").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 26)
Sheets("فرم نصب").Shapes("TextBox 26").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 23)
Sheets("فرم نصب").Shapes("TextBox 4").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 5)
Sheets("فرم نصب").Shapes("TextBox 59").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 1)
Sheets("فرم نصب").Shapes("TextBox 54").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 8)
Sheets("فرم نصب").Shapes("TextBox 47").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 7)
Sheets("فرم نصب").Shapes("TextBox 55").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 6)
Sheets("فرم نصب").Shapes("TextBox 2").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 28)
Sheets("فرم نصب").Shapes("TextBox 9").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 10)
Sheets("فرم نصب").Shapes("TextBox 23").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 19)
Sheets("فرم نصب").Shapes("TextBox 64").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 17)
Sheets("فرم نصب").Shapes("TextBox 3").DrawingObject.Text = Sheets("آدرس").Cells(x, 2)
Sheets("فرم نصب").Shapes("TextBox 6").DrawingObject.Text = Sheets("آدرس").Cells(x, 3)
Sheets("فرم نصب").Shapes("TextBox 13").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 26)
Sheets("فرم نصب").Shapes("TextBox 1").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 16)
Sheets("فرم نصب").Shapes("TextBox 11").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 17)
Sheets("فرم نصب").Shapes("TextBox 14").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 3)
Sheets("فرم نصب").Shapes("TextBox 15").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 26)
Sheets("فرم نصب").Shapes("TextBox 16").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 28)
Sheets("فرم نصب").Shapes("TextBox 17").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 6)
Sheets("فرم نصب").Shapes("TextBox 34").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 19)
Sheets("فرم نصب").Shapes("TextBox 19").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 11)
Sheets("فرم نصب").Shapes("TextBox 18").DrawingObject.Text = Sheets("تخصيصي روز").Cells(x, 10)
Sheets("فرم نصب").Shapes("TextBox 20").DrawingObject.Text = Sheets("آدرس").Cells(x, 7)
End Sub
هر بار از هر ردیف اطلاعات در فرم بارگذاری و چاپ می شود
و سپس ردیف بعدی و چاپ
هنگامی که از در شیت "تخصیصی روز" ردیف ها
Delete sheete rowe
می شود
و اطلاعات جدید
وارد می شود خطای زیر داده می شود
***اگر محدوده اطلاعات انتخاب شود پاک شود و اطلاعات جدید کپی شود خطا نمی دهد ****
2021-05-17_22-36-12.jpg
2021-05-17_22-37-05.jpg
2021-05-17_22-37-28.jpg
Subscript out of range.zip