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