Tìm kiếm từ khóa trong excel (2 người xem)

[quanglenb]

Xin chào các anh,chị trên diễn đàn.
Em xin được các anh/chị giúp đỡ em tạo đoạn code tìm kiếm theo từ khóa mà không cần tạo thuộc tính bảng cho bảng excel cần tìm kiếm.
Mong được sự giúp đỡ.
Xin chân thành cảm ơn!

 

[quanglenb]

Rất mong được truongvu317 giúp mà không mất phí!

 

[HieuCD]

Xin chào các anh,chị trên diễn đàn.
Em xin được các anh/chị giúp đỡ em tạo đoạn code tìm kiếm theo từ khóa mà không cần tạo thuộc tính bảng cho bảng excel cần tìm kiếm.
Mong được sự giúp đỡ.
Xin chân thành cảm ơn!
View attachment 241686

Các thành viên không giúp được vì không rỏ kết quả trả về như thế nào

 

[quanglenb]

Các thành viên không giúp được vì không rỏ kết quả trả về như thế nào

Em có sử dụng thuộc tính bảng và đặt tên bảng và sử dụng code:

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=2, _
        Criteria1:="*" & [K3] & "*", Operator:=xlFilterValues
End Sub

Được kết quả như hình dưới.
Xin được sự giúp đỡ: Không cần tạo thuộc tính bảng mà vẫn tìm kiếm được như trên.
Em xin cảm ơn!

 

[HieuCD]

Em có sử dụng thuộc tính bảng và đặt tên bảng và sử dụng code:

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("bang").Range.AutoFilter Field:=2, _
        Criteria1:="*" & [K3] & "*", Operator:=xlFilterValues
End Sub

Được kết quả như hình dưới.
Xin được sự giúp đỡ: Không cần tạo thuộc tính bảng mà vẫn tìm kiếm được như trên.
Em xin cảm ơn!
View attachment 242052

Theo dữ liệu sheet, dữ liệu khác thì

Private Sub TextBox1_Change()
    ActiveSheet.Range("D5").CurrentRegion.AutoFilter Field:=2, _
        Criteria1:="*" & [K3] & "*", Operator:=xlFilterValues
End Sub

 

[quanglenb]

Theo dữ liệu sheet, dữ liệu khác thì

Private Sub TextBox1_Change()
    ActiveSheet.Range("D5").CurrentRegion.AutoFilter Field:=2, _
        Criteria1:="*" & [K3] & "*", Operator:=xlFilterValues
End Sub

Xin chân thành cảm ơn anh!