KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

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

АвторSiluviaДата изменения

Представьте, что на листе вашей книги Excel есть поле со списком, содержащее названия всех листов. Вы хотите перейти к нужному листу, просто выбрав его имя в этом списке. В данном руководстве пошагово показано, как реализовать такую функциональность с помощью кода VBA: как заполнить список именами листов и активировать переход к выбранному листу.

Снимок экрана поля со списком в Excel, содержащего имена листов

Откройте лист, выбрав его имя в поле со списком с помощью кода VBA

Откройте лист, выбрав его имя в поле со списком с помощью кода VBA

Приведённый ниже код VBA позволит вам перейти к нужному листу, выбрав его в поле со списком Excel. Выполните следующие действия.

Примечание: если в поле со списком отсутствуют имена листов с вашего файла, воспользуйтесь советом ниже, чтобы быстро добавить все имена листов в это поле. Если поле со списком уже содержит все имена листов, сразу переходите к шагу 1.

Совет: вставьте кнопку «Элемент управления» 1 на лист, щелкните по ней правой кнопкой мыши и выберите пункт Просмотреть код в контекстном меню. Затем скопируйте и вставьте приведённый ниже код VBA в окно Код, после чего нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic для приложений. Щёлкните вставленную кнопку «Элемент управления» — и все имена листов из текущей книги автоматически добавятся в ComboBox1.

Код VBA: легко добавить все имена листов в поле со списком

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

Если поле со списком, содержащим все имена листов, уже существует, выполните следующие действия.

1. Включите режим Конструктор на вкладке Разработчик.

2. Щелкните правой кнопкой мыши по полю со списком листов и выберите пункт Просмотреть код в контекстном меню.

Снимок экрана контекстного меню для доступа к коду поля со списком в Excel

3. Откроется окно Microsoft Visual Basic для приложений. Замените исходный код VBA в окне «Код» приведённым ниже кодом VBA.

Код VBA: открытие определенного листа по выбранному значению в поле со списком

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub

Примечание: в коде ComboBox1 — это имя поля со списком, содержащего названия листов.

4. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений, а затем отключите режим Конструктор на вкладке Разработчик.

Теперь при выборе любого имени листа в поле со списком соответствующий лист будет открываться автоматически.

Легко получить список всех имен листов из Текущая книга в Excel:

Оглавление листов книги значительно упрощает управление рабочими листами. С помощью утилиты Создать связующую таблицу из Kutools для Excel вы легко создадите оглавление со всеми именами листов текущей книги. После этого сможете мгновенно перейти к нужному листу — просто щёлкните по его имени в оглавлении. См. снимок экрана ниже:

Снимок экрана, показывающий оглавление листов, созданное с помощью Kutools for Excel

Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас

См. также:

Лучшие инструменты повышения продуктивности в Office

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

Раскройте весь потенциал 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.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек