Code để lọc theo nhiều điều kiện (1 người xem)

[LuuGiaPhúc]

Em nhờ các anh chị sửa giúp em đoạn code này :
Em có 1 đoạn code dùng để tổng hợp nhiều file có nhiều sheet về 1 file hiện hành , trong đó, trước khi ghép thì code sẽ filter để loại bỏ ở cột A những hàng nào có 3 chữ cái đầu là ICC và BVB , code của em hiện giờ vẫn đang hoạt động tốt , đoạn code lọc đó như sau :

Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*"

Bây giờ em muốn thêm 2 điều kiện nữa là loại bỏ thêm những hàng mà ở cột A có 3 chữ cái đầu là ZPC , BAN , em đã sửa code thành
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*" , Criteria3:="<>ZPC*" , Criteria4:="<>BAN*"
nhưng không hiểu sao nó không hoạt động, thậm chí bây giờ nó không lọc bất kỳ giá trị nào luôn không lẽ sau điều kiện Operator:=xlAnd, nó chỉ cho mình thêm 1 Criteria thôi hay sao ???

Data của em có dạng như sau :

 

[Hoàng Tuấn 868]

Em nhờ các anh chị sửa giúp em đoạn code này :
Em có 1 đoạn code dùng để tổng hợp nhiều file có nhiều sheet về 1 file hiện hành , trong đó, trước khi ghép thì code sẽ filter để loại bỏ ở cột A những hàng nào có 3 chữ cái đầu là ICC và BVB , code của em hiện giờ vẫn đang hoạt động tốt , đoạn code lọc đó như sau :

Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*"

Bây giờ em muốn thêm 2 điều kiện nữa là loại bỏ thêm những hàng mà ở cột A có 3 chữ cái đầu là ZPC , BAN , em đã sửa code thành
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*" , Criteria3:="<>ZPC*" , Criteria4:="<>BAN*"
nhưng không hiểu sao nó không hoạt động, thậm chí bây giờ nó không lọc bất kỳ giá trị nào luôn không lẽ sau điều kiện Operator:=xlAnd, nó chỉ cho mình thêm 1 Criteria thôi hay sao ???

Data của em có dạng như sau :

View attachment 301798

Thử so sánh chỗ điều kiện cũ với điều kiện mới thêm xem khác nhau chỗ nào, có thấy thiếu mục này không: Operator:=xlAnd

 

[ptm0412]

không lẽ sau điều kiện Operator:=xlAnd, nó chỉ cho mình thêm 1 Criteria thôi hay sao ???

Bạn suy luận đúng, giờ chỉ cần thực hiện theo cái bạn nghĩ thôi.

 

[LuuGiaPhúc]

Thử so sánh chỗ điều kiện cũ với điều kiện mới thêm xem khác nhau chỗ nào, có thấy thiếu mục này không: Operator:=xlAnd

Em cũng có thử kiểu :
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*" , Operator:=xlAnd , Criteria3:="<>ZPC*" , Operator:=xlAnd , Criteria4:="<>BAN*" nhưng cũng không được luôn

 

[Hoàng Tuấn 868]

Em cũng có thử kiểu :
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*" , Operator:=xlAnd , Criteria3:="<>ZPC*" , Operator:=xlAnd , Criteria4:="<>BAN*" nhưng cũng không được luôn

Bạn gửi file lên xem cụ thể thế nào.

 

[VetMini]

Filter nhiều lần, mỗi lần 1 hoặc 2 criteria
Mõi câu lệnh filter chỉ có thể có thể chứa 1 xlAnd/Or thôi.

 

[LuuGiaPhúc]

Bạn gửi file lên xem cụ thể thế nào.

Đoạn code em sửa đây ạ

Bài đã được tự động gộp: 18/6/24

Filter nhiều lần, mỗi lần 1 hoặc 2 criteria
Mõi câu lệnh filter chỉ có thể có thể chứa 1 xlAnd/Or thôi.

