Come creare automaticamente il sommario per tutti i fogli e gli aggiornamenti?
Supponendo di avere una cartella di lavoro che contiene centinaia di fogli di lavoro, passare a un foglio specifico tra più fogli può causare mal di testa alla maggior parte di noi. In questo caso, creare un sommario per questi fogli di lavoro può aiutarti ad accedere a un determinato foglio in modo rapido e semplice. Questo tutorial parlerà di come creare un sommario per tutti i fogli e aggiornare automaticamente la tabella durante l'inserimento, l'eliminazione o la modifica dei nomi dei fogli.
Crea un sommario per tutti i fogli e aggiorna automaticamente con le formule
Crea automaticamente un sommario per tutti i fogli e gli aggiornamenti con un codice VBA
Crea automaticamente un sommario per tutti i fogli e gli aggiornamenti con una potente funzionalità
Crea un sommario per tutti i fogli e aggiorna automaticamente con le formule
In Excel, puoi creare un sommario definendo un nome di intervallo e facendo riferimento al nome in una formula, esegui i seguenti passaggi:
1. Inserisci un nuovo foglio prima di tutti i fogli in cui desideri creare il sommario e rinominalo come preferisci.
2. Quindi, fare clic Formula > Definisci nome, vedi screenshot:
3. Nel Nuovo nome finestra di dialogo, specificare un nome Elenco fogli nella Nome casella, puoi cambiarlo con il tuo, quindi inserire questa formula: = GET.WORKBOOK (1) & T (NOW ()) nella Si riferisce a casella di testo, vedi screenshot:
4. Quindi, fare clic OK pulsante per chiudere la finestra di dialogo.
5. Ora vai al nuovo foglio in cui desideri creare un sommario, quindi inserisci la seguente formula in una cella vuota:
6. Quindi trascina il quadratino di riempimento verso il basso sulle celle finché non vengono visualizzate le celle vuote e tutti i nomi dei fogli (inclusi i fogli nascosti) della cartella di lavoro corrente sono stati elencati come mostrato nell'immagine seguente:
7. Quindi, dovresti creare collegamenti ipertestuali per il contenuto della tabella, utilizzare la formula seguente:
8. Ora, quando si fa clic sul testo del collegamento ipertestuale, verrà immediatamente visualizzato quel foglio. E se inserisci un nuovo foglio, elimini un foglio o modifichi il nome del foglio, il contenuto della tabella verrà aggiornato automaticamente.
- 1. Con questo metodo, tutti i fogli nascosti vengono visualizzati anche nel contenuto della tabella.
- 2. È necessario salvare il file come Cartella di lavoro abilitata per Excel formattare, in questo modo, alla successiva apertura di questo file, le formule possono funzionare bene.
Crea automaticamente un sommario per tutti i fogli e gli aggiornamenti con un codice VBA
A volte, non è necessario visualizzare i fogli nascosti nel contenuto della tabella. Per risolvere questo problema, il seguente codice VBA può farti un favore.
1. Inserisci un nuovo foglio prima di tutti i fogli in cui desideri creare il sommario e rinominalo come preferisci. Quindi, fai clic con il pulsante destro del mouse sulla scheda del foglio e scegli Visualizza codice dal menu contestuale, vedi screenshot:
2. In aperto Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice seguente nella finestra del codice del foglio:
Codice VBA: crea automaticamente un sommario per tutti i fogli e gli aggiornamenti
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. Quindi, premere F5 chiave per eseguire questo codice e il contenuto della tabella viene creato contemporaneamente nel nuovo foglio di lavoro, tutti i fogli nascosti non verranno visualizzati nel contenuto della tabella, vedere screenshot:
4. Modulo ora, quando si elimina, si inserisce o si rinomina un foglio, il contenuto della tabella verrà aggiornato dinamicamente.
Crea automaticamente un sommario per tutti i fogli e gli aggiornamenti con una potente funzionalità
Se si dispone di Kutools for Excel, suo Pannello di navigazione può aiutarti a elencare tutti i nomi dei fogli in un riquadro sinistro verticalmente e passare al foglio specifico in modo rapido e semplice.
Dopo l'installazione Kutools for Excel, per favore fai come questo:
1. Clicchi Kutools > Navigazione, vedi screenshot:
2. Nel espanso Navigazione fai clic su Cartella di lavoro e foglio icona, tutte le cartelle di lavoro aperte sono elencate nella casella di riepilogo in alto e tutti i fogli visibili all'interno della cartella di lavoro vengono visualizzati nella casella di riepilogo in basso, vedere screenshot:
3. E ora puoi andare al foglio semplicemente facendo clic sul nome del foglio nel riquadro di sinistra. E quando elimini, inserisci o rinomini un foglio, l'elenco dei fogli nel riquadro verrà aggiornato dinamicamente.
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!