Auto Filter trên nhiều Sheet

[TKT]

Xin hỏi các anh chị chức năng Auto Filter có thể đồng thời trên nhiều sheet được không?. Mình đã thử Group các sheet lại với nhau nhưng chức năng Filter bị vô hiệu. Cấu trúc các sheet giống nhau. Ý mình là nếu ờ Sheet đầu tiên mình chọn mã hàng A001 thì các Sheet còn lại cũng chọn mã hàng A001. Mong sự giúp đỡ của các anh chị. Mình có gửi ví dụ mẫu. đính kèm mong các bạn tải về giúp đỡ.

Mình làm được rồi. Bằng cách tạo các nút lệnh rồi gán Macro, ghi nhận các thao tác lọc ở mã hàng của từng Sheet. Tuy hơi lâu một chút nhưng hiệu quả.

Bác ơi em không hiểu gì hết, bác có thể cho em xin luôn ví dụ được không, ạ?? Bác gán cái macro sao vậy chỉ luôn đi....?

Bạn tải file về xem thử. Có hướng dẫn cách làm. Hy vọng bạn thực hiện được. Cũng dễ thôi. Thân

 

[boong]

Xin phép sửa chút xem có hay hơn chút nào không nhé!!!

 

[anhtuan1066]

Ghi lại macro là cách ngon ăn nhất đễ đạt dc mục đích... tuy nhiên trong trường hợp cũa bạn thì nên dùng vòng lập FOR sẽ giúp code ngắn gọn hơn mà lại mang tính tổng quát hơn... nghiên cứu xem
ANH TUẤN

 

[yeuthamhangxom]

Ghi lại macro là cách ngon ăn nhất đễ đạt dc mục đích... tuy nhiên trong trường hợp cũa bạn thì nên dùng vòng lập FOR sẽ giúp code ngắn gọn hơn mà lại mang tính tổng quát hơn... nghiên cứu xem
ANH TUẤN

Em đang có ý tưởng không dùng code có thể làm được bài toán này không ạ? thầy anhtuan1066 và các anh chị em?

 

[congpv]

File excel của em có hơn 200 sheet,Cấu trúc và dữ liệu các sheet giống hệt nhau. Bây giờ mà em ngồi Auto Filter từng sheet 1 thì vô vô cùng lâu. Em muốn dùng Auto Filer tại cùng 1 vị trí giống nhau trên tất cả các sheet đó cùng 1 lúc bằng lệnh vba hay công thức trong excel, các bác chỉ giáo giúp e với, em đang cần gấp lắm

 

[Quang_Hải]

File excel của em có hơn 200 sheet,Cấu trúc và dữ liệu các sheet giống hệt nhau. Bây giờ mà em ngồi Auto Filter từng sheet 1 thì vô vô cùng lâu. Em muốn dùng Auto Filer tại cùng 1 vị trí giống nhau trên tất cả các sheet đó cùng 1 lúc bằng lệnh vba hay công thức trong excel, các bác chỉ giáo giúp e với, em đang cần gấp lắm

Thấy bài này từ sớm, nhưng vì bạn cần gấp nên giờ này mình mới viết code.
Thử thế này xem. Giả sử bạn cần autofilter tại A1

Sub Autofilter()
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Range(sh.[A1], sh.[A65536].End(3)).Autofilter
Next
End Sub

 

[congpv]

E chạy nó báo lỗi như này bác ahf "compile error
member already exists in an object module from which this object module derives"
Bác ơi vẫn không chạy được bác ah, vì lý do bảo mật nên e không tiện up file nên, bác hướng dẫn lại tỷ mỷ cho e với, em cảm ơn bác

 

[duynhat84]

Cảm ơn các bác. Nhưng khi khóa bảng tính nút lọc không chạy được nữa, nhờ các bác sửa giùm
Xin cảm ơn nhiều.

 

[hoha86]

Thấy bài này từ sớm, nhưng vì bạn cần gấp nên giờ này mình mới viết code.
Thử thế này xem. Giả sử bạn cần autofilter tại A1

Sub Autofilter()
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Range(sh.[A1], sh.[A65536].End(3)).Autofilter
Next
End Sub

Em đã chạy code thành công ah. Tuy nhiên em muốn lọc bỏ những row trống (các ô trống này là giá trị "" trả về do hàm counta()) trong tất cả các sheet nữa thì code sẽ ntn ah. Em chưa có chút gì về VBA, cũng muốn học nhưng không biết nên bắt đầu từ đâu ah. Mong các bác hướng dẫn

 

[taivat]

Em đã chạy code thành công ah. Tuy nhiên em muốn lọc bỏ những row trống (các ô trống này là giá trị "" trả về do hàm counta()) trong tất cả các sheet nữa thì code sẽ ntn ah. Em chưa có chút gì về VBA, cũng muốn học nhưng không biết nên bắt đầu từ đâu ah. Mong các bác hướng dẫn

Bạn thử cái này xem ( nguồn copy )

 

[ABC2212]

Em đã chạy code thành công ah. Tuy nhiên em muốn lọc bỏ những row trống (các ô trống này là giá trị "" trả về do hàm counta()) trong tất cả các sheet nữa thì code sẽ ntn ah. Em chưa có chút gì về VBA, cũng muốn học nhưng không biết nên bắt đầu từ đâu ah. Mong các bác hướng dẫn

Cho em hỏi chạy code thế nào với ạ, mọi người chỉ em trình tự thực hiện với ạ