Come seguire il collegamento ipertestuale al foglio nascosto in Excel?
Ad esempio, ho una cartella di lavoro che contiene più fogli di lavoro, il primo foglio principale ha collegamenti ipertestuali ad altri fogli e ora nascondo tutti i fogli tranne il primo. In questo caso, i collegamenti ipertestuali che collegano a fogli nascosti non sono disponibili. Ma come potresti far funzionare correttamente questi collegamenti ipertestuali? Quando fai clic su un collegamento ipertestuale, il foglio nascosto collegato verrà aperto contemporaneamente come mostrato nella seguente schermata:
Segui il collegamento ipertestuale per aprire il foglio nascosto con il codice VBA
Segui il collegamento ipertestuale per aprire il foglio nascosto e nascondilo di nuovo con il codice VBA
Segui il collegamento ipertestuale per aprire il foglio nascosto con il codice VBA
Il seguente codice VBA può aiutarti ad aprire il foglio di lavoro nascosto quando fai clic sul relativo collegamento ipertestuale, per favore fai come segue:
1. Fare clic con il pulsante destro del mouse sulla scheda del foglio che si desidera seguire il collegamento ipertestuale al foglio nascosto, quindi scegliere Visualizza codice dal menu contestuale, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: segui il collegamento ipertestuale per aprire il foglio nascosto:
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
Note:: Nel codice sopra, il numero 1 in questo Se Target.Column = 1 Then lo script indica il numero di colonna che contiene i collegamenti ipertestuali, per favore cambialo in base alle tue necessità.
2. Quindi salva e chiudi questa finestra di codice, ora, quando fai clic sul collegamento ipertestuale che collega al foglio nascosto specifico, il foglio nascosto verrà aperto immediatamente.
Segui il collegamento ipertestuale per aprire il foglio nascosto e nascondilo di nuovo con il codice VBA
A volte, è necessario seguire il collegamento ipertestuale per aprire il foglio nascosto e quando torni al foglio principale, vuoi che il foglio aperto sia nascosto di nuovo. Il codice VBA sottostante può farti un favore:
1. Fare clic con il pulsante destro del mouse sulla scheda del foglio che si desidera seguire il collegamento ipertestuale al foglio nascosto, quindi scegliere Visualizza codice dal menu contestuale, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: segui il collegamento ipertestuale per aprire il foglio nascosto quando torni indietro nascondilo di nuovo:
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. Quindi salva annuncio chiudi la finestra del codice, quando fai clic sul collegamento ipertestuale, il foglio nascosto collegato verrà aperto immediatamente, ma, se torni al foglio principale che contiene i collegamenti ipertestuali, il foglio aperto verrà nuovamente nascosto automaticamente.
Note:: Questi codici vengono applicati solo ai nomi dei fogli che corrispondono al testo del collegamento ipertestuale.
Demo: segui il collegamento ipertestuale per aprire il foglio nascosto con il codice VBA
Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!