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

Як приховати стовпці в реальному часі на основі введення користувача в Excel?

Для більшості з нас може бути звичайним завданням приховати стовпці в Excel, але чи пробували ви коли-небудь автоматично приховати стовпці на основі певних вхідних значень? Наприклад, коли я вводжу текст «AA» у клітинку, стовпець A буде приховано; коли я вводжу «BB», стовпці B і C приховані; при введенні «CC» стовпці D і E приховані; при введенні «DD» стовпець F приховано, як показано нижче. У цій статті буде створено код VBA для її вирішення в Excel.

Приховати або відобразити стовпці в реальному часі на основі введених користувачем коду VBA

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


Приховати або відобразити стовпці в реальному часі на основі введених користувачем коду VBA

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

1. На аркуші, де потрібно приховати стовпці, клацніть правою кнопкою миші вкладку аркуша, а потім клацніть Переглянути код з контекстного меню, див. знімок екрана

2. У відкритому Microsoft Visual Basic для додатків скопіюйте та вставте наведений нижче код VBA у вікно Аркуш (Код) вікна.

Код VBA: приховати стовпці в режимі реального часу на основі введених користувачем даних

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
примітки: У наведеному вище коді, K1 це клітинка, у яку ви вводите певний текст, і вам слід змінити тексти та назви стовпців відповідно до ваших потреб. Крім того, ви можете додати інші нові критерії, просто додавши наведені нижче сценарії:
  • Випадок "AA": Columns("A").EntireColumn.Hidden = False
  • Columns("A").EntireColumn.Hidden = True

3. Потім закрийте вікно коду. Тепер, ввівши «AA» у комірку K1, натисніть Що натомість? Створіть віртуальну версію себе у ключ, стовпець А приховано; при введенні «BB» і натисніть Що натомість? Створіть віртуальну версію себе у ключ, стовпці B і C приховані тощо. Якщо ви введете будь-яке інше значення або видалите вміст, приховані стовпці будуть відображені відразу, дивіться демонстрацію нижче:


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

У цьому прикладі я відфільтрую діапазон даних на основі введеної назви продукту. Коли я вводжу «Толстовка», відображається лише інформація про толстовку, а інші стовпці будуть приховані одразу; і коли я введу «Усі», усі стовпці будуть відображені, як показано нижче:

1. На аркуші, де потрібно приховати стовпці, клацніть правою кнопкою миші вкладку аркуша, а потім клацніть Переглянути код у контекстному меню див. знімок екрана:

2. У відкритому Microsoft Visual Basic для додатків скопіюйте та вставте наведений нижче код VBA у вікно Аркуш (Код) вікна.

Код VBA: приховуйте або відображайте стовпці, щоб фільтрувати дані на основі введених користувачем даних

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
    Dim x As Variant, y As String
     If Target.Address = "$K$1" Then
        y = Target.Value
        With Range("B1:H1")
            Application.ScreenUpdating = False
            .EntireColumn.Hidden = (y <> "All")
            If y <> "All" Then
                For Each x In .Cells
                    If x = y Then x.EntireColumn.Hidden = False
                Next
            End If
            Application.ScreenUpdating = True
        End With
    End If
End Sub
примітки: У наведеному вище коді, K1 це клітинка, у яку ви вводите певний текст, B1: H1 заголовки рядків містять назву продукту, який потрібно відфільтрувати.

3. Потім закрийте вікно коду. Тепер, якщо ви введете назву продукту в клітинку K1, відображатимуться лише відповідні стовпці, інші будуть приховані; і якщо ви введете текст «Усі», усі стовпці відображатимуться, як показано нижче:

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

🤖 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