Перейти до основного матеріалу

Як перевірити, чи застосовано фільтр на аркуші в Excel?

Якщо робочий аркуш містить велику кількість даних, чи можна перевірити, чи застосовано фільтрацію до певного стовпця чи до всього аркуша, не перевіряючи стовпці вручну один за одним? У цьому підручнику ми покажемо вам два коди VBA для вирішення цього завдання.

Перевірте, чи застосовано фільтр до певного стовпця
Перевірте, чи застосовано фільтр на аркуші


Перевірте, чи застосовано фільтр до певного стовпця

Щоб перевірити, чи відфільтровано певний стовпець, код VBA у цьому розділі може зробити вам послугу.

1. Відкрийте аркуш, який потрібно перевірити, чи застосовано фільтр до певного стовпця.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте наведений нижче код VBA у вікні Module (Code).

Код VBA: перевірте, чи відфільтровано вказаний стовпець

Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
        xBol = True
    End If
Next xFNum
If xBol Then
    MsgBox "The specified column is filled"
Else
    MsgBox "The specified column is not filled"
End If
End Sub

примітки: у коді VBA число 3 в цьому рядку "xСтовпець = 3” означає третій стовпець на поточному аркуші. Якщо ви хочете перевірити, чи застосовано фільтр колонка Е, змінити номер 3 до 5.

4 Натисніть кнопку F5 клавіша для запуску коду.

Якщо вказаний стовпець відфільтровано, з’явиться наступне діалогове вікно.

В іншому випадку ви отримаєте таке діалогове вікно.


Перевірте, чи застосовано фільтр на аркуші

Якщо ви хочете перевірити, чи застосовано фільтр на аркуші, спробуйте код VBA в цьому розділі.

1. Відкрийте аркуш, до якого потрібно перевірити, чи застосовано фільтр.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі, а потім скопіюйте наступний код VBA в Модуль (Код) вікна.

Код VBA: перевірте, чи застосовано фільтр на аркуші

Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer

Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On Then
        xBol = True
        Exit For
    End If
Next xFNum

If xBol Then
    MsgBox "Filter is applied in the curren worksheet"
Else
    MsgBox "Filter does not apply in the current worksheet"
End If
End Sub

4. Потім натисніть F5 щоб запустити цей код, якщо робочий аркуш містить фільтрування, ви отримаєте діалогове вікно, наведене нижче.

В іншому випадку ви отримаєте таке діалогове вікно.

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

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations