Xin code autofilter theo kiểu contains trong VBA (1 người xem)

[alohn]

Chào cả nhà !
Mình đang tìm kiếm đoạn code lọc theo điều kiện kiểu contains trong vba. Mình có ghi một đoạn marco nhưng để thay đổi giá trị tìm kiếm thì không dùng biến x được thì phải.

Sub Macro6()
Dim x As String
x = Sheet1.Range("D4")
ActiveSheet.Range("$A$5:$R$17").AutoFilter Field:=4, Criteria1:="=*x*", _
Operator:=xlAnd
End Sub

Bạn nào có đoạn code thì cho mình xin với , hoặc làm thế nào để đưa biến x vào Criteria1:="=*x*", _ xin mọi người chỉ giáo.

Thank so much

 

[viehoai]

Chào cả nhà !
Mình đang tìm kiếm đoạn code lọc theo điều kiện kiểu contains trong vba. Mình có ghi một đoạn marco nhưng để thay đổi giá trị tìm kiếm thì không dùng biến x được thì phải.

Sub Macro6()
Dim x As String
x = Sheet1.Range("D4")
ActiveSheet.Range("$A$5:$R$17").AutoFilter Field:=4, Criteria1:="=*x*", _
Operator:=xlAnd
End Sub

Bạn nào có đoạn code thì cho mình xin với , hoặc làm thế nào để đưa biến x vào Criteria1:="=*x*", _ xin mọi người chỉ giáo.

Thank so much

Ý bạn như thế này phải không?

 

[ndu96081631]

Chào cả nhà !
Mình đang tìm kiếm đoạn code lọc theo điều kiện kiểu contains trong vba. Mình có ghi một đoạn marco nhưng để thay đổi giá trị tìm kiếm thì không dùng biến x được thì phải.

Sub Macro6()
Dim x As String
x = Sheet1.Range("D4")
ActiveSheet.Range("$A$5:$R$17").AutoFilter Field:=4, Criteria1:="=*x*", _
Operator:=xlAnd
End Sub

Bạn nào có đoạn code thì cho mình xin với , hoặc làm thế nào để đưa biến x vào Criteria1:="=*x*", _ xin mọi người chỉ giáo.

Thank so much

Sửa code thành vầy:

Sub Macro6()
  Dim x As String
  x = Sheet1.Range("D4").Value
  ActiveSheet.Range("$A$5:$R$17").AutoFilter 4, "*" & x & "*"
End Sub