em cũng có suy luận như thế, tức là mình filter 2 lần , mỗi lần 2 criteria như sau :
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*"
filterRange.AutoFilter Field:=1, Criteria1:="<>ZPC*", Operator:=xlAnd, Criteria2:="<>BAN*"
thì nó lại chỉ lấy theo cái sau , xem như cái đầu không có tác dụng (nó bỏ ZPC và BAN , nhưng vẫn còn ICC và BVB)
chắc em còn sai chỗ nào khác nên chưa làm được

 

[Hoàng Tuấn 868]

Đoạn code em sửa đây ạ

View attachment 301802

Bài đã được tự động gộp: 18/6/24

em cũng có suy luận như thế, tức là mình filter 2 lần , mỗi lần 2 criteria như sau :
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*"
filterRange.AutoFilter Field:=1, Criteria1:="<>ZPC*", Operator:=xlAnd, Criteria2:="<>BAN*"
thì nó lại chỉ lấy theo cái sau , xem như cái đầu không có tác dụng (nó bỏ ZPC và BAN , nhưng vẫn còn ICC và BVB)
chắc em còn sai chỗ nào khác nên chưa làm được

Bài này có lẽ mô tả điều kiện cần lấy để viết code mới sẽ nhanh hơn mò mẫm để sửa bạn ơi.

 

[LuuGiaPhúc]

Bài này có lẽ mô tả điều kiện cần lấy để viết code mới sẽ nhanh hơn mò mẫm để sửa bạn ơi.

Vâng , cảm ơn bạn rất nhiều , tại vì code cũ hiện đang chạy bình thường, chỉ là do có thêm 2 loại văn phòng mới xuất hiện nên mình muốn loại bỏ cho nó nhẹ file tổng hợp thôi , mình nghĩ đơn giản là tìm cách sửa thêm điều kiện lọc ngoài việc bỏ 2 văn phòng trước giờ là ICC* và BVB* thì giờ bỏ thêm ZPC* và BAN* nữa thôi là ổn.

