Lọc dữ liệu trong Table từ điều kiện bên ngoài table (1 người xem)

[buihung.8]

nhờ mọi người giúp mình xử lý phép lọc dữ liệu trong Table sử dụng điều kiện lọc bên ngoài Table mà không cần sử dụng filter của Table

 

[Let'GâuGâu]

nhờ mọi người giúp mình xử lý phép lọc dữ liệu trong Table sử dụng điều kiện lọc bên ngoài Table mà không cần sử dụng filter của Table

kết quả lọc đặt ở đâu?
có bao nhiêu cái A1 trong table của bạn?
nếu chỉ có 1 cái thì xài vlookup

 

[buihung.8]

lọc luôn tại Table và có thể có rất nhiều A1 hoặc các A khác, giống như danh sách học viên các lớp học

 

[Let'GâuGâu]

lọc luôn tại Table và có thể có rất nhiều A1 hoặc các A khác, giống như danh sách học viên các lớp học

lọc luôn tại table mà không cần filter, vậy mấy chhú A2,Ả bỏ đi đâu???!!!

 

[Hoàng Tuyên]

Private Sub Worksheet_Change(ByVal Target As Range)Dim cls As Range
Dim Rng As Range
Set Rng = Sheet1.Range("A6:B" & Sheet1.Range("D65536").End(3).Row)
Rng.EntireRow.Hidden = True
For Each cls In Rng
    If Range("$J$3") = "All" Then
        Rng.EntireRow.Hidden = False
    ElseIf cls Like Range("$J$3") Then
        cls.EntireRow.Hidden = False
    End If
Next
End Sub

Bạn chép đoạn code này vào sheet1 là được.

 

[buihung.8]

các đối tượng thuộc lớp A2,... tự động ẩn đi bạn

 

[buihung.8]

Private Sub Worksheet_Change(ByVal Target As Range)Dim cls As Range
Dim Rng As Range
Set Rng = Sheet1.Range("A6:B" & Sheet1.Range("D65536").End(3).Row)
Rng.EntireRow.Hidden = True
For Each cls In Rng
    If Range("$J$3") = "All" Then
        Rng.EntireRow.Hidden = False
    ElseIf cls Like Range("$J$3") Then
        cls.EntireRow.Hidden = False
    End If
Next
End Sub

Bạn chép đoạn code này vào sheet1 là được.

mình thử rồi nhưng vẫn chưa được bạn ak

 

[Hoàng Tuyên]

Đây bạn thử kiểm tra xem đã OK chưa.

 

[Hoàng Tuyên]

mình thử rồi nhưng vẫn chưa được bạn ak

Bạn chép đoạn code đó vào đâu.
Bạn phải mở file của bạn lên, bấm Alt + F11 sau đó kích đúp chuột vào sheet1 và copy đoạn code vào là xong.

 

[buihung.8]

Bạn chép đoạn code đó vào đâu.Bạn phải mở file của bạn lên, bấm Alt + F11 sau đó kích đúp chuột vào sheet1 và copy đoạn code vào là xong.

Thank bạn, tớ chỉnh lại được rồi. đoạn code của bạn thừa đoạn đầu.

 

[Hoàng Tuyên]

Thank bạn, tớ chỉnh lại được rồi. đoạn code của bạn thừa đoạn đầu.

Đoạn đầu là đoạn nào?
Có phải đoạn này không?

[COLOR=#000000][I]    If Range("$J$3") = [/I][/COLOR][COLOR=#ff0000][I]"All"[/I][/COLOR][COLOR=#000000][I] Then
[/I][/COLOR][COLOR=#000000][I]        Rng.EntireRow.Hidden = False[/I][/COLOR]

Đoạn code này mình bổ sung cho bạn để nếu chọn filter "A1" thì bạn vẫn có thể cho hiện "All" nếu cần.

 

[buihung.8]

thừa đoạn code này Dim cls As Range ở dòng đầu tiên bạn ak

 

[Ba Tê]

thừa đoạn code này Dim cls As Range ở dòng đầu tiên bạn ak

Không thừa đâu.
Bạn thêm dòng này:
Option Explicit
Phía trên đầu trang trong khung VBE rồi bỏ dòng Dim cls As Range xem sao.
Dòng Option Explicit để đòi hỏi các Biến cần phải khai báo đầy đủ.
Bạn sẽ có dịp "ngẫn tò te" chẳng biết tại sao code "chạy bậy" khi bạn không có nó.

 

[Hoàng Tuyên]

Tốt nhất bạn tải file mình đính kèm về chạy các trường hợp bạn sẽ thấy OK