Code gỡ Auto Filter toàn bộ các sheet của 1 File (2 người xem)

[hoanglocphat]

Chào các bạn
Do tôi thường sử dụng Auto Filter, rồi có những lúc quên xã Auto filter thì khi chạy code có liên quan đến 1 số sheet thì thường bị lỗi hoặc cho kết quả sai. Vì vậy tôi nhờ các bạn viết code để xả Auto Filter của tất cả các sheet

Khi viết code các bạn lưu ý giúp
1/ Có thể trong file kg có sheet nào Auto filter
2/ Code ở đây chỉ xả Auto filter chứ kg làm mất các mục Filter ( các mục tam giác dùng để chọn Filter)

Cảm ơn các bạn!

 

[ndu96081631]

Chào các bạn
Do tôi thường sử dụng Auto Filter, rồi có những lúc quên xã Auto filter thì khi chạy code có liên quan đến 1 số sheet thì thường bị lỗi hoặc cho kết quả sai. Vì vậy tôi nhờ các bạn viết code để xả Auto Filter của tất cả các sheet

Khi viết code các bạn lưu ý giúp
1/ Có thể trong file kg có sheet nào Auto filter
2/ Code ở đây chỉ xả Auto filter chứ kg làm mất các mục Filter ( các mục tam giác dùng để chọn Filter)

Cảm ơn các bạn!

Thử vầy xem:

Sub FilterShowAll()
  Dim wks As Worksheet, n As Long
  For Each wks In ThisWorkbook.Worksheets
    If wks.AutoFilterMode Then
      With wks.AutoFilter
        For n = 1 To .Filters.Count
          If .Filters(n).On Then .Range.AutoFilter n
        Next
      End With
    End If
  Next
End Sub

Lưu ý: Cả sheet ẩn cũng bị show all luôn nha

 

[Quang_Hải]

Chào các bạn
Do tôi thường sử dụng Auto Filter, rồi có những lúc quên xã Auto filter thì khi chạy code có liên quan đến 1 số sheet thì thường bị lỗi hoặc cho kết quả sai. Vì vậy tôi nhờ các bạn viết code để xả Auto Filter của tất cả các sheet

Khi viết code các bạn lưu ý giúp
1/ Có thể trong file kg có sheet nào Auto filter
2/ Code ở đây chỉ xả Auto filter chứ kg làm mất các mục Filter ( các mục tam giác dùng để chọn Filter)

Cảm ơn các bạn!

Thêm 1 cách để bạn tham khảo.

Sub ShowAll()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
   sh.ShowAllData
Next
End Sub

 

[hoanglocphat]

Cảm ơn 2 bạn, các code trên chạy rất tốt!