Как создать выпадающий список с гиперссылками на каждый лист в 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 для Excel’s Создать связующую таблицу Этот инструмент позволяет вам создать список гиперссылок на имена листов или список макросов, связанных с каждым листом.

1. Нажмите Kutools Plus > Лист > Создать связующую таблицу.

2. В диалоговом окне «Создать связующую таблицу» выполните следующие действия:

(1). Отметьте Создать гиперссылки для создания кликабельного списка имен листов, или отметьте Создать кнопки и макросы для создания кнопок, которые будут связаны с каждым листом.

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

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

(4). Укажите, как количество столбцов будет отображаться для ссылок на листы.

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

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