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

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

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

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

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

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

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 for Applications, пожалуйста, замените исходный код 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 for Applications, и выключите Режим конструктора на вкладке Разработчик.

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

Связанные статьи:

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