Как скрывать столбцы в реальном времени в зависимости от ввода пользователя в Excel?
Скрытие столбцов в Excel — задача довольно обычная, но пробовали ли вы автоматически скрывать столбцы в зависимости от введённых значений? Например: при вводе «AA» скрывается столбец A, при «BB» — столбцы B и C, при «CC» — столбцы D и E, а при «DD» — столбец F, как показано на демонстрации ниже. В этой статье вы найдёте готовый код VBA для реализации такого функционала в Excel.
Используйте код 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
- Случай «AA»: Columns(«A»).EntireColumn.Hidden = False
- Columns(«A»).EntireColumn.Hidden = True
3. Затем закройте окно кода. Теперь, как только вы введёте «AA» в ячейку K1 и нажмёте клавишу «Enter», столбец A скроется; при вводе «BB» и нажатии «Enter» скроются столбцы B и C — и так далее. Если же вы введёте любое другое значение или очистите содержимое ячейки, скрытые столбцы тут же отобразятся (см. демонстрацию ниже).
Используйте код VBA для скрытия или отображения определённых столбцов на основе ввода пользователя
В этом примере я буду фильтровать диапазон данных по названию товара. При вводе «Hoodie» отображается только информация о худи, а остальные столбцы сразу скрываются; при вводе «All» — показываются все столбцы, как продемонстрировано ниже:
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 будут отображаться только соответствующие столбцы, а остальные — автоматически скрываться; если же ввести «All», отобразятся все столбцы, как показано на демонстрации ниже:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек