Як приховати стовпці в реальному часі на основі введення користувача в 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

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

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