Giúp sửa code lọc dữ liệu nhiều điều kiện (1 người xem)

[xuanquy1188]

Nhờ các thầy các bạn tư vấn giúp làm sao đoạn code lọc của mình nó nhanh hơn được không ạ?

Mình tính lọc bằng 1 sheet khác cho nó khỏi phải Hiden nhưng không biết làm như thế nào cả. Chỉ biết chọn Hiden ở Sheet hiện tại.

Với lại cho mình hỏi có thể có cách nào mình không cần nhân nút Lọc nó vẫn hiển thị ngay mỗi khi mình click lựa chọn không?

Rất mong nhận được sự giúp đỡ của các bạn. Xin cám ơn rất nhiều.

 

[giaiphap]

Bạn chọn xong điều kiện lọc và Click vào sheet Loc để xem kết quả.

 

[vanthinh3101]

Nhờ các thầy các bạn tư vấn giúp làm sao đoạn code lọc của mình nó nhanh hơn được không ạ?

Mình tính lọc bằng 1 sheet khác cho nó khỏi phải Hiden nhưng không biết làm như thế nào cả. Chỉ biết chọn Hiden ở Sheet hiện tại.

Với lại cho mình hỏi có thể có cách nào mình không cần nhân nút Lọc nó vẫn hiển thị ngay mỗi khi mình click lựa chọn không?

Rất mong nhận được sự giúp đỡ của các bạn. Xin cám ơn rất nhiều.

Mình thấy code của bạn hơi phức tạp thì phải.
Đối với lọc, code của mình
[TABLE="class: grid, width: 500"]
[TR]
[TD]Sub filter()
Dim lr As Long
With Sheets("DATA")
lr = .Range("A" & Rows.Count).End(xlUp).Row
End With
With Sheets("DATA").Range("A7:M" & lr)
.Parent.AutoFilterMode = False
.AutoFilter
If Range("F3").Value <> "T" & ChrW(7892) & "NG" Then
.AutoFilter field:=5, Criteria1:=Range("F3").Value
If Range("F4").Value <> "T" & ChrW(7892) & "NG" Then
.AutoFilter field:=3, Criteria1:=Range("F4").Value
If Range("F5").Value <> "T" & ChrW(7892) & "NG" Then
.AutoFilter field:=6, Criteria1:=Range("F5").Value
End If
End If
End If
End With
End Sub
[/TD]
[/TR]
[/TABLE]

Đối với mở rộng, code của mình
[TABLE="class: grid, width: 500"]
[TR]
[TD]Sub filter_off() Dim lr As Long
With Sheets("DATA")
lr = .Range("A" & Rows.Count).End(xlUp).Row
End With
With Sheets("DATA").Range("A7:M" & lr)
.Parent.AutoFilterMode = False
End With
End Sub
[/TD]
[/TR]
[/TABLE]