Как создать раскрывающийся список со ссылками на каждый лист в 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. Нажмите KUTOOLS PLUS > Лист > 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. Нажмите «ОК» — и кликабельные названия листов появятся на новом листе.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: создание кликабельного списка названий листов
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек