Autofilter bằng VBA

[Chu Thịnh]

Ac ơi cho e hỏi chút với ạ
Em có dùng code filter để sử dụng chức năng lọc tự động khi giá trị tại ô E2 thay đổi thì code đó sẽ tự động lọc theo giá trị vừa input vào
Vấn đề ở đây là khi e thay đổi giá trị tại ô E2 thì code không tự động fimter mà lại báo lỗi "method 'range of object' _Worksheet fail"
----
- Mcro1 là code lọc theo điều kiện ô E2
-Mcro2 là code bỏ tất cả các điều kiện lọc
2 code này thì k có vấn đề gì

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(“E2”)) Is Nothing Then
If Range(“E2”).Value = “” Then
Macro2
Else
Macro1
End If
End If
End Sub

 

[TongDe]

Câu sau đây là của google dịch nha:

Lưu ý mã này không được đặt trong module. Thay vào đó chúng ta đặt trong backend của bảng tính có dữ liệu này.

 

[ptm0412]

Câu sau đây là của google dịch nha:

Lưu ý mã này không được đặt trong module. Thay vào đó chúng ta đặt trong backend của bảng tính có dữ liệu này.

Câu này sai. Tôi để trong module hoài có sao đâu. Có lẽ vấn đề ở chỗ macro không ghi rõ tên sheet.

 

[Chu Thịnh]

Câu này sai. Tôi để trong module hoài có sao đâu. Có lẽ vấn đề ở chỗ macro không ghi rõ tên sheet.

mình để trong sheet đó nhưng k dc. mình k để trong modul

 

[ptm0412]

mình để trong sheet đó nhưng k dc. mình k để trong modul

Nếu cái modul (e) đó bạn giữ mãi cho riêng mình thì không ai xem được để giúp. 3 ngày rồi chưa xong và sẽ kéo dài.

 

[VetMini]

Nếu cái modul (e) đó bạn giữ mãi cho riêng mình thì không ai xem được để giúp. 3 ngày rồi chưa xong và sẽ kéo dài.

Kéo dài cũng lỗi tại cẩu thả. Đã ham viết tắt mà còn chính tả tùm lum.
Nhìn vào bài là không muốn dây dưa nữa.