Как создать раскрывающийся список с гиперссылками на каждый лист в Excel?
Возможно, вы раньше создавали раскрывающийся список, но создавали ли вы когда-нибудь раскрывающийся список с гиперссылками на каждый лист в Excel, как показано на скриншоте ниже?
Создать раскрывающийся список с гиперссылками на лист
Создайте список листов с гиперссылками
Создать раскрывающийся список с гиперссылкой на лист
Есть только код VBA, который может обрабатывать задание в Excel.
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 функция, которая может создавать список гиперссылок об именах листов или список кнопок макросов об именах листов.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
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. Щелкните ОК, теперь имена листов, доступные для щелчка, отображаются на новом листе.
Демо
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
