[حل شده] استفاده از combobox هایی متوالی

[sajjadesmaili]

با سلام
من میخواستم سه combobox تو در تو استفاده کنم.
به فرض اگر گزینه یک را انتخاب کنند زیردسته های گزینه یک، اگر گزینه دو را انتخاب کنند زیر دسته های گزینه دوم و به همین صورت تا اخر
باز زیر دسته اول را انتخاب کردیم، باز به همین صورت زیرزیر دسته های گروه اول و تا اخر نمایش داده شود.

[ali.b]

با سلام
من میخواستم سه combobox تو در تو استفاده کنم.
به فرض اگر گزینه یک را انتخاب کنند زیردسته های گزینه یک، اگر گزینه دو را انتخاب کنند زیر دسته های گزینه دوم و به همین صورت تا اخر
باز زیر دسته اول را انتخاب کردیم، باز به همین صورت زیرزیر دسته های گروه اول و تا اخر نمایش داده شود.

سلام
این ی نمونه کد

Private Sub ComboBox1_Change()

Dim cell As Range


Dim LIST2 As New Collection


Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row


ComboBox2.Clear


On Error Resume Next


   For Each cell In Range("B2:B" & Z2)
   
    If cell.Offset(0, -1) = ComboBox1 Then
   
LIST2.Add cell, CStr(cell)


End If
Next


For I = 1 To LIST2.Count


ComboBox2.AddItem LIST2.Item(I)


Next


End Sub


Private Sub ComboBox2_Change()


Z3 = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row


ComboBox3.Clear


Dim cell As Range


    For Each cell In Range("C2:C" & Z3)
    
    If cell.Offset(0, -1) = ComboBox2 Then
    
    With ComboBox3
    
    .AddItem cell
    
End With


End If


Next


End Sub






Private Sub UserForm_Initialize()
z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Dim LIST1 As New Collection
On Error Resume Next
For I = 2 To z1


LIST1.Add Range("A" & I), CStr(Range("A" & I))
'ComboBox1.AddItem Range("A" & I)


Next


For I = 1 To LIST1.Count


ComboBox1.AddItem LIST1.Item(I)


Next


End Sub