Crea rapidamente un foglio di lavoro di riepilogo con collegamenti ipertestuali in Excel

Molti dei miei colleghi trascorrono molto del loro tempo nella creazione di un foglio di lavoro di riepilogo in Excel.

Un tipico foglio di lavoro di riepilogo ha i nomi di tutti i fogli di lavoro in celle diverse e tutti i nomi sono anche collegati a questi fogli di lavoro.

Quindi puoi fare clic su una cella con un nome di foglio (diciamo gennaio, febbraio, marzo… ) e ti porterà a quel foglio di lavoro. Inoltre, c'è anche un collegamento ipertestuale su ogni foglio di lavoro che si collega al foglio di lavoro di riepilogo.

Mentre i miei colleghi sono diventati super efficienti nel fare questo, è ancora una perdita di tempo quando puoi fare la stessa cosa in meno di un secondo (sì, hai letto bene).

Il trucco è creare una breve macro che lo faccia per te.

Non importa quanti fogli di lavoro hai, creerà immediatamente un foglio di lavoro riassuntivo con collegamenti ipertestuali funzionanti.

Qualcosa come mostrato di seguito:

Come puoi vedere nell'immagine sopra, crea istantaneamente il riepilogo quando esegui la macro (facendo clic sul pulsante). I nomi dei fogli sono collegati a un collegamento ipertestuale che ti porta al foglio di lavoro quando fai clic su di esso.

Crea un foglio di lavoro di riepilogo con collegamenti ipertestuali

Tutto il lavoro pesante nella creazione del foglio di lavoro di riepilogo viene eseguito da un breve codice VBA. Devi solo eseguire il codice e fare una pausa perché ora avresti del tempo libero 🙂

Ecco il codice:

Sub CreateSummary() 'Created by Sumit Bansal of trumpexcel.com 'Questo codice può essere utilizzato per creare un foglio di lavoro riassuntivo con collegamenti ipertestuali Dim x As Worksheet Dim Counter As Integer Counter = 0 For Each x In Worksheets Counter = Counter + 1 If Counter = 1 Quindi GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "!A1", TextToDisplay:=x.Name, ScreenTip: = "Fai clic qui per andare al foglio di lavoro" con i fogli di lavoro (Contatore) .Range("A1").Value = "Torna a " & ActiveSheet.Name .Hyperlinks.Add Sheets(x.Name).Range("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip:="Return to " & ActiveSheet.Name Termina con End With ActiveCell.Offset(1, 0).Seleziona Non fare: Next x End Sub 

Dove mettere questo codice?

Segui i passaggi seguenti per inserire questo codice nella cartella di lavoro:

1. Vai alla scheda Sviluppatore e fai clic su Visual Basic. Puoi anche usare la scorciatoia da tastiera - ALT F11.
   • Se riesci a trovare la scheda sviluppatore nella barra multifunzione in Excel, fai clic qui per sapere come ottenerla.
2. Dovrebbe esserci un riquadro Esplora progetti a sinistra (se non è lì, usa Control + R per renderlo visibile).
3. Vai a Inserisci e fai clic su Modulo. Questo aggiunge un modulo alla cartella di lavoro. Inoltre, a destra, vedresti apparire la finestra del codice (con un cursore lampeggiante).
4. Nella finestra del codice del modulo, copia e incolla il codice sopra.

Esecuzione del codice

Per eseguire questo codice:

• Vai alla scheda Sviluppatore -> Codice -> Macro. Questo aprirà la finestra di dialogo Macro.
• Selezionare la Macro CreateSummary e fare clic su Esegui.
• Questo eseguirà la macro e creerà i collegamenti ipertestuali nel foglio attivo.

Un altro modo per eseguire la macro è inserire un pulsante/forma e assegnargli la macro. Per fare questo:

• Inserisci una forma nel foglio di lavoro. Formatta la forma nel modo desiderato.
• Fare clic con il tasto destro su di esso e selezionare Assegna macro.
• Nella casella Assegna macro selezionare la macro che si desidera assegnare alla forma e fare clic su OK.

Ora puoi semplicemente fare clic sulla forma per eseguire la macro.

Scarica il file da qui

Nota:

1. Ho codificato la cella A1 in ogni foglio, che è collegata a un collegamento ipertestuale per riportarti al foglio di riepilogo. Assicurati di cambiarlo di conseguenza se hai già qualcosa nella cella A1 in ogni foglio.
2. Il riepilogo non crea un collegamento ipertestuale per se stesso (il che ha senso poiché sei già su quel foglio).
3. Esegui questo codice quando il foglio di lavoro di riepilogo è il foglio di lavoro attivo.
4. Potresti voler aggiungere un po' di formattazione o riarrangiamento. Ma spero che questo codice si occupi della parte difficile.
5. Salva questa cartella di lavoro come estensione .xls o .xlsm, poiché contiene una macro.

Altri tutorial VBA di Excel:

• Ottieni più valori di ricerca senza ripetizione in una singola cella.
• Matrice di priorità delle attività - Applicazione VBA.
• Come combinare più cartelle di lavoro in una cartella di lavoro di Excel
• Cicli VBA di Excel - For Next, Do While, Do Until, For Each (con esempi).
• Come registrare una macro in: una guida passo passo.
• Come rimuovere rapidamente i collegamenti ipertestuali da un foglio di lavoro in Excel
• Corso online Excel VBA.