Как открыть конкретный рабочий лист по выбранному значению поля со списком в 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. Щелкните правой кнопкой мыши поле со списком с именами листов, затем щелкните Просмотреть код из контекстного меню.
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-дневный бесплатный пробный период)
Статьи по теме:
- Как скопировать значение поля со списком в активную ячейку в Excel?
- Как отобразить формат даты в выводе поля со списком в Excel?
- Как скрыть или показать командную кнопку на основе указанного значения ячейки в Excel?
- Как предотвратить или отключить ввод текста в поле со списком в Excel?
- Как выйти из поля со списком, чтобы выбрать конкретную ячейку в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!