[حل شده] نحوه مقدار دهی به چندین کمبو باکس

[kia97]

سلام
من میخواهم یه فرم طراحی کنم که از تعداد زیادی مثلا 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

[Amir Ghasemiyan]

سلام دوست عزيز
اين كدهايي كه شما قرار داديد در يوزرفرم ها كاربرد داره. در مورد آبجكت هايي كه داخل شيت قرار داده ميشه از روشي شبيه اين بايد استفاده كنيد.
تو اين كد بررسي ميكنه آيا آبجكت موجود در شيت يك چك باكس هست يا نه.

Sub CheckboxLoop()
Dim cb As Shape
For Each cb In ActiveSheet.Shapes
  If cb.Type = msoFormControl Then
    If cb.FormControlType = xlCheckBox Then
      If cb.ControlFormat.Value = xlOn Then
        'Do something if checked...
      ElseIf cb.ControlFormat.Value = xlOff Then
        'Do something if not checked...
      End If
    End If
  End If
Next cb
End Sub

[kia97]

سلام و ممنون از راهنمایی شما چون باعث شد یه چیز جدیدی یاد بگیرم
اما من میخوام داخل یوزر فرمها این کار انجام بدهم این روش شما جواب گو هستش؟
با تشکر

[Amir Ghasemiyan]

سلام و ممنون از راهنمایی شما چون باعث شد یه چیز جدیدی یاد بگیرم
اما من میخوام داخل یوزر فرمها این کار انجام بدهم این روش شما جواب گو هستش؟
با تشکر

نه دوست عزيز. همون كد شما بايد جوابگو باشه
فايل نمونه پيوست كنيد رو فايل بررسي كنم مشكلش چيه