Tạo danh mục trong form

[doanhhoang79]

Chào các anh chi!

Tôi tạo 02 ComboBox tỉnh và huyện. Tôi muốn khi mình chọn ComboBox một tỉnh nào đó thì ComboBox huyện sẽ chỉ liệt kê các huyện có trong tỉnh đó.

VD: Tôi chọn Hà Nội, thì sẽ liệt kê các quận huyện của HN, Chọn Tp. HCM thì chỉ liệt kê các quận huyện của Tp. HCM.

Trong file đính kèm tôi đã tạo mẫu nhưng nó liệt kê toàn bộ nên nhiều khi tìm mất nhiều thời gian và đôi khi nhập sai huyện.

Mong các anh chị giúp đỡ để ComboBox hiển thị dữ liệu như mong muốn.

Xin cảm ơn,

 

[vanhesing]

Như đã nói ở trên:

Nhân đây cho bạn tham khảo luôn

Private Sub Tinh_Change()
  Dim CountItem As Long, RngAdd As String
  Huyen.RowSource = ""
  With Range(Sheet3.[A2], Sheet3.[A65536].End(xlUp))
    CountItem = WorksheetFunction.CountIf(.Cells, Tinh)
    If CountItem Then
      RngAdd = "'" & .Parent.Name & "'!" & .Offset(WorksheetFunction.Match(Tinh, .Cells, 0) - 1, 1).Resize(CountItem).Address
      Huyen.RowSource = RngAdd
    End If
  End With
End Sub

Cách làm này đương nhiên nhanh hơn gấp nhiều lần so với cách dùng AutoFilter + 1 vòng lập

Dear Bác NDU .
Em đang vướng mắt chổ này tìm được bài này đã lâu nhưng vẫn chưa thỏa mãn , em định lập topic khác nhưng swoj hao tài nguyên của rôm nên cho em hỏi luôn ở đây . bác thông cảm .
Trong bài này em thấy tên các tỉnh thành được sắp xếp rỏ ràng theo từng tỉnh thành từ trên xuống
Câu hỏi là nếu em đảo lộn vị trí các tỉnh thành thì nó có ra đúng ko ? em đã tét thử , copy TPHCM xuống 1 tỉnh của Hải Phòng(Huyện An Lão ) , nhưng khi chọn combobox1 là TPHCM thì combobox 2 không hiện ra huyện An Lão mà hiện ra huyện Hồng Bàng >
Vậy khi ta xáo trộn các tỉnh thành thì code này ko hiệu quả ?Liệu có cách nào khác ko ?
Thanks Bác