Danh mục cho combobox trên form

[vanhesing]

Dear All !
Mình có 1 vấn đề mong cả nhà giúp đỡ .
Trong file mình đã tạo 1 code để lọc ( dựa theo 1 bài trên VBA) theo danh mục trong combobox1 .nhưng kết quả cho ra ở combobox2 thì ko như ý muốn . vì danh sách ở cột A trong sheet ko theo thứ tự mà lẫn lộn (ý mình muốn là vậy vì danh mục này cập nhật thường xuyên ) mà code mình học được trên VBA thì nó lại lọc theo thứ tự . mình muốn combobox2 lọc danh sách thỏa mãn danh mục ở combobox1
Mọi người vui lòng xem file .
Thanks

 

[ndu96081631]

Dear All !
Mình có 1 vấn đề mong cả nhà giúp đỡ .
Trong file mình đã tạo 1 code để lọc ( dựa theo 1 bài trên VBA) theo danh mục trong combobox1 .nhưng kết quả cho ra ở combobox2 thì ko như ý muốn . vì danh sách ở cột A trong sheet ko theo thứ tự mà lẫn lộn (ý mình muốn là vậy vì danh mục này cập nhật thường xuyên ) mà code mình học được trên VBA thì nó lại lọc theo thứ tự . mình muốn combobox2 lọc danh sách thỏa mãn danh mục ở combobox1
Mọi người vui lòng xem file .
Thanks

Có hàm Filter2DArray tôi viết sẵn rồi, cứ thế mà xài thôi

Dim SrcRng As Range, dmList(), cvList
Private Sub UserForm_Initialize()
  Dim i As Long, tmp As String, lR As Long
  With Sheets("Setting")
    Set SrcRng = .Range(.[A2], .[C65536].End(xlUp))
  End With
  CV.ColumnCount = 3: CV.TextColumn = 3
  dmList = UniqueList(SrcRng.Resize(, 1))
  If IsArray(dmList) Then DM.List() = dmList
End Sub

Private Sub CV_DropButtonClick()
  Dim FindStr As String
  FindStr = DM.Text
  If Trim(FindStr) <> "" Then cvList = Filter2DArray(SrcRng, 1, FindStr, False)
  If IsArray(cvList) Then CV.List() = cvList
End Sub

Trong module có dùng 2 hàm: UniqueList và Filter2DArray

 

[vanhesing]

Có hàm Filter2DArray tôi viết sẵn rồi, cứ thế mà xài thôi

Dim SrcRng As Range, dmList(), cvList
Private Sub UserForm_Initialize()
  Dim i As Long, tmp As String, lR As Long
  With Sheets("Setting")
    Set SrcRng = .Range(.[A2], .[C65536].End(xlUp))
  End With
  CV.ColumnCount = 3: CV.TextColumn = 3
  dmList = UniqueList(SrcRng.Resize(, 1))
  If IsArray(dmList) Then DM.List() = dmList
End Sub

Private Sub CV_DropButtonClick()
  Dim FindStr As String
  FindStr = DM.Text
  If Trim(FindStr) <> "" Then cvList = Filter2DArray(SrcRng, 1, FindStr, False)
  If IsArray(cvList) Then CV.List() = cvList
End Sub

Trong module có dùng 2 hàm: UniqueList và Filter2DArray

hic. em quên mất hàm này , tại vì em chỉ mún code đơn giản như file em đưa lên thôi , trong file chính em cũng áp dụng hàm Filter2DArray cho việc khác , vậy giờ em dùng thêm hàm UniqueList nữa .
Thanks Bác em sẽ nghiên cứu hàm này