Как очистить фильтры при открытии, сохранении или закрытии книги в Excel?
Предположим, у вас есть несколько рабочих листов, содержащих отфильтрованные данные в вашей книге. Чтобы очистить все фильтры, вам нужно проверить отфильтрованный список на разных листах, а затем очистить их вручную один за другим. Это раздражает! В этой статье мы покажем вам несколько способов очистки фильтров при открытии, сохранении или закрытии книги в Excel.
Очистить фильтры при открытии книги в Excel
Сбросить фильтры при сохранении книги в Excel
Очистить фильтры при закрытии / выходе из книги в Excel
Очистить фильтры при открытии книги в Excel
В этом разделе рассказывается об очистке фильтров на всех листах при открытии книги. Пожалуйста, сделайте следующее.
1. В книге вам нужно автоматически очищать все фильтры при открытии, пожалуйста, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проект панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить все фильтры при открытии книги
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. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
4. Нажмите Файл > Сохранить как. В всплывающем Сохранить как диалоговом окне укажите папку для сохранения этой книги, назовите ее как вам нужно в Имя файла , затем выберите Excel Macro-Enabled Workbook из файла Сохранить как раскрывающийся список и, наконец, щелкните Сохранить .
Отныне при открытии этой книги с поддержкой макросов все фильтры в этой книге будут очищаться автоматически.
Сбросить фильтры при сохранении книги в Excel
Вы можете очищать все фильтры из текущей книги каждый раз, когда сохраняете ее.
1. В книге вам необходимо автоматически удалить все фильтры, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проект панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить фильтры при сохранении книги
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. Нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
Отныне при сохранении книги все фильтры будут очищаться автоматически.
Очистить фильтры при закрытии / выходе из книги в Excel
В последнем разделе мы покажем вам, как очистить все фильтры на листах при закрытии или выходе из книги.
1. Откройте книгу, из которой необходимо автоматически очистить все фильтры, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проект панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить все фильтры на листах при закрытии / выходе из книги
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
Внимание: Если вы просто хотите очистить фильтры на текущем листе, используйте приведенный ниже код VBA.
Код VBA: очистить фильтр на активном листе при закрытии книги
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. Нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
С этого момента все фильтры будут очищаться автоматически после нажатия кнопки «Закрыть» в книге.
Статьи по теме:
- Как очистить кеш фильтра (старые элементы) из сводной таблицы в Excel?
- Как удалить фильтры со всех листов в активной книге в Excel?
- Как фильтровать данные по флажку в Excel?
- Как заполнить ряд чисел в столбце отфильтрованного списка в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!