Come creare un sommario per tutti i fogli e aggiornarlo automaticamente?
Supponiamo che tu abbia una cartella di lavoro contenente centinaia di fogli di lavoro: spostarsi su un foglio specifico tra così tanti può risultare difficoltoso per molti utenti. In questi casi, creare un sommario per tali fogli può aiutarti a raggiungere rapidamente e facilmente il foglio desiderato. Questa guida illustra come creare un sommario per tutti i fogli e aggiornarlo automaticamente ogni volta che si inseriscono, eliminano o modificano i nomi dei fogli.
Usare una formula per creare un sommario per tutti i fogli e aggiornarlo automaticamente
Usare Kutools per Excel per creare un sommario per tutti i fogli e aggiornarlo automaticamente
Usare codice VBA per creare un sommario per tutti i fogli e aggiornarlo automaticamente
Usare una formula per creare un sommario per tutti i fogli e aggiornarlo automaticamente
In Excel puoi creare un sommario assegnando un nome a una cella e facendo riferimento a tale nome in una formula. Procedi nel seguente modo:
1. Inserisci un nuovo foglio prima di tutti gli altri, esattamente nel punto in cui desideri creare il sommario, e assegnagli il nome che preferisci.
2. Quindi fai clic su «Formule» > «Definisci nome» (vedi screenshot).
3. Nella finestra di dialogo «Nuovo nome», digita «Sheetlist» nella casella «Nome» (puoi modificarlo come preferisci) e inserisci la seguente formula nella casella «Si riferisce a»:
=GET.WORKBOOK(1)&T(NOW())
4. Quindi fai clic sul pulsante «OK» per chiudere la finestra di dialogo.
5. Passa ora al nuovo foglio in cui vuoi creare il sommario e inserisci la seguente formula in una cella vuota:
=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")6. Trascina quindi il quadratino di riempimento verso il basso finché non compaiono celle vuote: in questo modo verranno elencati tutti i nomi dei fogli (inclusi quelli nascosti) della cartella di lavoro corrente, come mostrato nello screenshot seguente:
7. Successivamente, crea un collegamento ipertestuale per il sommario utilizzando la seguente formula:
=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")
8. Ora, facendo clic sul testo del collegamento ipertestuale, si passerà immediatamente al foglio corrispondente. Inoltre, ogni volta che si inserisce un nuovo foglio, se ne elimina uno o se ne modifica il nome, il sommario viene aggiornato automaticamente.
- 1. Con questo metodo, anche tutti i fogli nascosti compaiono nel sommario.
- 2. È necessario salvare il file nel formato «Cartella di lavoro con macro abilitate di Excel»: in questo modo, al successivo riavvio del file, le formule funzioneranno correttamente.
Usare Kutools per Excel per creare un sommario per tutti i fogli e aggiornarlo automaticamente
Se disponi di «Kutools per Excel», la sua funzione «Navigazione» ti permette di visualizzare in elenco verticale tutti i nomi dei fogli in un riquadro a sinistra, consentendoti di passare rapidamente e facilmente al foglio desiderato.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Fai clic su «Kutools» > «Navigazione», come mostrato nello screenshot:
2. Nel riquadro espanso «Navigazione», fai clic sull’icona «Cartella di lavoro e Foglio»: nella casella superiore vengono elencate tutte le cartelle di lavoro aperte, mentre nella casella inferiore sono mostrati tutti i fogli visibili della cartella di lavoro attiva, come illustrato nello screenshot:
3. Da questo momento puoi passare a un foglio semplicemente facendo clic sul relativo nome nel riquadro a sinistra. Inoltre, quando elimini, inserisci o rinomini un foglio, l’elenco nel riquadro viene aggiornato dinamicamente.
Usare codice VBA per creare un sommario per tutti i fogli e aggiornarlo automaticamente
A volte potrebbe essere necessario escludere i fogli nascosti dal sommario. Il seguente codice VBA ti aiuta a risolvere questo problema.
1. Inserisci un nuovo foglio prima di tutti gli altri nel punto in cui desideri creare il sommario e rinominalo come preferisci. Poi fai clic con il tasto destro sulla linguetta del foglio e seleziona «Visualizza codice» dal menu contestuale, come mostrato nello screenshot:
2. Nella finestra «Microsoft Visual Basic, Applications Edition» che si apre, copia e incolla il codice seguente nella finestra del codice del foglio:
Codice VBA: crea un sommario per tutti i fogli e aggiornalo automaticamente
Private Sub Worksheet_Activate()
'Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Premi quindi il tasto «F5» per eseguire il codice: il sommario verrà generato immediatamente nel nuovo foglio di lavoro, senza mostrare i fogli nascosti, come illustrato nello screenshot:
4. D’ora in poi, ogni volta che eliminerai, inserirai o rinominerai un foglio, il sommario si aggiornerà automaticamente.
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