Как перейти по гиперссылке на скрытый лист в Excel?
Если у вас есть книга с несколькими листами и вы хотите использовать гиперссылки на главном листе для перехода к скрытым листам, вы заметите, что гиперссылки становятся неактивными после того, как листы скрыты. Чтобы решить эту проблему, вы можете использовать код VBA, чтобы обеспечить автоматическое открытие соответствующего скрытого листа при нажатии на гиперссылку. В этой статье представлены пошаговые инструкции для реализации этой функциональности, а также предложена возможность снова скрыть лист после возвращения на главный лист.
Переход по гиперссылке для открытия скрытого листа с помощью кода VBA
Переход по гиперссылке для открытия скрытого листа, а затем его повторное скрытие с помощью кода VBA
Переход по гиперссылке для открытия скрытого листа с помощью кода VBA
Следующий код VBA может помочь вам открыть скрытый лист при нажатии на соответствующую гиперссылку, выполните следующие действия:
1. Щелкните правой кнопкой мыши ярлык листа, по которому вы хотите перейти по гиперссылке на скрытый лист, затем выберите Конвертировать из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой модуль:
Код VBA: Переход по гиперссылке для открытия скрытого листа:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
Application.ScreenUpdating = False
On Error Resume Next
If Target.Column = 1 Then
Sheets(Target.Value).Visible = xlSheetVisible
Sheets(Target.Value).Select
End If
Application.ScreenUpdating = True
End Sub
Примечание: В приведенном выше коде число 1 в строке If Target.Column = 1 Then указывает номер столбца, содержащего гиперссылки, измените его по своему усмотрению.
2. Затем сохраните и закройте это окно кода. Теперь, когда вы нажмете на гиперссылку, ведущую к определенному скрытому листу, он откроется немедленно.
Переход по гиперссылке для открытия скрытого листа, а затем его повторное скрытие с помощью кода VBA
Иногда вам нужно перейти по гиперссылке для открытия скрытого листа, а когда вы вернетесь на главный лист, вы хотите, чтобы открытый лист снова был скрыт. Следующий код VBA может помочь вам в этом:
1. Щелкните правой кнопкой мыши ярлык листа, по которому вы хотите перейти по гиперссылке на скрытый лист, затем выберите Конвертировать из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустой модуль:
Код VBA: Переход по гиперссылке для открытия скрытого листа и последующего его повторного скрытия:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
If InStr(Target.Parent, "!") > 0 Then
strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
Else
strLinkSheet = Target.Parent
End If
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Sheets(ActiveCell.Value2).Visible = False
End Sub
2. Затем сохраните и закройте окно кода. Когда вы нажмете на гиперссылку, связанный скрытый лист откроется немедленно, но если вы вернетесь на главный лист, содержащий гиперссылки, открытый лист снова будет автоматически скрыт.
Примечание: Эти коды применяются только к именам листов, которые совпадают с текстом гиперссылки.
Демонстрация: Переход по гиперссылке для открытия скрытого листа с помощью кода VBA
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек