Filter cả chữ và số (1 người xem)

[kobebryant]

Mình dùng Macro ghi lại đoạn quá trình filter thì nó ghi theo mảng, mình ko biết cách viết lại code sao cho phù hợp.
Cách mình filter là lọc số hoặc chuỗi bắt đầu bằng 500. Nhưng ko hiểu sao code viết ra nó chỉ lọc chuỗi chứ ko lọc số nào bắt đầu là 500

ActiveSheet.Range("$A$7:$P$560).AutoFilter Field:=1, Criteria1:="500*"

Xin cám ơn.

 

[befaint]

Range("$A$7:$P$560).AutoFilter Field:=1

Lọc 1 cột thì chỉ ôm 1 cột thôi.

Range("$A$7:$A$560).AutoFilter Field:=1

---

lọc số hoặc chuỗi bắt đầu bằng 500

Cách đơn giản nhất là tạo cột phụ.

Const RngData = "A7:A560"
Const RngFilter = "Q7:Q560" '---> cột phụ'
Const StrCriteria = "500*"
With ActiveSheet
If .FilterMode = True Then .ShowAllData
.Range(RngFilter).NumberFormat = "@"
.Range(RngFilter).value = .Range(RngData).Value
.Range(RngFilter).AutoFilter Field:=1, Criteria1:=StrCriteria
End With

 

[be_09]

Mình dùng Macro ghi lại đoạn quá trình filter thì nó ghi theo mảng, mình ko biết cách viết lại code sao cho phù hợp.
Cách mình filter là lọc số hoặc chuỗi bắt đầu bằng 500. Nhưng ko hiểu sao code viết ra nó chỉ lọc chuỗi chứ ko lọc số nào bắt đầu là 500

ActiveSheet.Range("$A$7:$P$560).AutoFilter Field:=1, Criteria1:="500*"

Xin cám ơn.

Tại A3 bạn nhập tùy ý theo dữ liệu cột A rồi thử code sau:

Sheet1.Range("A7").CurrentRegion.AutoFilter Field:=1, Criteria1:=[A3]

 

[befaint]

Tại A3 bạn nhập tùy ý theo dữ liệu cột A rồi thử code sau:

Sheet1.Range("A7").CurrentRegion.AutoFilter Field:=1, Criteria1:=[A3]

Trong cột cần lọc có cả số và chuỗi mà anh, và người ta cần lọc được cả số và chuỗi bắt đầu bằng "500"

 

[be_09]

Trong cột cần lọc có cả số và chuỗi mà anh, và người ta cần lọc được cả số và chuỗi bắt đầu bằng "500"

View attachment 252087

Thì ra là thế. Anh hiểu nhằm,

 

[kobebryant]

Lọc 1 cột thì chỉ ôm 1 cột thôi.

Range("$A$7:$A$560).AutoFilter Field:=1

---

Cách đơn giản nhất là tạo cột phụ.

Const RngData = "A7:A560"
Const RngFilter = "Q7:Q560" '---> cột phụ'
Const StrCriteria = "500*"
With ActiveSheet
If .FilterMode = True Then .ShowAllData
.Range(RngFilter).NumberFormat = "@"
.Range(RngFilter).value = .Range(RngData).Value
.Range(RngFilter).AutoFilter Field:=1, Criteria1:=StrCriteria
End With

Có cách nào không cần cột phụ không bạn

Tại A3 bạn nhập tùy ý theo dữ liệu cột A rồi thử code sau:

Sheet1.Range("A7").CurrentRegion.AutoFilter Field:=1, Criteria1:=[A3]

Theo code này thì nó lọc theo dữ liệu tại A3 chứ nó ko lọc theo yêu cầu "500*", nó ko hiểu "*"

 

[befaint]

Có cách nào không cần cột phụ không

Có chứ. Với 1 dòng code cụt ngủn ở bài #1 mà đơn giản nhất như bài #2 cũng gần 10 dòng code mới rồi.
Và quan trọng tốc độ cũng chớp chớp mắt rồi.
Thôi mình cứ tạm vậy đã.

 

[kobebryant]

Có chứ. Với 1 dòng code cụt ngủn ở bài #1 mà đơn giản nhất như bài #2 cũng gần 10 dòng code mới rồi.
Và quan trọng tốc độ cũng chớp chớp mắt rồi.
Thôi mình cứ tạm vậy đã.

Tại mình nghĩ nếu cột phụ thì mình dùng hàm LEFT 3 ký tự rồi filter "500" theo đó là xong

 

[befaint]

Tại mình nghĩ nếu cột phụ thì mình dùng hàm LEFT 3 ký tự rồi filter "500" theo đó là xong

Cách nào đơn giản nhất mà cho kết quả thì mình cứ làm thôi.

Xét một cách tổng thể thì công thức lại không 'ngon' bằng cách trên.

 

[be_09]

Có cách nào không cần cột phụ không bạn

Theo code này thì nó lọc theo dữ liệu tại A3 chứ nó ko lọc theo yêu cầu "500*", nó ko hiểu "*"

Theo gợi ý tại bài 2 (dùng cột phụ).
Tại A3 bạn nhập tùy ý 3 số đầu.

 

[kobebryant]

Theo gợi ý tại bài 2 (dùng cột phụ).
Tại A3 bạn nhập tùy ý 3 số đầu.

Cám ơn anh, xào 2 cái lại có vẻ ổn