Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

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 master ha collegamenti ipertestuali ad altri fogli, e ora, nascondo tutti i fogli tranne il primo. In questo caso, i collegamenti ipertestuali che si collegano ai fogli nascosti non sono disponibili. Ma come potresti far funzionare questi collegamenti ipertestuali? Quando si fa clic su un collegamento ipertestuale, il foglio nascosto collegato verrà aperto contemporaneamente come mostrato di seguito:

doc collegamento ipertestuale al foglio nascosto 1

Segui il collegamento ipertestuale per aprire il foglio nascosto con il codice VBA

Segui il collegamento ipertestuale per aprire il foglio nascosto e poi nasconderlo di nuovo con il codice VBA


Elencare tutti i nomi dei fogli di lavoro e collegarli a ciascun foglio:

Con Kutools for Excel's Crea un elenco di nomi di fogli utilità, è possibile elencare rapidamente tutti i nomi dei fogli di lavoro in un nuovo foglio con collegamenti ipertestuali o pulsanti macro di cui si ha bisogno.

nomi del foglio di lavoro con collegamenti ipertestuali nomi del foglio di lavoro con pulsanti macro
doc-list-foglio-names2  2 doc-list-foglio-names2  2 doc-list-foglio-names2

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 suo 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 e quindi scegliere Visualizza codice dal menu di scelta rapida, nel messaggio saltato fuori Microsoft Visual Basic, Applications Edition finestra, per favore 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 20161109
    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

doc collegamento ipertestuale al foglio nascosto 2

Note: Nel codice sopra, il numero 1 in questo Se Target.Column = 1 Then lo script indica il numero della colonna che contiene i collegamenti ipertestuali, si prega di cambiarlo.

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 in una volta.


Segui il collegamento ipertestuale per aprire il foglio nascosto e poi nasconderlo di nuovo con il codice VBA

A volte, è necessario seguire il collegamento ipertestuale per aprire il foglio nascosto e quando si torna indietro nel foglio principale, si desidera che il foglio aperto venga nuovamente nascosto. 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 e quindi scegliere Visualizza codice dal menu di scelta rapida, nel messaggio saltato fuori Microsoft Visual Basic, Applications Edition finestra, per favore copia e incolla il seguente codice nel modulo vuoto:

Codice VBA: segui il collegamento ipertestuale per aprire il foglio nascosto quando torni a nasconderlo di nuovo:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    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

doc collegamento ipertestuale al foglio nascosto 3

2. Quindi salva l'annuncio chiude la finestra del codice, quando fai clic sul collegamento ipertestuale, il foglio nascosto collegato verrà aperto immediatamente, ma, se torni indietro nel foglio principale che contiene i collegamenti ipertestuali, il foglio aperto verrà automaticamente nascosto di nuovo.

Note: I codici tesi 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 200 pratici componenti aggiuntivi di Excel, liberi di provare senza limitazioni nei giorni 60. Scarica e prova gratis ora!


Kutools per Excel: il miglior strumento di produttività per ufficio aumenta la produttività del 80%

  • Riutilizzo: Inserire rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Cifra le celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggere e modificare facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere i dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Previeni celle duplicate; Confronta le gamme...
  • Seleziona Duplica o Unica Righe; Seleziona righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molti libri di esercizi; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento alla formula; Creazione automatica di riferimenti a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • estrarre il testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare subtotali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtro ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale di grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle basate su colonne chiave; Dividi i dati in più fogli; Converti in batch xls, xlsx e PDF...
  • Oltre alle potenti funzionalità di 300. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzioni complete di prova gratuita di 60-day.
kte tab 201905

Scheda Office Porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Editore, accesso, Visio e progetto.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la tua produttività di 50% e riduce centinaia di clic del mouse per te ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.