Sử Dụng AUTOFILTER trong VBA

Liên hệ QC

Đỗ Đức Tuấn

Thành viên mới
Tham gia
14/4/18
Bài viết
12
Được thích
1
Giới tính
Nam
Thân chào cả nhà.

Hiện tại mình mình đang muốn sử dụng VBA để sử dụng Autofilter, theo điều kiện của 1 range mong muốn.

Nhưng khi mình cho điều kiện lọc mang tính chất tương đối thì code lại không chạy ra điều kiện đó.

VD như: có 1 dãy ký tự
202-1x
202-2x
202-2x
202-2x
201-1x
201-2xi
khi mình dùng điều kiện lọc chính xác "202-2x" vào range điều kiện thì code chạy ra kết quả ngon
Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc)

Code:
Sub loc_theo_range()
Sheets("SX").Activate

Range(Range("a5"), Cells(Range("b5").End(xlDown).Row, Range("bb5").End(xlToLeft).Column)).AutoFilter 4, Criteria1:=(Range("D2").Value), Operator:=xlFilterValues

End Sub


Rất mong được sự hỗ trợ của các cao thủ
 

File đính kèm

  • Book1.xlsx
    86.4 KB · Đọc: 11
" Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc) ".
Code cần thêm dấu * vào điều kiện lọc: "202-*".
Muốn biết thêm bạn có thể record code khi fillter text contains
 
" Nhưng khi cho điều kiện lọc là "202-" thì lại không ra kết quả . (mình đã thử các loại nhưng ko đc) ".
Code cần thêm dấu * vào điều kiện lọc: "202-*".
Muốn biết thêm bạn có thể record code khi fillter text contains

Cảm ơn bác.

có thế mà em làm mãi mà ko đc.

Code: đã OK
Range(Range("a5"), Cells(Range("b5").End(xlDown).Row, Range("bb5").End(xlToLeft).Column)).AutoFilter 4, Criteria1:=(Range("D2") & "*"), Operator:=xlFilterValues

Một lần nữa xin cảm ơn bác.
 
Web KT
Back
Top Bottom