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

Как открыть конкретный рабочий лист по выбранному значению поля со списком в Excel?

Предположим, у вас есть поле со списком, которое содержит все имена листов текущей книги, как показано ниже. И теперь вы хотите открыть определенный рабочий лист, выбрав соответствующее имя листа в поле со списком. Как этого добиться? Метод, описанный в этой статье, может вам помочь.

Откройте конкретный рабочий лист по выбранному значению поля со списком с кодом VBA


Откройте конкретный рабочий лист по выбранному значению поля со списком с кодом VBA

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

Внимание: Если поле со списком не содержит имени листа на вашем листе, следуйте приведенному ниже совету, чтобы быстро добавить все имена листов в это поле со списком. И если уже есть поле со списком, содержащее все имена листов, перейдите к шаг 1 непосредственно.

Функции: Вставьте командную кнопку 1 на лист, щелкните ее правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Затем скопируйте и вставьте приведенный ниже код VBA в Code окно и нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно. Нажмите вставленную кнопку Command, тогда все имена листов текущей книги будут автоматически добавлены в 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. Щелкните правой кнопкой мыши поле со списком с именами листов, затем щелкните Просмотреть код из контекстного меню.

документ поле со списком открыть рабочий лист 12png

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. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно и выключите Режим проектирования под Застройщик меню.

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


Легко перечислить все имена листов текущей книги в Excel:

Использование указателя листов в книге помогает с легкостью управлять листами. С Создать список имен листов полезности Kutools for Excel, вы можете легко создать указатель листов, содержащий все имена листов в текущей книге. После этого вы можете быстро перейти к определенному листу, просто щелкнув имя листа на листе индекса. См. Снимок экрана ниже:
Скачайте и попробуйте прямо сейчас! (30-дневный бесплатный пробный период)


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

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

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

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

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations