Как скрывать или отображать столбцы в зависимости от выбора в раскрывающемся списке Excel?
При работе в Excel вы можете скрывать или отображать указанные столбцы в зависимости от выбора в раскрывающемся списке. Например, если выбрать «Нет» — столбцы C–I скроются, а при выборе «Да» они снова отобразятся. См. приведённый ниже снимок экрана.
В этой статье мы покажем вам метод на основе VBA для скрытия или отображения столбцов в зависимости от выбора в раскрывающемся списке Excel.
Скрытие или отображение столбцов в зависимости от выбора в раскрывающемся списке Excel
Скрытие или отображение столбцов в зависимости от выбора в раскрывающемся списке Excel
Как показано в приведённом выше примере, чтобы динамически скрывать или отображать столбцы C–I в зависимости от выбора в раскрывающемся списке, выполните следующие действия.
1. Сначала создайте раскрывающийся список со значениями «Да» и «Нет», которые вам нужны.
2. Затем нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
3. Дважды щёлкните имя текущего открытого листа в разделе VBAProject, чтобы открыть редактор кода.
4. Затем скопируйте приведённый ниже код VBA и вставьте его в редактор кода.
Код VBA: скрытие или отображение столбцов в зависимости от выбора в раскрывающемся списке
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
If Target.Column = 2 And Target.Row = 3 Then
If Target.Value = "No" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End SubПримечание: в приведённом выше коде Column = 2 и Row = 3 указывают на ячейку с раскрывающимся списком, а диапазон C:I — это столбцы, которые нужно скрывать или отображать. Настройте эти параметры в соответствии со своими задачами.
5. Нажмите клавиши Alt+Q одновременно, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь при выборе «Нет» в раскрывающемся списке все указанные столбцы скроются.
Если вы выберете «Да» в раскрывающемся списке, все скрытые столбцы сразу же отобразятся.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
См. также:
- Как автоматически заполнять другие ячейки при выборе значений из раскрывающегося списка в Excel?
- Как включить автозавершение при вводе в раскрывающемся списке Excel?
- Как создать календарь в виде раскрывающегося списка в Excel?
- Как создать раскрывающийся список с возможностью поиска в Excel?
- Как создать раскрывающийся список с множественным выбором или несколькими значениями в Excel?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек