Перейти к основному содержанию

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

Автор: Силувия Последнее изменение: 2024 июля 09 г.

При использовании Excel вы можете скрыть или показать определенные столбцы на основе выбора раскрывающегося списка. Например, если вы выберете «Нет» в раскрывающемся списке, столбцы от C до I будут скрыты, но если вы выберете «Да», скрытые столбцы от C до I будут отображаться. См. Снимок экрана ниже.
В этой статье мы покажем вам метод VBA для скрытия или отображения столбцов на основе выбора раскрывающегося списка в Excel.

скрыть или показать столбцы на основе выпадающего списка

Скрыть или отобразить столбцы на основе выбора раскрывающегося списка в Excel


Скрыть или отобразить столбцы на основе выбора раскрывающегося списка в Excel

Как упоминалось выше, чтобы скрыть или показать столбцы от C до I на основе выбора раскрывающегося списка, сделайте следующее.

1. Сначала создайте раскрывающийся список с Да и Нет, которые вам нужны.

2. Затем нажмите другой + F11 для открытия Microsoft Visual Basic для приложений окно.

3. Дважды щелкните имя текущего открытого листа в ВБАПроект раздел, чтобы открыть редактор кода.

4. Затем скопируйте и вставьте ниже код VBA в редактор кода.

скопируйте и вставьте код 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. Нажмите другой + Q одновременно клавиши для выхода из Microsoft Visual Basic для приложений окно.

С этого момента, когда вы выбираете Нет в раскрывающемся списке, все указанные столбцы скрываются.

выберите Нет в выпадающем списке, все указанные столбцы будут скрыты

Но если вы выберете Да в раскрывающемся списке, все скрытые столбцы отобразятся немедленно.

выберите Да в раскрывающемся списке, все скрытые столбцы будут отображены

скриншот kutools для Excel AI

Разблокируйте магию Excel с помощью Kutools AI

  • Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
  • Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
  • Интерпретация формулы: Легкое понимание сложных формул.
  • Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!