Як перейти за гіперпосиланням на прихований аркуш у 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 Тоді скрипт вказує номер стовпця, який містить гіперпосилання, будь ласка, змініть його за вашими потребами.
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 для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!