Lọc dữ liệu theo nhiều điều kiện (1 người xem)

[Ai_Ma_Biet]

Chào Anh, Chị.

Mình có file Excel gồm 2 sheet.

Sheet "Chi tiet" thể hiện tất cả dữ liệu nguyên 1 năm: từ cột A đến cột M
Sheet "Tong hop" mình muốn lọc dữ liệu từ sheet "Chi tiet" theo điều kiện tại O2 đến Q3 như sau:
O2 là ngày bắt đầu
O3 là ngày kết thúc
P2 là MSKH cần lọc
Q2 là MSGM cần lọc
Nếu P2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, Q2
Nếu Q2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, P2.
Nếu cả P2 và Q2 không có dữ liệu thì chỉ xét điều kiện tại O2, O3.

Cám ơn Anh chị.
Mình có làm mẫu sẵn tại sheet "Tong hop"

 

[Ba Tê]

Chào Anh, Chị.

Mình có file Excel gồm 2 sheet.

Sheet "Chi tiet" thể hiện tất cả dữ liệu nguyên 1 năm: từ cột A đến cột M
Sheet "Tong hop" mình muốn lọc dữ liệu từ sheet "Chi tiet" theo điều kiện tại O2 đến Q3 như sau:
O2 là ngày bắt đầu
O3 là ngày kết thúc
P2 là MSKH cần lọc
Q2 là MSGM cần lọc
Nếu P2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, Q2
Nếu Q2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, P2.
Nếu cả P2 và Q2 không có dữ liệu thì chỉ xét điều kiện tại O2, O3.

Cám ơn Anh chị.
Mình có làm mẫu sẵn tại sheet "Tong hop"

Vận dụng các ô điều kiện để dùng Advanced Filter là được.

 

[snow25]

Chào Anh, Chị.

Mình có file Excel gồm 2 sheet.

Sheet "Chi tiet" thể hiện tất cả dữ liệu nguyên 1 năm: từ cột A đến cột M
Sheet "Tong hop" mình muốn lọc dữ liệu từ sheet "Chi tiet" theo điều kiện tại O2 đến Q3 như sau:
O2 là ngày bắt đầu
O3 là ngày kết thúc
P2 là MSKH cần lọc
Q2 là MSGM cần lọc
Nếu P2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, Q2
Nếu Q2 không có dữ liệu thì chỉ xét theo điều kiện O2,O3, P2.
Nếu cả P2 và Q2 không có dữ liệu thì chỉ xét điều kiện tại O2, O3.

Cám ơn Anh chị.
Mình có làm mẫu sẵn tại sheet "Tong hop"

Nếu biết VBA thì bạn chạy code này xem nhé.

Sub loc()
    Dim i As Long, lr As Long, ngaybd As Long, ngaykt As Long, T, arr, kq, dk As String, dks As String, N(), a As Long
    Dim T1, b As Integer, k As Integer, j As Integer
    With Sheets("chi tiet")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         If lr < 2 Then Exit Sub
         arr = .Range("A2:M" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 13)
    End With
    With Sheets("tong hop")
         ngaybd = .Range("o2").Value
         ngaykt = .Range("o3").Value
         T = Array(9, 10)
         T1 = .Range("p2:q2")
         For i = 1 To 2
             If Len(T1(1, i)) > 0 Then
                b = b + 1
                dk = dk & "#" & T1(1, i)
                ReDim Preserve N(1 To b)
                N(b) = T(i - 1)
             End If
         Next i
         For i = 1 To UBound(arr)
             If CLng(arr(i, 1)) >= ngaybd And CLng(arr(i, 1)) <= ngaykt Then
                dks = Empty
                For k = 1 To b
                    dks = dks & "#" & arr(i, N(k))
                Next k
                If dk = dks Then
                   a = a + 1
                   For j = 1 To 13
                       kq(a, j) = arr(i, j)
                   Next j
                End If
            End If
         Next i
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         If lr > 2 Then .Range("A2:M" & lr).ClearContents
         If a Then .Range("A2:M2").Resize(a).Value = kq
    End With
End Sub

 

[Binbo2020]

Dùng hàm thấy nó sao sao

 

[Ai_Ma_Biet]

Nếu biết VBA thì bạn chạy code này xem nhé.

Sub loc()
    Dim i As Long, lr As Long, ngaybd As Long, ngaykt As Long, T, arr, kq, dk As String, dks As String, N(), a As Long
    Dim T1, b As Integer, k As Integer, j As Integer
    With Sheets("chi tiet")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         If lr < 2 Then Exit Sub
         arr = .Range("A2:M" & lr).Value
         ReDim kq(1 To UBound(arr), 1 To 13)
    End With
    With Sheets("tong hop")
         ngaybd = .Range("o2").Value
         ngaykt = .Range("o3").Value
         T = Array(9, 10)
         T1 = .Range("p2:q2")
         For i = 1 To 2
             If Len(T1(1, i)) > 0 Then
                b = b + 1
                dk = dk & "#" & T1(1, i)
                ReDim Preserve N(1 To b)
                N(b) = T(i - 1)
             End If
         Next i
         For i = 1 To UBound(arr)
             If CLng(arr(i, 1)) >= ngaybd And CLng(arr(i, 1)) <= ngaykt Then
                dks = Empty
                For k = 1 To b
                    dks = dks & "#" & arr(i, N(k))
                Next k
                If dk = dks Then
                   a = a + 1
                   For j = 1 To 13
                       kq(a, j) = arr(i, j)
                   Next j
                End If
            End If
         Next i
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         If lr > 2 Then .Range("A2:M" & lr).ClearContents
         If a Then .Range("A2:M2").Resize(a).Value = kq
    End With
End Sub

Cám ơn Anh nhiều. Anh có thể sửa giúp Em trường hợp này:
Chỗ Q2 nếu điền vào MSGM thì sẽ lọc loại trừ MSGM đó ra, còn lại sẽ lọc hết.

 

[Ba Tê]

Cám ơn Anh nhiều. Anh có thể sửa giúp Em trường hợp này:
Chỗ Q2 nếu điền vào MSGM thì sẽ lọc loại trừ MSGM đó ra, còn lại sẽ lọc hết.

Hình như gợi ý của bài #2 không có giá trị.

 

[Ai_Ma_Biet]

Hình như gợi ý của bài #2 không có giá trị.

Ý là giờ thêm cách lọc là sẽ loại những MSGM có tại Q2 để tiện lọc theo nhiều cách.

 

[Ba Tê]

Ý là giờ thêm cách lọc là sẽ loại những MSGM có tại Q2 để tiện lọc theo nhiều cách.

Thua luôn rồi..................
Trong file bài #6, ô Q2 bạn có 3 lựa chọn:
1/ Để trống: Lấy tất các mã
2/ Nhập 1 mã, ví dụ "GMA", lọc chỉ lấy mã "GMA"
3/ Nhập "<>GMA", lọc lấy tất cả các mã khác với "GMA".
Tương tự bạn có thể áp dụng cho ô P2.
Các ngày trong O1 và O2 bắt buộc phải có.
Bạn muốn có bao nhiêu cái "tiện..." nữa?

 

[Hoàng Nhật Phương]

Ý là giờ thêm cách lọc là sẽ loại những MSGM có tại Q2 để tiện lọc theo nhiều cách.

Bạn thử tải file trong bài này về tham khảo thêm bài này xem có ứng dụng được gì không, trong file đó có rất nhiều các làm khác nhau:

Lọc dữ liệu-chứa nhiều điều kiện lọc?

Em không biết, máy em chạy bình thường mà, chỉ có 4 dòng thôi. File bài 96. @NHN_Phương lỗi này do MS quy định thế. Bạn đọc thêm https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/filter-property-ado, nếu có nhiều điều kiện lọc thì làm kiểu này rất dài...

www.giaiphapexcel.com

 

[ptm0412]

Bạn thử tải file trong bài này về tham khảo thêm bài này xem có ứng dụng được gì không, trong file đó có rất nhiều các làm khác nhau:

Lọc dữ liệu-chứa nhiều điều kiện lọc?

Em không biết, máy em chạy bình thường mà, chỉ có 4 dòng thôi. File bài 96. @NHN_Phương lỗi này do MS quy định thế. Bạn đọc thêm https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/filter-property-ado, nếu có nhiều điều kiện lọc thì làm kiểu này rất dài...

www.giaiphapexcel.com

Bài trong link đó có điều kiện tìm kiếm không chuẩn mà cứ khoe hoài. Bài chủ đề này xài Acvanced filter của lão @Ba Tê là đủ, cái đó chuẩn.

 

[Hoàng Nhật Phương]

Bài trong link đó có điều kiện tìm kiếm không chuẩn mà cứ khoe hoài. Bài chủ đề này xài Acvanced filter của lão @Ba Tê là đủ, cái đó chuẩn.

Ơ, chú Mỹ cứ thù con cái vụ dữ liệu không chuẩn chỉnh nhỉ hehe.
Thầy BaTê mà tham gia thì không còn gì mà chê được nữa. Nhưng vì con thấy bạn đó đòi tiện hơn gì đó mới bảo qua đó tham khảo thêm nhiêug cách khác nữa ạ.

 

[ptm0412]

bạn đó đòi tiện hơn gì đó

Cái gì đó tiện hơn, cũng nằm sẵn trong Advanced filter. Chỉ không biết xài Adv. Filter mới tưởng không đủ, không tiện.

Ơ, chú Mỹ cứ thù con cái vụ dữ liệu không chuẩn chỉnh nhỉ

Chết tiệt thì nhớ dai thôi, chứ thù thì làm gì được

 

[Ai_Ma_Biet]

Thua luôn rồi..................
Trong file bài #6, ô Q2 bạn có 3 lựa chọn:
1/ Để trống: Lấy tất các mã
2/ Nhập 1 mã, ví dụ "GMA", lọc chỉ lấy mã "GMA"
3/ Nhập "<>GMA", lọc lấy tất cả các mã khác với "GMA".
Tương tự bạn có thể áp dụng cho ô P2.
Các ngày trong O1 và O2 bắt buộc phải có.
Bạn muốn có bao nhiêu cái "tiện..." nữa?

Chỗ đổi ngày qua dạng số nhìn bất tiện, làm trực tiếp tại O2, O3 luôn được không.

 

[Hoàng Nhật Phương]

Chỗ đổi ngày qua dạng số nhìn bất tiện, làm trực tiếp tại O2, O3 luôn được không.

Bạn vẫn làm trực tiếp trên ô O1,O2 mà.
Còn R2 và S2 Thầy làm cho nó chỉ link từ 2 ô này sang thôi bạn không thích thì ẩn 2 cột R và S là được mà.

 

[Ai_Ma_Biet]

x

Bạn vẫn làm trực tiếp trên ô O1,O2 mà.
Còn R2 và S2 Thầy làm cho nó chỉ link từ 2 ô này sang thôi bạn không thích thì ẩn 2 cột R và S là được

xóa luôn được không.

 

[Hoàng Nhật Phương]

x

xóa luôn được không.

Được chứ bạn, bạn có thể xử lý trong code chuyển vùng điều kiện lọc ra chỗ khác tránh xa vùng dữ liệu của bạn gọi là vùng tạm.
Sau đó code sẽ đưa dữ liệu điều kiện lọc vào các vùng này (link từ từ các ô mà bạn muốn) sau khi lọc dữ liệu xong code xóa sạch cái vùng tạm này đi không để lại dấu vết.

 

[Ai_Ma_Biet]

Được chứ bạn, bạn có thể xử lý trong code chuyển vùng điều kiện lọc ra chỗ khác tránh xa vùng dữ liệu của bạn gọi là vùng tạm.
Sau đó code sẽ đưa dữ liệu điều kiện lọc vào các vùng này (link từ từ các ô mà bạn muốn) sau khi lọc dữ liệu xong code xóa sạch cái vùng tạm này đi không để lại dấu vết.

làm giúp mình đi

 

[Hoàng Nhật Phương]

làm giúp mình đi

Bạn thử xóa dữ liệu trong cột R và S rồi sử dụng đoạn code này xem:

Option Explicit

Sub GPE()

    Dim r As Long, rTam As Range
    Const cTam As String = "ZZ1"
    r = Sheets("Chi tiet").Range("A100000").End(xlUp).Row
    With Sheets("Tong hop")
        .Range("A1:M" & r).Clear
        Set rTam = .Range(cTam)
        rTam.Resize(2, 2).Value = .Range("P1:Q2").Value
        rTam.Offset(, 2).Resize(, 2).Value = Sheets("Chi tiet").Range("A1")
        rTam.Offset(1, 2).Value = ">=" & .Range("O1").Value
        rTam.Offset(1, 3).Value = "<=" & .Range("O2").Value
        Sheets("Chi tiet").Range("A1:M" & r).AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=rTam.Resize(2, 4), CopyToRange:=.Range("A1:M1"), Unique:=False
        rTam.Resize(2, 4).Clear
    End With
    
End Sub

 

[ptm0412]

Chỗ đổi ngày qua dạng số nhìn bất tiện, làm trực tiếp tại O2, O3 luôn được không.

xóa luôn được không.

làm giúp mình đi

Bạn đang nhờ giúp mà viết cộc lốc như thế này là không lịch sự, nếu không nói là khiếm nhã.

 

[Ai_Ma_Biet]

Bạn đang nhờ giúp mà viết cộc lốc như thế này là không lịch sự, nếu không nói là khiếm nhã.

thấy cũng đầy đủ rồi mà. người sống nội tâm thì như vậy thôi. có sai quy tắc diễn đàn không Mod