Vba Excel 2013 Xóa Tất Cả Các Bộ Lọc Macro

Xem 4,554

Cập nhật thông tin chi tiết về Vba Excel 2013 Xóa Tất Cả Các Bộ Lọc Macro mới nhất ngày 11/05/2021 trên website Trucbachconcert.com. Hy vọng nội dung bài viết sẽ đáp ứng được nhu cầu của bạn, chúng tôi sẽ thường xuyên cập nhật mới nội dung để bạn nhận được thông tin nhanh chóng và chính xác nhất. Cho đến thời điểm hiện tại, bài viết này đã đạt được 4,554 lượt xem.

--- Bài mới hơn ---

  • Hướng Dẫn Cách Sử Dụng Vba Để Lọc Dữ Liệu Vào Báo Cáo Chi Tiết
  • Tự Động Lọc Danh Sách Không Trùng Với Advanced Filter Vba Cực Kỳ Đơn Giản
  • Vba Excel Cấp Tốc Bài 1
  • Hướng Dẫn Cách Lọc Dữ Liệu Vào Báo Cáo Chi Tiết Trong Excel Bằng Vba
  • Tài Liệu Hay Nhất Về Lập Trình Vba Macro Trên Excel
  • Chủ đề này là cổ xưa, nhưng tôi không hài lòng với bất kỳ câu trả lời nào, và cuối cùng tôi tự viết. Tôi đang chia sẻ nó ngay bây giờ:

    Chúng tôi bắt đầu với:

    Sub ResetWSFilters(ws as worksheet) If ws.FilterMode Then ws.ShowAllData Else End If 'This gets rid of "normal" filters - but tables will remain filtered For Each listObj In ws.ListObjects If listObj.ShowHeaders Then listObj.AutoFilter.ShowAllData listObj.Sort.SortFields.Clear End If Next listObj 'And this gets rid of table filters End Sub

    Chúng ta có thể cung cấp một bảng tính cụ thể cho macro này, nó sẽ chỉ lọc ra một bảng tính đó. Hữu ích nếu bạn cần đảm bảo chỉ cần một bảng tính là rõ ràng. Tuy nhiên, tôi thường muốn làm toàn bộ sách bài tập

    Sub ResetAllWBFilters(wb as workbook) Dim ws As Worksheet Dim wb As Workbook Dim listObj As ListObject For Each ws In wb.Worksheets If ws.FilterMode Then ws.ShowAllData Else End If 'This removes "normal" filters in the workbook - however, it doesn't remove table filters For Each listObj In ws.ListObjects If listObj.ShowHeaders Then listObj.AutoFilter.ShowAllData listObj.Sort.SortFields.Clear End If Next listObj Next 'And this removes table filters. You need both aspects to make it work. End Sub

    Bạn có thể sử dụng điều này, ví dụ, bằng cách mở một sổ làm việc bạn cần xử lý và đặt lại các bộ lọc của chúng trước khi làm bất cứ điều gì với nó:

    Sub ExampleOpen() Set TestingWorkBook = Workbooks.Open("C:Intel......") 'The .open is assuming you need to open the workbook in question - different procedure if it's already open Call ResetAllWBFilters(TestingWorkBook) End Sub

    Công cụ tôi sử dụng nhiều nhất: Đặt lại tất cả các bộ lọc trong sổ làm việc mà mô-đun được lưu trữ trong:

    Sub ResetFilters() Dim ws As Worksheet Dim wb As Workbook Dim listObj As ListObject Set wb = ThisWorkbook 'Set wb = ActiveWorkbook 'This is if you place the macro in your personal wb to be able to reset the filters on any wb you're currently working on. Remove the set wb = thisworkbook if that's what you need For Each ws In wb.Worksheets If ws.FilterMode Then ws.ShowAllData Else End If 'This removes "normal" filters in the workbook - however, it doesn't remove table filters For Each listObj In ws.ListObjects If listObj.ShowHeaders Then listObj.AutoFilter.ShowAllData listObj.Sort.SortFields.Clear End If Next listObj Next 'And this removes table filters. You need both aspects to make it work. End Sub

    --- Bài cũ hơn ---

  • Cách Sử Dụng Autofilter Trong Vba
  • Hướng Dẫn Cách Lọc (Filter) Dữ Liệu Trong Excel
  • Sử Dụng Advanced Filter Để Lọc Dữ Liệu Trong Excel 1/2021
  • Chỉ Sao Chép Những Ô Nhìn Thấy
  • Hướng Dẫn Cách Copy Chỉ Những Giá Trị Hiển Thị Sau Khi Lọc Trong Excel
  • Bạn đang xem bài viết Vba Excel 2013 Xóa Tất Cả Các Bộ Lọc Macro trên website Trucbachconcert.com. Hy vọng những thông tin mà chúng tôi đã chia sẻ là hữu ích với bạn. Nếu nội dung hay, ý nghĩa bạn hãy chia sẻ với bạn bè của mình và luôn theo dõi, ủng hộ chúng tôi để cập nhật những thông tin mới nhất. Chúc bạn một ngày tốt lành!