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

 Як автоматично оновити результат розширеного фільтра в 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. Потім збережіть і закрийте вікно коду, тепер, коли ви зміните критерії в діапазоні критеріїв, відфільтрований результат буде оновлено автоматично відразу.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
він оновлюється щоразу, коли будь-які дані змінюються.

чи можна оновлювати лише при зміні критеріїв.
Цей коментар був мінімізований модератором на сайті
Чи можу я створити критерії з другого аркуша?
Цей коментар був мінімізований модератором на сайті
Bonjour, merci pour votre post qui m'aide énormément. Toutefois quel serait le code à ajouter pour coller le résultat dans un tableau d'une autre feuille de fichier et si possible pour au passage ne coller que certaines colonnes?
Надайте être plus точний, використовуйте в якості прикладу є унікальний копіювальний пристрій у колоннах «Продукт» і «Назва» для результатів фільтрації та для нового фелью. Милосердя.
Цей коментар був мінімізований модератором на сайті
Код коду ereur 1004 не дійсний. pouvez vous corriger le code proposé?
Цей коментар був мінімізований модератором на сайті
@Hannah: Так, це можливо.
У наступному коді критерії знаходяться на аркуші «Фільтр».


Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Діапазон ("A5:D23"). Дія розширеного фільтра:=xlFilterInPlace, CriteriaRange:= _
Аркуші("Фільтр").Діапазон("A1:C3"), Унікальний:=False
End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, цей код працює ідеально, є лише одна проблема, функція копіювання/вставки більше не працює.
Як це можна було виправити?
Спасибо заранее
Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити це без використання VBA?
Цей коментар був мінімізований модератором на сайті
Привіт! Я застосовую розширений фільтр для одного стовпця для унікальних значень (без критеріїв). Мені потрібно, щоб він оновлювався сам.

Не могли б ви допомогти мені з цим?
Цей коментар був мінімізований модератором на сайті
Це, швидше за все, вже не актуально. Office excel тепер має функцію FILTER, яка автоматично оновлюється на основі того, що я збираю, роблячи розширений фільтр свого роду слабкою зведеною таблицею. Функція FILTER – це те, що слід використовувати в подальшому? Схоже, рішення Excel для проблеми, яку ви вказали вище, не вимагає робити VBA.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця