Filter sử dụng Cell Reference (1 người xem)

[blq.trung]

Chào các anh/chị,

Cho em hỏi, em có 1 bảng dữ liệu định dạng Table với 2 cột: Name và Value.

Bây giờ em muốn Filter giá trị A trong cột Name, thì thay vì em bấm Filter chọn giá trị A, nhưng em muốn gõ giá trị A vào ô B1 thì Table sẽ Filter giá A.

Em cảm ơn anh/chị nhiều.

 

[phulien1902]

Chào các anh/chị,

Cho em hỏi, em có 1 bảng dữ liệu định dạng Table với 2 cột: Name và Value.

Bây giờ em muốn Filter giá trị A trong cột Name, thì thay vì em bấm Filter chọn giá trị A, nhưng em muốn gõ giá trị A vào ô B1 thì Table sẽ Filter giá A.

Em cảm ơn anh/chị nhiều.

Macro được không bạn ?

Sub ABC()
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Range("$B$2:$C$14").AutoFilter Field:=1, Criteria1:=[b1]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        ABC
    End If
End Sub

 

[blq.trung]

Macro được không bạn ?

Sub ABC()
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Range("$B$2:$C$14").AutoFilter Field:=1, Criteria1:=[b1]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        ABC
    End If
End Sub

Cảm ơn bạn nhe, nhưng làm sao để chạy Macro này, khi mình gõ vào A hoặc B thì không có gì xảy ra hết.

 

[phulien1902]

Cảm ơn bạn nhe, nhưng làm sao để chạy Macro này, khi mình gõ vào A hoặc B thì không có gì xảy ra hết.

1.Bạn mở File ra và nhấn Alt+F11 và chép Code vào cửa sổ Code
2.Ghi lại
3. Trở lại bảng tính, nhập các giá trị A, B,....
Bạn xem File sẽ hiểu

 

[blq.trung]

1.Bạn mở File ra và nhấn Alt+F11 và chép Code vào cửa sổ Code
2.Ghi lại
3. Trở lại bảng tính, nhập các giá trị A, B,....
Bạn xem File sẽ hiểu

Cảm ơn bạn nhiều, mình đã làm được. Tuy nhiên, khi mình thay vùng dữ liệu ActiveSheet.Range("$B$2:$C$14") thành ActiveSheet.Range("$B$2:$E$14"), thì báo lỗi. Bạn giải thích cho mình hiểu tại sao nhe.
Cảm ơn bạn

 

[phulien1902]

Cảm ơn bạn nhiều, mình đã làm được. Tuy nhiên, khi mình thay vùng dữ liệu ActiveSheet.Range("$B$2:$C$14") thành ActiveSheet.Range("$B$2:$E$14"), thì báo lỗi. Bạn giải thích cho mình hiểu tại sao nhe.
Cảm ơn bạn

Tôi chỉ biết rằng tiêu đề lọc phải <> Empty ( trong bài thì B2->E2 phải khác Empty là được)

 

[blq.trung]

Tôi chỉ biết rằng tiêu đề lọc phải <> Empty ( trong bài thì B2->E2 phải khác Empty là được)

Mình đã hiểu rồi, cảm ơn bạn rất nhiều