Как скрыть столбцы в реальном времени на основе ввода пользователя в Excel?

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

Использование кода VBA для скрытия или отображения столбцов в реальном времени на основе ввода пользователя

Использование кода VBA для скрытия или отображения определенных столбцов на основе ввода пользователя

Использование кода VBA для скрытия или отображения столбцов в реальном времени на основе ввода пользователя

Чтобы скрыть определенные столбцы в реальном времени на основе значений ввода, примените следующий код VBA:

1. На листе, где вы хотите скрыть столбцы, щелкните правой кнопкой мыши вкладку листа, а затем выберите "Вид кода" из контекстного меню, см. скриншот.

2. В открывшемся окне "Microsoft Visual Basic for Applications" скопируйте и вставьте следующий код 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 и нажимаете клавишу "Enter", столбец A скрывается; когда вы вводите «BB» и нажимаете клавишу "Enter", столбцы B и C скрываются, и так далее. Если вы введете любое другое значение или удалите содержимое, скрытые столбцы будут немедленно отображены, см. демонстрацию ниже:

Использование кода VBA для скрытия или отображения определенных столбцов на основе ввода пользователя

В этом примере я собираюсь отфильтровать диапазон данных на основе введенного имени продукта. Когда я ввожу «Худи», отображается только информация о худи, а остальные столбцы сразу же скрываются; а когда я ввожу «Все», все столбцы отображаются, как показано в демонстрации ниже:

1. На листе, где вы хотите скрыть столбцы, щелкните правой кнопкой мыши вкладку листа, а затем выберите "Вид кода" из контекстного меню, см. скриншот:

2. В открывшемся окне "Microsoft Visual Basic for Applications" скопируйте и вставьте следующий код 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, будут отображаться только соответствующие столбцы, остальные будут скрыты; а если вы введете текст «Все», все столбцы появятся, как показано в демонстрации ниже: