Come si fa a seguire un collegamento ipertestuale a un foglio nascosto in Excel?
Se si dispone di una cartella di lavoro con più fogli e si desidera utilizzare collegamenti ipertestuali su un foglio principale per passare a fogli nascosti, si noterà che i collegamenti diventano inattivi non appena i fogli vengono nascosti. Per risolvere questo problema, è possibile utilizzare del codice VBA in modo che, facendo clic su un collegamento ipertestuale, il corrispondente foglio nascosto venga aperto automaticamente. Questo articolo fornisce istruzioni dettagliate per ottenere questa funzionalità e offre anche l’opzione di nascondere nuovamente il foglio dopo essere tornati al foglio principale.
Segui il collegamento ipertestuale per aprire un foglio nascosto con codice VBA
Segui il collegamento ipertestuale per aprire un foglio nascosto e nasconderlo nuovamente con codice VBA
Segui il collegamento ipertestuale per aprire un foglio nascosto con codice VBA
Il seguente codice VBA ti permette di aprire il foglio di lavoro nascosto semplicemente facendo clic sul relativo collegamento ipertestuale. Procedi come segue:
1. Fai clic con il pulsante destro del mouse sulla scheda del foglio da cui vuoi attivare il collegamento ipertestuale al foglio nascosto, quindi scegli Visualizza codice dal menu contestuale. Nella finestra di Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: Segui il collegamento ipertestuale per aprire un 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
Nota: Nel codice riportato sopra, il numero 1 presente nell’istruzione If Target.Column = 1 Then indica il numero della colonna contenente i collegamenti ipertestuali; modificalo in base alle tue esigenze.
2. Chiudere quindi questa finestra del codice. Ora, quando si fa clic su un collegamento ipertestuale che punta a un foglio nascosto specifico, il foglio verrà aperto immediatamente.
Segui il collegamento ipertestuale per aprire un foglio nascosto e nasconderlo nuovamente con codice VBA
A volte è necessario seguire un collegamento ipertestuale per aprire un foglio nascosto e, al ritorno al foglio principale, si desidera che il foglio precedentemente aperto venga nuovamente nascosto. Il seguente codice VBA può esserti d’aiuto:
1.Fare clic con il pulsante destro del mouse sulla scheda del foglio da cui si desidera seguire il collegamento ipertestuale al foglio nascosto, quindi scegliere Visualizza codicedal menu contestuale. Nella finestra di Microsoft Visual Basic for Applicationsvisualizzata, copiare e incollare il seguente codice nel modulo vuoto:
Codice VBA: Segui il collegamento ipertestuale per aprire un foglio nascosto e nasconderlo nuovamente al ritorno:
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. Salvare e chiudere quindi la finestra del codice. Quando si fa clic sul collegamento ipertestuale, il foglio nascosto collegato verrà aperto immediatamente; tuttavia, non appena si torna al foglio principale contenente i collegamenti, il foglio precedentemente aperto verrà automaticamente nascosto di nuovo.
Nota: Questi codici si applicano esclusivamente ai nomi dei fogli che corrispondono al testo del collegamento ipertestuale.
Demo: Segui il collegamento ipertestuale per aprire un foglio nascosto con codice VBA
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi