Xin code VBA tìm kiếm mã hàng, tên hàng (2 người xem)

[hamhochoi66]

Em chào anh chị,
Trước tiên cho phép em đăng lại một lần nữa vì không biết bài trước có bị đăng nhầm không mà sao không có ai phản hồi hết.
Em có 1 file theo dõi mã hàng, em muốn tìm kiếm theo mã và theo tên hàng khi gõ vào textbox như hình bên dưới. Vấn đề của em là khi dữ liệu lớn, lúc gõ vào ô tìm kiếm theo tên thì nó hơi bị giật. Anh chị có code VBA nào để cải thiện tốc độ tìm kiếm giúp em ạ! Em cảm ơn các anh chị!


Truo

 

[CHAOQUAY]

Em chào anh chị,
Trước tiên cho phép em đăng lại một lần nữa vì không biết bài trước có bị đăng nhầm không mà sao không có ai phản hồi hết.
Em có 1 file theo dõi mã hàng, em muốn tìm kiếm theo mã và theo tên hàng khi gõ vào textbox như hình bên dưới. Vấn đề của em là khi dữ liệu lớn, lúc gõ vào ô tìm kiếm theo tên thì nó hơi bị giật. Anh chị có code VBA nào để cải thiện tốc độ tìm kiếm giúp em ạ! Em cảm ơn các anh chị!

View attachment 297320
Truo

Tìm dòng lệnh trên, lấy dòng dưới để thay. Chạy thử xem có còn đúng yêu cầu hay không rồi tính

"*" & [D2] & "*", Operator:=xlOr
[D2] & "*", Operator:=xlOr

"*" & [F2] & "*", Operator:=xlOr
[F2] & "*", Operator:=xlOr

 

[hamhochoi66]

Tìm dòng lệnh trên, lấy dòng dưới để thay. Chạy thử xem có còn đúng yêu cầu hay không rồi tính

"*" & [D2] & "*", Operator:=xlOr
[D2] & "*", Operator:=xlOr

"*" & [F2] & "*", Operator:=xlOr
[F2] & "*", Operator:=xlOr

Vẫn chạy nhưng nếu bỏ "*" phía trước thì nó filter bị sót, chỉ lấy tên hàng bắt đầu bằng từ tìm kiếm ạ!

 

[bebo021999]

Cái Advance Filter áp dụng liên tục lấy gì mà không giật?
Hình dung gõ dấu trắng nó filter 1 cái, gõ "s" nó giật filter 1 cái, tới khi gõ xong chữ "sấu bao tử" thì đau hết cả mắt
Thường người ta dùng combobox để hiển thị danh sách trích lọc sẽ không bị giật, không như filter trực tiếp trên sheet

 

[CHAOQUAY]

Vẫn chạy nhưng nếu bỏ "*" phía trước thì nó filter bị sót, chỉ lấy tên hàng bắt đầu bằng từ tìm kiếm ạ!

Vậy là bạn mong muốn tìm tất cả các dòng có chứa "từ" mà bạn nhập?
Cũng cần phân biệt là "từ" và "ký tự" là khác nhau nhé

Nếu là tìm dòng chứa "từ" thì có lẽ có thể cải thiện tốc độ được

 

[hamhochoi66]

Vậy là bạn mong muốn tìm tất cả các dòng có chứa "từ" mà bạn nhập?

đúng rồi anh, ý em muốn là khi tìm kiếm sẽ tìm các tất cả dòng có chứa "từ" trong textbox. Vấn đề là khi tìm nó bị giật lag á anh.!

 

[CHAOQUAY]

Bạn sửa TextBox2_Change() về như bên dưới. Sự kiện lọc chỉ thực hiện khi có 1 dấu trắng được gõ cuối từ khóa

Private Sub TextBox2_Change()

If Range("F2").Value <> "" Then
    If InStr(Len(Range("F2").Value), Range("F2").Value, " ") Then
        ActiveSheet.ListObjects("ERPdata").Range.AutoFilter Field:=4, Criteria1:= _
                "*" & Application.Trim(Range("F2")) & "*", Operator:=xlOr
    End If
End If
If Range("F2").Value = "" Then ActiveSheet.ListObjects("ERPdata").Range.AutoFilter

'    ActiveSheet.ListObjects("ERPdata").Range.AutoFilter Field:=4, Criteria1:= _
'        "*" & [F2] & "*", Operator:=xlOr
'If Range("F2").Value = "" Then ActiveSheet.ListObjects("ERPdata").Range.AutoFilter
End Sub

 

[hamhochoi66]

Bạn sửa TextBox2_Change() về như bên dưới. Sự kiện lọc chỉ thực hiện khi có 1 dấu trắng được gõ cuối từ khóa

Private Sub TextBox2_Change()

If Range("F2").Value <> "" Then
    If InStr(Len(Range("F2").Value), Range("F2").Value, " ") Then
        ActiveSheet.ListObjects("ERPdata").Range.AutoFilter Field:=4, Criteria1:= _
                "*" & Application.Trim(Range("F2")) & "*", Operator:=xlOr
    End If
End If
If Range("F2").Value = "" Then ActiveSheet.ListObjects("ERPdata").Range.AutoFilter

'    ActiveSheet.ListObjects("ERPdata").Range.AutoFilter Field:=4, Criteria1:= _
'        "*" & [F2] & "*", Operator:=xlOr
'If Range("F2").Value = "" Then ActiveSheet.ListObjects("ERPdata").Range.AutoFilter
End Sub

Đỡ giật nhiều luôn ạ! Cám ơn anh!