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

Як приховати стовпці в реальному часі на основі введення користувача в 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 для 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця