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

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

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

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

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

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

Код 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 с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!