Nếu không thì như bạn góp ý, bạn có thể thay đổi code mới giúp cho mình thì quá tốt rồi, mình xin liệt kê các điều kiện để tổng hợp như sau :
1. Có nhiều file Report1.xls , Report2.xlsx , Report3.xlsx.... do các bạn dưới văn phòng gởi về , mỗi file có thể có 1 sheet , cũng có thể có nhiều sheet. Yêu cầu mình sẽ tổng hợp tất cả về 1 sheet hiện hành của file 1.Data Master.
Lưu ý : do đã từng có lần bị lỗi là , trong các file mà các bạn gởi về , có thể có 1 file nào đó bị lỗi hoặc tổng cộng gom hết toàn bộ data của mọi người về có thể vượt quá 1trieu dòng (lần trước , có 2 file trong tổng số 19 file của các bạn gởi về bị lỗi , cái code cũ nó bỏ qua mà không thông báo gì hết nên dẫn đến thiếu dữ liệu mà mình không biết ==> dẫn đến báo cáo sai, nên mình rút kinh nghiệm , trong code , mình có ràng 2 điều kiện kiểm tra trước khi tổng hợp :

Set wb = Workbooks.Open(myFile(i))
If Err.Number <> 0 Then ' kiem tra xem trong so cac file da chon, có file nào bi loi khong mo duoc hay không, neu co thì phai hien thông báo cho mình biet
MsgBox "File : " & vbNewLine & Mid(myFile(i), InStrRev(myFile(i), "\") + 1) & vbNewLine & vbNewLine & " CÓ LOI KHÔNG COPY DUOC, DA BO QUA FILE NÀY, NHO KIEM TRA LAI NHÉ..", , "LUU Ý : CÓ FILE BI LOI"
Err.Clear
wb.Close False
Else
For Each ws In wb.Worksheets
totalRows = totalRows + ws.UsedRange.Rows.Count
If totalRows > 1048570 Then
MsgBox "Tong data các file da chon nhieu hon 1048570 dòng. Không import duoc."
wb.Close False
Exit Sub
End If

2. Điều kiện tổng hợp : Tổng hợp bắt đầu từ hàng thứ 4 của mỗi sheet (lấy từ Range("A4:AP") gom hết về sheet hiện hành , bắt đầu paste vào ô A3 của file chính , kết thúc mỗi sheet thì cách 1 dòng trống (để sau này dễ kiểm tra lại) . Chú ý , PasteValuesAndNumberFormats để giữ nguyên định dạng của file gốc.
- Loại bỏ những hàng mà trong cột A hoặc trong cột B có 3 chữ cái đầu là 1 trong các ký tự sau : (loại bỏ, không copy nguyên hàng đó vào file chính) : ICC* , BVB* , ZPC* , BAN* , ATD* , DTM*
- Loại bỏ những hàng mà trong cột G có chữ "dummy_collection_agent"
- loại bỏ những hàng mà trong cột I có chữ "AMD".

Sau khi đã hoàn tất việc copy , đến file cuối cùng thì copy hàng tiêu đề của file report (Range("A3:AP3").Copy) và paste nó vào hàng thứ 2 của file chính Range("A2:AP2").PasteSpecial xlPasteValuesAndNumberFormats) . Lý do là vì thỉnh thoảng các file report này sẽ bị thêm cột hoặc xóa cột nên nếu không có thao tác này để đối chiếu thì sẽ dẫn đến lệch cột ==> sai báo cáo (mình có để ở hàng 1 của file chính tiêu đề chuẩn để đối chiếu , nếu sau khi copy hàng tiêu đề từ file report và file chính mà so sánh không giống với hàng thứ 1 thì conditional Formatting sẽ tô màu cột nào bị lệch thì mình sẽ biết

 

[ptm0412]

em cũng có suy luận như thế, tức là mình filter 2 lần , mỗi lần 2 criteria như sau :
...
thì nó lại chỉ lấy theo cái sau

Có 3 cách:
Cách 1:
Dường như cột B của bạn giống y cột A. Nếu vậy thì filter cột A 2 điều kiện này, filter cột B 2 điều kiện kia
Cách 2:
Không dùng AutoFilter mà dùng Advanced filter. Vùng điều kiện đặt ở file Master. Tôi chưa thử nhưng nếu không được thì thiết lập (tạo) vùng điều kiện tại file report.
Cách 3:
Dùng mảng và lọc trong mảng ra mảng mới.

 

[LuuGiaPhúc]

Có 3 cách:
Cách 1:
Dường như cột B của bạn giống y cột A. Nếu vậy thì filter cột A 2 điều kiện này, filter cột B 2 điều kiện kia
Cách 2:
Không dùng AutoFilter mà dùng Advanced filter. Vùng điều kiện đặt ở file Master. Tôi chưa thử nhưng nếu không được thì thiết lập (tạo) vùng điều kiện tại file report.
Cách 3:
Dùng mảng và lọc trong mảng ra mảng mới.

Cột A và cột B gần như 90% giống nhau , nhưng thỉnh thoảng có học viên thay đổi văn phòng (rất ít , nhưng vẫn có) nên bắt buộc phải xem như khác nhau cho an toàn ạ. Em cũng có nghĩ cách 1 như anh nói nên đã áp dụng rồi (lúc trước chỉ loại 4 văn phòng nên em đã dùng đúng như anh nói, là cho cột A lọc 2 văn phòng, cột B lọc 2 văn phòng còn lại , nhưng giờ phát sinh thêm 2 văn phòng mới nên em mới bí , vì không thể ép thêm 2 văn phòng này vào được).
Em cũng có nghĩ tới ý tưởng của cách 2 , là tạo cột phụ, liệt kê hết các văn phòng sẽ bị loại bỏ , rồi cho code so sánh nếu có xuất hiện các văn phòng trong cột phụ ở file master của mình thì loại bỏ , nhưng em làm không được , em dùng vòng lặp for để nó quét thì nó chạy lâu kinh khủng , hơn 15 phút mới load xong 19 file , nên cách đó không dùng được, còn quay về AutoFilter thì load 19 file này chỉ khoảng hơn 4 phút là xong .

Cách 3 thì em không biết làm , hiện tại em dùng mẹo : đó là cho nó tổng hợp về 1 vùng tạm (ví dụ (CA3:EP) rồi dùng hàm mảng filter kết hợp offset để lấy toàn bộ vùng data sau khi tổng hợp ở CA3:EP để lọc bỏ theo các điều kiện của mình, đưa kết quả cuối cùng về ô A3, rồi paste value vùng data sau khi có kết quả của hàm filter , bước cuối cùng là xóa vùng tạm CA3:EP . Nhưng cách này thật sự thủ công quá

 

[CHAOQUAY]

Em nhờ các anh chị sửa giúp em đoạn code này :
Em có 1 đoạn code dùng để tổng hợp nhiều file có nhiều sheet về 1 file hiện hành , trong đó, trước khi ghép thì code sẽ filter để loại bỏ ở cột A những hàng nào có 3 chữ cái đầu là ICC và BVB , code của em hiện giờ vẫn đang hoạt động tốt , đoạn code lọc đó như sau :

Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*"

Bây giờ em muốn thêm 2 điều kiện nữa là loại bỏ thêm những hàng mà ở cột A có 3 chữ cái đầu là ZPC , BAN , em đã sửa code thành
Set filterRange = ws.Range("A3:CK" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
filterRange.AutoFilter Field:=1, Criteria1:="<>ICC*", Operator:=xlAnd, Criteria2:="<>BVB*" , Criteria3:="<>ZPC*" , Criteria4:="<>BAN*"
nhưng không hiểu sao nó không hoạt động, thậm chí bây giờ nó không lọc bất kỳ giá trị nào luôn không lẽ sau điều kiện Operator:=xlAnd, nó chỉ cho mình thêm 1 Criteria thôi hay sao ???

Data của em có dạng như sau :

View attachment 301798

Tạo cột phụ rồi code.
Bao nhiêu điều kiện --> bấy nhiêu cột phụ --> chép cột A vào các cột phụ --> mỗi cột 1 điều kiện cho lành!

 

[ptm0412]

Cách 2 không phải như vậy mà làm như sau:
Tạo vùng điều kiện:


Code:

    Range("A3:J4747").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("B1:E2"), Unique:=False

Cách 3 là dễ vì dùng mảng
Cách 1 là sao chép cột A vào cột Z chẳng hạn, rồi filter 2 lần 4 điều kiện ở 2 cột

 

[VetMini]

Nếu VBA gặp * nó sẽ chuyển sang dạng filter đặc biệt.
Hình như Excel 2013~2016 có cái bug là dạng đặc biệt sẽ hoạt động không đúng với nhiều criteria.
filterRange.AutoFilter Field:=1, Criteria1:=array("ZPC*","BAN*"), Operator:=xlFilterValues
chạy ngon lành, Nhưng
filterRange.AutoFilter Field:=1, Criteria1:=array("ICC*", "BVB*", "ZPC*","BAN*"), Operator:=xlFilterValues
thì chả ra gì cả.

Cách Autofilter trong trường hợp này là:
-Tạo cột lọc (A hoặc cột cuối trong bảng cũng được.
- Code
Range("A4").Formula = "=SUM(COUNTIF(B3,{""VTU*"",""BDG*"",""ZPN*"",""BAN*""}))"
Range("A4:A"& dòng cuối).Filldown
- Fitler: filter lấy cột A, criteria = 0
Nếu muốn xóa cột phụ thì phải copy visible rồi paste lại.

 

[Hoàng Tuấn 868]

Vâng , cảm ơn bạn rất nhiều , tại vì code cũ hiện đang chạy bình thường, chỉ là do có thêm 2 loại văn phòng mới xuất hiện nên mình muốn loại bỏ cho nó nhẹ file tổng hợp thôi , mình nghĩ đơn giản là tìm cách sửa thêm điều kiện lọc ngoài việc bỏ 2 văn phòng trước giờ là ICC* và BVB* thì giờ bỏ thêm ZPC* và BAN* nữa thôi là ổn.

Nếu không thì như bạn góp ý, bạn có thể thay đổi code mới giúp cho mình thì quá tốt rồi, mình xin liệt kê các điều kiện để tổng hợp như sau :
1. Có nhiều file Report1.xls , Report2.xlsx , Report3.xlsx.... do các bạn dưới văn phòng gởi về , mỗi file có thể có 1 sheet , cũng có thể có nhiều sheet. Yêu cầu mình sẽ tổng hợp tất cả về 1 sheet hiện hành của file 1.Data Master.
Lưu ý : do đã từng có lần bị lỗi là , trong các file mà các bạn gởi về , có thể có 1 file nào đó bị lỗi hoặc tổng cộng gom hết toàn bộ data của mọi người về có thể vượt quá 1trieu dòng (lần trước , có 2 file trong tổng số 19 file của các bạn gởi về bị lỗi , cái code cũ nó bỏ qua mà không thông báo gì hết nên dẫn đến thiếu dữ liệu mà mình không biết ==> dẫn đến báo cáo sai, nên mình rút kinh nghiệm , trong code , mình có ràng 2 điều kiện kiểm tra trước khi tổng hợp :

Set wb = Workbooks.Open(myFile(i))
If Err.Number <> 0 Then ' kiem tra xem trong so cac file da chon, có file nào bi loi khong mo duoc hay không, neu co thì phai hien thông báo cho mình biet
MsgBox "File : " & vbNewLine & Mid(myFile(i), InStrRev(myFile(i), "\") + 1) & vbNewLine & vbNewLine & " CÓ LOI KHÔNG COPY DUOC, DA BO QUA FILE NÀY, NHO KIEM TRA LAI NHÉ..", , "LUU Ý : CÓ FILE BI LOI"
Err.Clear
wb.Close False
Else
For Each ws In wb.Worksheets
totalRows = totalRows + ws.UsedRange.Rows.Count
If totalRows > 1048570 Then
MsgBox "Tong data các file da chon nhieu hon 1048570 dòng. Không import duoc."
wb.Close False
Exit Sub
End If

2. Điều kiện tổng hợp : Tổng hợp bắt đầu từ hàng thứ 4 của mỗi sheet (lấy từ Range("A4:AP") gom hết về sheet hiện hành , bắt đầu paste vào ô A3 của file chính , kết thúc mỗi sheet thì cách 1 dòng trống (để sau này dễ kiểm tra lại) . Chú ý , PasteValuesAndNumberFormats để giữ nguyên định dạng của file gốc.
- Loại bỏ những hàng mà trong cột A hoặc trong cột B có 3 chữ cái đầu là 1 trong các ký tự sau : (loại bỏ, không copy nguyên hàng đó vào file chính) : ICC* , BVB* , ZPC* , BAN* , ATD* , DTM*
- Loại bỏ những hàng mà trong cột G có chữ "dummy_collection_agent"
- loại bỏ những hàng mà trong cột I có chữ "AMD".

Sau khi đã hoàn tất việc copy , đến file cuối cùng thì copy hàng tiêu đề của file report (Range("A3:AP3").Copy) và paste nó vào hàng thứ 2 của file chính Range("A2:AP2").PasteSpecial xlPasteValuesAndNumberFormats) . Lý do là vì thỉnh thoảng các file report này sẽ bị thêm cột hoặc xóa cột nên nếu không có thao tác này để đối chiếu thì sẽ dẫn đến lệch cột ==> sai báo cáo (mình có để ở hàng 1 của file chính tiêu đề chuẩn để đối chiếu , nếu sau khi copy hàng tiêu đề từ file report và file chính mà so sánh không giống với hàng thứ 1 thì conditional Formatting sẽ tô màu cột nào bị lệch thì mình sẽ biết

Bài này của bạn có thêm một số điều kiện, để từ từ nghiên cứu thử xem thế nào.

 

[LuuGiaPhúc]

Nếu VBA gặp * nó sẽ chuyển sang dạng filter đặc biệt.
Hình như Excel 2013~2016 có cái bug là dạng đặc biệt sẽ hoạt động không đúng với nhiều criteria.
filterRange.AutoFilter Field:=1, Criteria1:=array("ZPC*","BAN*"), Operator:=xlFilterValues
chạy ngon lành, Nhưng
filterRange.AutoFilter Field:=1, Criteria1:=array("ICC*", "BVB*", "ZPC*","BAN*"), Operator:=xlFilterValues
thì chả ra gì cả.

Cách Autofilter trong trường hợp này là:
-Tạo cột lọc (A hoặc cột cuối trong bảng cũng được.
- Code
Range("A4").Formula = "=SUM(COUNTIF(B3,{""VTU*"",""BDG*"",""ZPN*"",""BAN*""}))"
Range("A4:A"& dòng cuối).Filldown
- Fitler: filter lấy cột A, criteria = 0
Nếu muốn xóa cột phụ thì phải copy visible rồi paste lại.

Cảm ơn bạn rất nhiều, theo như cách bạn hướng dẫn, mình có biến tấu lại 1 chút, khi code chạy, mở file report thứ 1 lên, thì thêm 1 thao tác là copy cột A , paste vào 1 cột phụ ở cuối bảng Range("DA3 : DA" & lastrow) = Range("A3:A" & lastrow).value rồi thì mình có thể dùng lại công thức cũ hiện có của mình để autofilter cột DA này,
filterRange.AutoFilter Field:=94, Criteria1:="<>ZPC*", Operator:=xlAnd, Criteria2:="<>BAN*"
vậy là xem như mình có chỗ để filter thêm 2 điều kiện mới, cuối cùng copy kết quả sau khi filter vào file chính, tất nhiên, mình chỉ copy từ A4 đến AP và bỏ qua cột phụ này.
Để chút nữa mình sẽ thử cách này xem thời gian chạy code có hợp lý không
Cảm ơn bạn đã hướng dẫn

 

[cantl]

Cách 2 không phải như vậy mà làm như sau:
Tạo vùng điều kiện:
View attachment 301804

Code:

    Range("A3:J4747").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
        ("B1:E2"), Unique:=False

Cách 3 là dễ vì dùng mảng
Cách 1 là sao chép cột A vào cột Z chẳng hạn, rồi filter 2 lần 4 điều kiện ở 2 cột

Bác ạ, em hỏi cái, em đặt name trong Name Manager là "_bang" và "_loc". Rồi em thay thế này:

Range("_bang").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range ("_loc"), Unique:=False

thì không lọc được bác ạ.
Không dùng được Name phải không bác?

 

[ptm0412]

Không dùng được Name phải không bác?

Tôi dùng name được bình thường. Khiếp, gần 10 năm mới thấy 1 bài hỏi nghiêm túc, không tán nhảm.

 

[cantl]

Tôi dùng name được bình thường. Khiếp, gần 10 năm mới thấy 1 bài hỏi nghiêm túc, không tán nhảm.

View attachment 303684

Em có bài khác, chỉ giống chủ đề này là filter.
(1) Nếu advanced filter theo Name "_BANG" và "_LOC" thì: sẽ kết quả như ảnh → QUÁ CHUẨN
(2) Nếu dùng code:

Sub zzz()
Range("_BANG").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("_LOC"), Unique:=False
End Sub

thì không ra giống như (1) → SAI BÉT

Tại sao ạ???


Tóm tắt ý đồ chiến thuật: lập bảng theo dõi hàng ngày, cứ sau 7, 15, 30 ngày là phải kiểm tra vị trí
→→→ hôm nay, em muốn liệt kê các vị trí phải kiểm tra để lượn 1 vòng???

 

[ptm0412]

Tại sao ạ???

3 dấu ? cộng với in đậm, chữ to không khiến cho câu hỏi rõ nghĩa hơn hay hỏi vì ấm ức nhiều hơn.

Sai vì dùng text. Để nguyên như vậy thì dù dùng Range("M2:H5") cũng chạy sai. Tìm nguyên nhân sai phải tìm đến nơi đến chốn chứ không được đổ thừa tại Name.

Đúng sẽ là thế này: