Làm cách nào để xóa bộ lọc khi mở, lưu hoặc đóng sổ làm việc trong Excel?
Giả sử bạn có nhiều trang tính chứa dữ liệu đã lọc trong sổ làm việc của mình. Để xóa tất cả các bộ lọc, bạn cần kiểm tra danh sách đã lọc trong các trang tính khác nhau, sau đó xóa từng bộ lọc theo cách thủ công. Thật là khó chịu! Trong bài viết này, chúng tôi sẽ chỉ cho bạn một số phương pháp xóa bộ lọc khi mở, lưu hoặc đóng sổ làm việc trong Excel.
Xóa bộ lọc khi mở sổ làm việc trong Excel
Xóa bộ lọc khi lưu sổ làm việc trong Excel
Xóa bộ lọc khi đóng / thoát sổ làm việc trong Excel
Xóa bộ lọc khi mở sổ làm việc trong Excel
Phần này nói về việc xóa bộ lọc trong tất cả các trang tính khi mở một sổ làm việc. Hãy làm như sau.
1. Trong sổ làm việc, bạn cần tự động xóa tất cả các bộ lọc khi mở, vui lòng nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp đúp Sổ làm việc này ở bên trái Dự án , sau đó sao chép và dán mã VBA bên dưới vào ThisWorkbook (Mã) cửa sổ. Xem ảnh chụp màn hình:
Mã VBA: Xóa tất cả các bộ lọc khi mở sổ làm việc
Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub
3. Nhấn nút Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.
4. nhấp chuột Tập tin > Save As. Trong cửa sổ bật lên Save As hộp thoại, chỉ định một thư mục để lưu sổ làm việc này, đặt tên nó khi bạn cần trong Tên tập tin hộp, sau đó chọn Sổ làm việc hỗ trợ macro Excel tùy chọn từ Save as type danh sách thả xuống và cuối cùng nhấp vào Lưu .
Từ bây giờ, khi mở Sổ làm việc được Bật Macro này, tất cả các bộ lọc trong sổ làm việc này sẽ tự động bị xóa.
Xóa bộ lọc khi lưu sổ làm việc trong Excel
Bạn có thể xóa tất cả các bộ lọc khỏi sổ làm việc hiện tại mỗi khi bạn lưu nó.
1. Trong sổ làm việc, bạn cần tự động xóa tất cả các bộ lọc khỏi, vui lòng nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp đúp Sổ làm việc này ở bên trái Dự án , sau đó sao chép và dán mã VBA bên dưới vào ThisWorkbook (Mã) cửa sổ. Xem ảnh chụp màn hình:
Mã VBA: Xóa bộ lọc khi lưu sổ làm việc
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub
3. nhấn Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, khi lưu sổ làm việc, tất cả các bộ lọc sẽ tự động bị xóa.
Xóa bộ lọc khi đóng / thoát sổ làm việc trong Excel
Phần cuối cùng, chúng tôi sẽ chỉ cho bạn cách xóa tất cả các bộ lọc trên các trang tính khi đóng hoặc thoát khỏi sổ làm việc.
1. Mở sổ làm việc bạn cần để tự động xóa tất cả các bộ lọc, sau đó nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp đúp Sổ làm việc này ở bên trái Dự án , sau đó sao chép và dán mã VBA bên dưới vào ThisWorkbook (Mã) cửa sổ. Xem ảnh chụp màn hình:
Mã VBA: Xóa tất cả các bộ lọc trên các trang tính khi đóng / thoát sổ làm việc
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If
Next ws
End Sub
Chú thích: Nếu bạn chỉ muốn xóa các bộ lọc trong trang tính hiện tại, vui lòng sử dụng mã VBA bên dưới.
Mã VBA: Xóa bộ lọc trong trang tính hiện hoạt khi đóng sổ làm việc
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.AutoFilterMode Then
ws.ShowAllData
End If
End Sub
3. nhấn Khác + Q chìa khóa để thoát khỏi Microsoft Visual Basic cho các ứng dụng cửa sổ.
Từ bây giờ, tất cả các bộ lọc sẽ tự động bị xóa sau khi nhấp vào nút Đóng trong sổ làm việc.
Các bài liên quan:
- Làm cách nào để xóa bộ nhớ đệm bộ lọc (các mục cũ) khỏi Pivot Table trong Excel?
- Làm cách nào để xóa bộ lọc khỏi tất cả các trang tính trong sổ làm việc đang hoạt động trong Excel?
- Làm cách nào để lọc dữ liệu dựa trên hộp kiểm trong Excel?
- Làm cách nào để điền chuỗi số vào cột danh sách đã lọc trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!