Как очищать фильтры при открытии, сохранении или закрытии книги в Excel?
Предположим, у вас есть несколько листов с отфильтрованными данными в книге. Чтобы удалить все фильтры, вам нужно проверить отфильтрованные списки на разных листах и вручную очистить их один за другим. Это раздражает! В этой статье мы покажем вам несколько способов автоматической очистки фильтров при открытии, сохранении или закрытии книги в Excel.
Очистка фильтров при открытии книги в Excel
Очистка фильтров при сохранении книги в Excel
Очистка фильтров при закрытии/выходе из книги в Excel
Очистка фильтров при открытии книги в Excel
В этом разделе рассказывается, как очищать фильтры на всех листах при открытии книги. Выполните следующие действия.
1. В книге, в которой необходимо автоматически очищать все фильтры при открытии, нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните по элементу ЭтаКнига на левой панели Проект, а затем скопируйте и вставьте приведённый ниже код VBA в окно ЭтаКнига (Код). См. снимок экрана:
Код 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 Sub3. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
4. Нажмите Файл > Сохранить как. В появившемся диалоговом окне Сохранить как укажите папку для сохранения этой книги, задайте нужное имя в поле Имя файла, выберите вариант Книга Excel с поддержкой макросов в списке Указать формат сохранения (раскрывающийся список) и нажмите кнопку Сохранить.
Теперь при открытии этой книги с поддержкой макросов все фильтры в ней будут автоматически сбрасываться.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Очистка фильтров при сохранении книги в Excel
Вы можете очищать все фильтры из текущей книги каждый раз при её сохранении.
1. В книге, из которой необходимо автоматически очищать все фильтры, нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложенийдважды щёлкните по элементу ЭтаКнигана левой панели Проект, а затем скопируйте и вставьте приведённый ниже код VBA в окно ЭтаКнига (Код)См. снимок экрана:
Код 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 Sub3. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь при сохранении книги все фильтры будут автоматически сбрасываться.
Очистка фильтров при закрытии/выходе из книги в Excel
В последнем разделе мы покажем, как очистить все фильтры на всех листах при закрытии или выходе из книги.
1. Откройте книгу, из которой нужно автоматически очищать все фильтры, и нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений дважды щёлкните по элементу ЭтаКнига на левой панели Проект, а затем скопируйте и вставьте приведённый ниже код VBA в окно ЭтаКнига (Код). См. снимок экрана:
Код 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 Sub3. Нажмите Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь все фильтры будут автоматически сбрасываться после нажатия кнопки «Закрыть» в книге.
См. также:
- Как очистить кэш фильтров (устаревшие элементы) в сводной таблице Excel?
- Как удалить фильтры со всех листов текущей книги в Excel?
- Как фильтровать данные в Excel на основе состояния флажка?
- Как заполнить столбец последовательностью чисел в отфильтрованном списке Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек