Как автоматически обновить результат расширенного фильтра в Excel?

При использовании функции Расширенный фильтр вы заметите, что отфильтрованный результат не изменяется автоматически при изменении критериев. Это требует повторного применения функции Расширенный фильтр для получения нового результата. Но есть ли у вас какие-нибудь хорошие и быстрые способы автоматического обновления результата расширенного фильтра, как показано на следующем скриншоте в Excel?

Автоматическое обновление результата расширенного фильтра с помощью кода VBA

Автоматическое обновление результата расширенного фильтра с помощью кода VBA

Следующий код VBA может помочь вам автоматически обновлять результат расширенного фильтра при изменении критериев по вашему усмотрению, выполните следующие действия:

1. Щелкните правой кнопкой мыши вкладку листа, где вы хотите автоматически фильтровать данные, затем выберите Вид кода из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой Модуль:

Код VBA: Автоматическое обновление результата расширенного фильтра:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

Примечание: В приведенном выше коде: A5:D21 — это диапазон данных, который вы хотите фильтровать, а A1:C3 — это диапазон критериев для фильтрации.

2. Затем сохраните и закройте окно кода. Теперь, когда вы измените критерии в диапазоне критериев, отфильтрованный результат будет обновлен автоматически.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!