Note: The other languages of the website are Google-translated. Back to English

Как очистить фильтры при открытии, сохранении или закрытии книги в 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 для приложений окно.

С этого момента все фильтры будут очищаться автоматически после нажатия кнопки «Закрыть» в книге.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (6)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Это решение не «очищает» автофильтры, а полностью их удаляет.
Чтобы сбросить фильтры и сохранить их для следующего сеанса, замените ws.AutoFilter.ShowAllData на ws.AutoFilterMode = False.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за этот комментарий! Это именно то, что мне нужно для моей электронной таблицы. Очень признателен!
Этот комментарий был сведен к минимуму модератором на сайте
Я попробовал очистить все фильтры на листах при закрытии / выходе из книги, но это вообще не сработало, есть ли что-то, что нам нужно?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Никаких других операций не требуется, кроме шагов, которые мы показали. Какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Hoe kan ik wel de "filterknoppen" behouden?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Туур,
Коды VBA в сообщении были обновлены. Извините за беспокойство.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL