ایجاد حلقه برای کامبو باکس

[younes672]

با سلام
دوستان چطور میتونم برای 30 عدد کمبوباکس یه حلقه بنویسم.

Private Sub ComboBox1_Change()Dim z1, i
z1 = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
For i = 1 To z1
If ComboBox1 = Sheets("Sheet1").Range("b" & i) Then
TextBox1 = Sheets("Sheet1").Range("a" & i)
End If
Next
End Sub

[mrhartsclube]

سلام دوست عزیز
لطفا اطلاعات کافی برای پاسخگویی رو مهیا کنید.
تعداد کمبو باکسهاتون رو در داخل صورت سوال توجیه نکردین و توضیح ندادین منظورتون از یه حلقه چیه؟
با یه حلقه میخواین 30 تا کمبو باکس رو پیمایش کنید؟
کد ایونت تغییر اندیس کمبوباکسهاتون همه یکی هست و یه حلقه ست؟
کد ایونت تغییر اندیس کمبو باکسهاتون یه کد مشابه هست فقط نام هر کمبو باکس باید داخل کد تغییر کنه؟
اینا صورت سوالهایی هست که با سوال شما توی ذهن من به وجود اومده و واقعا جواب دادن به همشون وقت تلف کردنه مخصوصا اگه هر سه تاش هم اشتباه برداشت کرده باشم ;) پس لطفا اگه جواب سوال براتون مهمه با عکس و فایل و کد و مثال کاملا توضیح بدین و اگه براتون مهم نیست اصلا نپرسید. ممنونم

[younes672]

سلام دوست عزیز
یوزرفرمی طراحی کرده ام که 30عدد کامبوباکس ( 101 الی 130) و 30 عدد تکست باکس (281 الی 310) دارد. که با انتخاب کشویی نام خانوادگی از کمبوباکس شماره پرسنلی از شیت جستجو و به تکست باکس ها انتقال داده می شود.
برای هر کامبوباکس به صورت جداگانه کد نوشته ام که شماره پرسنلی را به تکست باکس ها انتقال میده در پایین برای نمونه 3 کد را قرار داده ام.
از آنجا که حجم کد ها زیاد هست میخواستم اگر امکانش هست با حلقه جایگزین کرد
سپاسگرارم




Private Sub ComboBox101_Change()Dim z1, i
z1 = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
For i = 1 To z1
If ComboBox101 = Sheets("Sheet1").Range("b" & i) Then
TextBox281 = Sheets("Sheet1").Range("a" & i)
End If
Next
End SubPrivate Sub ComboBox102_Change()Dim z1, i
z1 = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
For i = 1 To z1
If ComboBox102 = Sheets("Sheet1").Range("b" & i) Then
TextBox282 = Sheets("Sheet1").Range("a" & i)
End If
Next
End SubPrivate Sub ComboBox103_Change()Dim z1, i
z1 = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "b").End(xlUp).Row
For i = 1 To z1
If ComboBox103 = Sheets("Sheet1").Range("b" & i) Then
TextBox283 = Sheets("Sheet1").Range("a" & i)
End If
Next
End Sub