mong anh chị giúp đỡ về tìm kiếm trong combobox hiển thị giữ liệu lên listbox (1 người xem)

[daithanh0910]

ở sheet summarize khi bấm vào shape mở form thì trong form sẽ có các combobox và listbox
bây giờ em muốn
ở combobox ca: có thể chọn ca a hoặc b thì dữ liệu trong listbox sẽ lấy dữ liệu từ các namerange tương ứng để hiện thị ( cái này e đã làm được)
ở combobox search : khi nhập dữ liệu cần tìm thì dữ liệu đó sẽ hiển thị lên listbox ( em cần anh chị giúp đỡ em về cái này ạ.)
cảm ơn mọi người nhiều

 

[SA_DQ]

Có lẽ combobox search nên là TextBox
& bạn muốn tìm gì, tìm ở đâu vậy?
. . . . ?

 

[daithanh0910]

Có lẽ combobox search nên là TextBox
& bạn muốn tìm gì, tìm ở đâu vậy?
. . . . ?

em muốn tìm kiếm ở cột 1 trong listbox thong qua combobox hoặc textbox như a nói

 

[SA_DQ]

Để ComboBox Cb_Model có nguồn mình thử thêm các dòng lệnh sau:

Private Sub cb_ca_Change()
 Dim Rws As Long:               Dim Sh As Worksheet '** '
 
 If cb_ca.Value = "A" Then
    Me.ListBox1.RowSource = "dataa"
    Set Sh = ThisWorkbook.Worksheets("data A")
 ElseIf cb_ca.Value = "B" Then
    Me.ListBox1.RowSource = "datab"
    Set Sh = ThisWorkbook.Worksheets("data B")
 Else
    Me.ListBox1.RowSource = ""
 End If
 
 Rws = Sh.[A1].CurrentRegion.Rows.Count
 Me!cb_model.List = Sh.[A1].Resize(Rws).Value
End Sub

Bạn xem có giúp ích được gì cho bạn không?

 

[daithanh0910]

Để ComboBox Cb_Model có nguồn mình thử thêm các dòng lệnh sau:

Private Sub cb_ca_Change()
Dim Rws As Long:               Dim Sh As Worksheet '** '

If cb_ca.Value = "A" Then
    Me.ListBox1.RowSource = "dataa"
    Set Sh = ThisWorkbook.Worksheets("data A")
ElseIf cb_ca.Value = "B" Then
    Me.ListBox1.RowSource = "datab"
    Set Sh = ThisWorkbook.Worksheets("data B")
Else
    Me.ListBox1.RowSource = ""
End If

Rws = Sh.[A1].CurrentRegion.Rows.Count
Me!cb_model.List = Sh.[A1].Resize(Rws).Value
End Sub

Bạn xem có giúp ích được gì cho bạn không?

ý em muốn là khi mình tìm kiếm trong combobox thì listbox sẽ lọc ra những giá trị mình tìm kiếm ấy anh.chứ k phải là thêm nguồn cho combobox ạ.

 

[SA_DQ]

Bạn tham khảo: Mình cho hiện lên ở các TextBox khi ta chọn 1 dòng trong cb_model nè
Mình chưa thể cho hiện trên ListBox được

Private Sub cb_model_Change()
 Dim Rng As Range, sRng As Range, Sh As Worksheet
 Dim ShName As String:                  Dim Rws As Long
 
 ShName = "data " & Me!cb_ca.Text
 Set Sh = ThisWorkbook.Worksheets(ShName)
 With Sh.[A2]
    Rws = .CurrentRegion.Rows.Count
    Set Rng = .Resize(Rws)
 End With
 Set sRng = Rng.Find(Me!cb_model.Text, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Rws = 0 To 16
        mycontrols(Rws).Value = ""
        mycontrols(Rws).Value = sRng.Offset(, Rws).Value
    Next Rws
 End If
End Sub