[حل شده] کمبوباکس وابسته به هم

[alijorjani]

سلام من تو محیط vba یه userform دارم که دوتا کمبوباکس داره چطور میتونم اینارو وابسته به هم کنم مثلاً با انتخاب استان فقط شهرهای همان استان ظاهر بشه

[iranweld]

با سلام

فایل پیوست و کدهای آنرا ملاحظه کنید

در هنگام لود شدن یوزر فرم یک لیست بدون تکرار از نام استان ها در کمبوباکس یک ایجاد شده و وقتی یک آیتم از این کمبوباکس انتخاب میگردد
Sub ComboBox1_Change بصورت خودکار نام شهرهای آن استان در کمبوباکس دوم ایجاد میگردد.

Private Sub UserForm_Initialize()

Dim list1 As New Collection

On Error Resume Next

z1 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 2 To z1

list1.Add Range("A" & i), CStr(Range("A" & i))

Next

For i = 1 To list1.Count

ComboBox1.AddItem list1.Item(i)

Next


End Sub


Private Sub ComboBox1_Change()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

ComboBox2.Clear

For i = 2 To z1

If Range("A" & i) = ComboBox1 Then

ComboBox2.AddItem Range("b" & i)

End If

Next

End Sub 

[مهندس تبریزی]

با سلام

فایل پیوست و کدهای آنرا ملاحظه کنید

در هنگام لود شدن یوزر فرم یک لیست بدون تکرار از نام استان ها در کمبوباکس یک ایجاد شده و وقتی یک آیتم از این کمبوباکس انتخاب میگردد
Sub ComboBox1_Change بصورت خودکار نام شهرهای آن استان در کمبوباکس دوم ایجاد میگردد.

Private Sub UserForm_Initialize()

Dim list1 As New Collection

On Error Resume Next

z1 = Cells(Rows.Count, "A").End(xlUp).Row


For i = 2 To z1

list1.Add Range("A" & i), CStr(Range("A" & i))

Next

For i = 1 To list1.Count

ComboBox1.AddItem list1.Item(i)

Next


End Sub


Private Sub ComboBox1_Change()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

ComboBox2.Clear

For i = 2 To z1

If Range("A" & i) = ComboBox1 Then

ComboBox2.AddItem Range("b" & i)

End If

Next

End Sub 

باسلام وعرض ادب
و کسب اجازه از محضر استاد iranweld
لیست تکمیل شده استانهای ایران عزیز به تفکیک کل شهرهای تابعه از قبل آماده داشتم که به پیوست تقدیم حضورتان میشود.
امیدوارم مثمر ثمر واقع شود .

با تشکر مهندس تبریزی