Как перемещаться между листами с помощью выпадающего списка в Excel?

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

Перемещение между листами с помощью выпадающего списка в Excel

Перемещение между листами с помощью выпадающего списка в Excel

Чтобы перейти к каждому выбранному листу с помощью выпадающего списка, выполните следующие шаги:

1. Нажмите Разработчик > Вставить > Поле со списком (Элемент управления ActiveX), см. скриншот:

2. Затем перетащите мышью, чтобы нарисовать поле со списком, затем щелкните его правой кнопкой мыши и выберите Просмотр кода из контекстного меню, см. скриншот:

3. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код, чтобы заменить исходный код, см. скриншот:

VBA-код: Перемещение между листами с помощью выпадающего списка

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Затем сохраните и закройте это окно кода, а затем нажмите Режим конструктора, чтобы отключить режим конструктора. Теперь при выборе одного имени листа из поля со списком вы сразу перейдете на этот лист, см. скриншот: