سلام
من میخواهم یه فرم طراحی کنم که از تعداد زیادی مثلا 30 عدد کمبو باکس تشکیل شده. شکل کار به این صورت هستش:
نام و نام خانوادگی (که داخل تکست باکس قرار میگیره ) استان(که داخل کمبو هستش) سال تولد(که داخل کمبو هست)
از خطی که در بالا نوشتم میخواهم به تعداد 15 خط در فرمم وجود داشته باشه که نهایتا با زدن دکمه ثبت در شیتهای مورد نظرم یکسری عملیات انجام بشه.
بیشتر کارها انجام میدهم اما چطوری میشه به 15 کمبوباکس استان و 15 تا کمبوباکس سال تولد با یک دستور مثلا حلقه زدن مقدار داد (چون دونه به دونه زمان بر هستش)
این کد انجام دادم اما ارور 13 می دهد. چون اگر اشتباه نکنم یکی از کاربران همین انجمن از این کد استفاده کرده بود و جواب گرفته بود اما برای من نتیجه ای نداشت جز ارور13
من میخواهم یه فرم طراحی کنم که از تعداد زیادی مثلا 30 عدد کمبو باکس تشکیل شده. شکل کار به این صورت هستش:
نام و نام خانوادگی (که داخل تکست باکس قرار میگیره ) استان(که داخل کمبو هستش) سال تولد(که داخل کمبو هست)
از خطی که در بالا نوشتم میخواهم به تعداد 15 خط در فرمم وجود داشته باشه که نهایتا با زدن دکمه ثبت در شیتهای مورد نظرم یکسری عملیات انجام بشه.
بیشتر کارها انجام میدهم اما چطوری میشه به 15 کمبوباکس استان و 15 تا کمبوباکس سال تولد با یک دستور مثلا حلقه زدن مقدار داد (چون دونه به دونه زمان بر هستش)
این کد انجام دادم اما ارور 13 می دهد. چون اگر اشتباه نکنم یکی از کاربران همین انجمن از این کد استفاده کرده بود و جواب گرفته بود اما برای من نتیجه ای نداشت جز ارور13
کد:
Private Sub UserForm_Initialize() Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeName(Ctrl) = "ComboBox" And Ctrl.Tag = 3 Then Ctrl.RowSource = "Sheet1!r2:r20" Else Ctrl.RowSource = "Sheet1!s2:s20" End If Next Ctrl End Sub
کامنت