Как да следвам хипервръзка към скрит лист в 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% и намалява стотици кликвания на мишката за вас всеки ден!