Tìm kiếm trong ComboBox và đưa ra danh sách gợi ý

[Blad01]

Nhờ thầy cô, anh chị trong diễn đàn nghiên cứu viết giúp đoạn code với mong muốn như sau:
Dữ liệu được sắp xếp như sheets(“Data”).

1. Làm thế nào để nối tên cơ quan từ sheets("Data") từ cột 1 đến cột 6 vào ComboBox (tên cơ quan bắt đầu từ A3:F(i), i là dòng chưa biết trước vì tên cơ quan còn được thêm vào; dòng 2 là tiêu đề, cột F em để số ví dụ là tên cơ quan gồm 300 dòng). Tên cơ quan được phân theo nhóm và chia thành 6 cột.

2. Do số lượng tên cơ quan rất nhiều (gần 300) nên em mong muốn khi gõ tên cơ quan vào ComboBox thì sẽ thực hiện tìm kiếm trong List của CombobBox => ComboBox sổ xuống và đưa ra gợi ý (tìm tương đối) để người dùng bấm trọn tên cơ quan trong gợi ý vừa tìm kiếm được (bắt buộc phải nhập tên cơ quan trong list của ComboBox).

Câu hỏi em có đưa vào sheet 2. Mong thầy cô và các bạn giúp đỡ.

Em xin cảm ơn !

 

[Maika8008]

Thấy cái không muốn giúp rồi

 

[SA_DQ]

Nhờ thầy cô, anh chị trong diễn đàn nghiên cứu viết giúp đoạn code với mong muốn như sau:
Dữ liệu được sắp xếp như sheets(“Data”).
(1) Do số lượng tên cơ quan rất nhiều (gần 300) nên em mong muốn khi gõ tên cơ quan vào ComboBox thì sẽ thực hiện tìm kiếm tên cơ quan trong sheets(“data”) và đưa kết quả tìm kiếm vào ComboBox (tìm tương đối).

(1) Tên CQ đang ở cột nào trong CSDL?
(2) Bạn nên lấy ví dụ tương đối cụ thể để mọi người bớt tốn thời gian vì bạn.

 

[Blad01]

(1) Tên CQ đang ở cột nào trong CSDL?
(2) Bạn nên lấy ví dụ tương đối cụ thể để mọi người bớt tốn thời gian vì bạn.

Tên cơ quan từ cột 2 đến cột 7 trong sheet data. File đính kèm em có nêu cả mong muốn trong đó ở sheet 2 rồi mà. Dòng 2 của sheet data là tiêu đề, từ dòng 3 trở xuống là tên cơ quan.

Bài đã được tự động gộp: 14/7/20

Thấy cái không muốn giúp rồi

Mong bạn nói rõ hơn vì sao để mình rút kinh nghiệm trong cách đăng bài, cảm ơn bạn.

 

[Maika8008]

Mong bạn nói rõ hơn vì sao để mình rút kinh nghiệm trong cách đăng bài, cảm ơn bạn.

Không tiện nói nhưng không liên quan đến cách đăng bài

 

[SA_DQ]

Bạn xem file, mình tách làm 2 ComboBox, có thể tiện hơn cho bạn

 

[Blad01]

Bạn xem file, mình tách làm 2 ComboBox, có thể tiện hơn cho bạn

Em cảm ơn thầy, cách của thầy rất hay, tuy nhiên có vấn đề là nếu nhóm chi bộ trực thuộc đảng ủy cơ sở có tới hơn 200 chi bộ thì lúc đó tìm tên của chi bộ cũng mất thời gian. Em có tham khảo trên mạng và tìm được đoạn code sau khiến combobox tìm kiếm như google. em thử với cột C trong sheet Data của file đính kèm.

Private Sub cmdTenCQ1_Change()
    Me.cmdTenCQ1.DropDown
    Dim i, j As Integer
    Dim k As String
    i = Application.WorksheetFunction.CountA(Sheet2.Range("C:C"))
    k = "*" & UCase(Me.cmdTenCQ1.Text) & "*"
    
    With Me.cmdTenCQ1
        .List = Sheet2.Range("C2:C" & i).Value
        For j = .ListCount - 1 To 1 Step -1
        If Not UCase(.List(j)) Like k Then
            .RemoveItem (j)
        End If
        Next j
    End With
End Sub

tuy nhiên đoạn code này có nhược điểm là nó luôn để một dòng tiêu đề của kết quả tìm kiếm (em không muốn điều này); nhược điểm nữa là nó không tìm tương đối và không sử dụng phím mũi tên lên xống để chọn tên cơ quan tìm được. Thầy và các bạn trong diễn đàn có thể giúp em khắc phục những nhược điểm em vừa trình bày được không ?. file đính kèm đã có code đánh chữ vào Combobox tìm kiếm rất nhanh.

 

[SA_DQ]

Chuyện này chắc bạn nên liên hệ với HuuThang BD thì nhanh & đúng chỗ hơn.