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

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

Создать раскрывающийся список с гиперссылками на лист

Создайте интерактивный список названий листов

Создать раскрывающийся список с гиперссылками на лист

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

1. Нажмите Застройщик > Вставить > Поле со списком (элементы управления ActiveX).

Примечание. Если вкладка разработчика не отображается на ленте, щелкните Файл > Возможности > Настроить ленту, а затем проверьте Застройщик вариант в правом поле. Смотрите скриншот:

2. Затем нарисуйте поле со списком в любом месте.

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

4. Скопируйте и вставьте приведенный ниже код в пустой сценарий, а затем сохраните его, чтобы вернуться на лист.

VBA: создать раскрывающийся список со ссылками на лист

 Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
    Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
    Dim I As Long
    Me.ComboBox1.Style = fmStyleDropDownList
    If Me.ComboBox1.ListCount <> Sheets.Count Then
        Me.ComboBox1.Clear
        For I = 1 To ActiveWorkbook.Sheets.Count
            Me.ComboBox1.AddItem Sheets(I).Name
        Next
    End If
    Me.ComboBox1.DropDown
End Sub

5. Нажмите Застройщик > Режим проектирования для выхода из режима проектирования.

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

Создайте интерактивный список названий листов

Если вы предпочитаете создать список кликабельных названий листов, как показано на снимке экрана ниже, вы можете использовать Kutools for ExcelАвтора Create List of Sheet Names функция. Этот инструмент позволяет вам создать список гиперссылок на имена листов или список кнопок макросов, привязанных к каждому листу.

1. Нажмите Кутулс Плюс > Рабочий лист > Create List of Sheet Names.

2. в Create List of Sheet Names диалог, сделайте как показано ниже:

(1). Проверьте Contains a list of hyperlinks чтобы создать список интерактивных имен листов, или отметьте Contains buttons and macros для создания кнопок, которые ссылаются на каждый лист.

(2). Дайте имя новому листу, в котором вы будете размещать гиперссылки.

(3). Укажите расположение нового листа.

(4). Укажите количество отображаемых ссылок на листы в виде столбцов.

3. Нажмите «ОК», теперь кликабельные названия листов отображаются на новом листе.

Демонстрация: создание интерактивного списка названий листов