نحوه مقدار دهی به چندین کمبو باکس

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kia97

    • 2018/11/26
    • 13
    • 44.00

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

    سلام
    من میخواهم یه فرم طراحی کنم که از تعداد زیادی مثلا 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
    Last edited by Amir Ghasemiyan; 2018/12/12, 09:43. دلیل: قرار دادن كد در تگ مربوطه
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

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

    کد:
    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

      • 2018/11/26
      • 13
      • 44.00

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

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4598
        • 100.00

        #4
        نوشته اصلی توسط kia97
        سلام و ممنون از راهنمایی شما چون باعث شد یه چیز جدیدی یاد بگیرم
        اما من میخوام داخل یوزر فرمها این کار انجام بدهم این روش شما جواب گو هستش؟
        با تشکر
        نه دوست عزيز. همون كد شما بايد جوابگو باشه
        فايل نمونه پيوست كنيد رو فايل بررسي كنم مشكلش چيه

        کامنت

        چند لحظه..