38 thoughts on “Thủ Thuật Excel – Tạo ô tìm kiếm dữ liệu siêu tốc trong Excel

  1. Private Sub txtCVdi_Change()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Bang")
    tbl.Range.AutoFilter 3, "*" & [B1] & "*", xlFilterValues
    tbl.Range.AutoFilter 4, "*" & [B1] & "*", xlFilterValues
    '3,4: STT cot can filter trong bang
    End Sub
    'Code filter trên 2 cột

  2. ActiveSheet.ListObjects(“bang”).Range.AutoFilter Field:=1, _
    Criteria1:=”*”&[D4]&”*”, Operator:=xlFilterValues
    cac ban dung code nay thu

  3. Rất hay, nhưng bạn ơi làm xong lưu lại, khi mở ra lại k nhập được dữ liệu vào ô tìm kiếm là sao nhỉ? cảm ơn nhiều.

  4. "ActiveSheet.ListObjects(""DC"").Range.AutoFilter Field:=1, _

    Criteria1:=""*"" & [b2] & ""*"", Operator:=xlFilterValues"
    Code của các bạn chưa làm được, mình đã mò làm được, cảm ơn admin

  5. code này chỉ lọc được trong 1 sheet, nếu có nhiều sheet thì sẽ ko lọc được, cũng khá bất tiện. :))

  6. Em làm theo mà vẫn bị lỗi code, e xài MIcrosoft 2010. Ai có link code gửi cho em qua mail taititon2@gmail.com

  7. đã thừ và thành công. nhưng mà khi mở lại bản đã lưu thì lại không tìm kiếm được ad cho hỏi cách để lưu lại được hay cách khắc phục với

  8. Ai có mã code cho mình xin vào gmail với ạ. dinhmanh.nd90@gmail.com. Mình viết lại ko được. Cảm ơn mọi người!

  9. Mình nhập đúng đoạn code nhưng bị báo lỗi:
    Run-Time error '9':
    Subscript out of range
    Vậy phải sửa thế nào thầy ơi??
    mail: hacao6319@gmail.com

  10. Có bạn nào biết đoạn code trên cho mình xin với nhé mình viết như trong vide sao không được Gmail của mình: quanthele@gmail.com Thank các bạn!

  11. code này chỉ lọc được với dữ liệu là số chết, văn bản…..không chứa công thức, nếu là kết quả trả về của hàm thì không lọc được, add sửa code để lọc được tất cả các trường hợp dc ko ạ?

  12. ActiveSheet.ListObjects(“bang”).Range.AutoFilter Field”=1,_
    Criteria1:=”*”&”*”, Operator:=xlFilterValues

Leave a Reply

Your email address will not be published. Required fields are marked *