Sử Dụng AUTOFILTER trong VBA

Đỗ Đức Tuấn

Thành viên mới
Tham gia ngày
14 Tháng tư 2018
Bài viết
8
Được thích
1
Điểm
165
Tuổi
33
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

vu_tuan_manh_linh

linhvtm84@gmail.com
Tham gia ngày
27 Tháng hai 2010
Bài viết
2,529
Được thích
1,809
Điểm
860
Nơi ở
Hà Nội
" 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 Tuấn

Thành viên mới
Tham gia ngày
14 Tháng tư 2018
Bài viết
8
Được thích
1
Điểm
165
Tuổi
33
" 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.
 
Top Bottom