Как создать выпадающий список с гиперссылками на каждый лист в Excel?
Как создать выпадающий список с гиперссылками на каждый лист в 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. Нажмите ОК, теперь кликабельные имена листов отобразятся на новом листе.
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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек