نوشته اصلی توسط
sajjadesmaili
با سلام
من میخواستم سه 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
علاقه مندی ها (Bookmarks)