Come creare un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro?

Immagina di avere una cartella di lavoro con più fogli e di voler generare automaticamente un elenco completo dei nomi dei fogli, ciascuno corredato da un collegamento ipertestuale cliccabile per passare istantaneamente al foglio corrispondente. Questa guida ti offre metodi rapidi ed efficaci per creare un elenco dinamico dei nomi dei fogli in Excel.

Ottieni dinamicamente un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con formule

Ottieni un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con Kutools per Excel

Ottieni un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con codice VBA

Ottieni dinamicamente un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con formule

In Excel puoi assegnare un nome a una cella e quindi utilizzare una formula per elencare tutti i nomi dei fogli dal foglio di lavoro corrente. Procedi nel seguente modo:

1. Fare clic su «Formule» > «Gestione nomi» (vedi screenshot).

2. Nella finestra di dialogo «Gestione nomi», fai clic sul pulsante «Nuovo» (vedi screenshot).

3. Nella finestra di dialogo «Nuovo nome» visualizzata, inserisci un nome nella casella di testo «Nome» e copia la seguente formula nella casella di testo «Si riferisce a», come mostrato nello screenshot:

=GET.WORKBOOK(1)&T(NOW())

4. Fare quindi clic su «OK» > «Chiudi» per chiudere le finestre di dialogo. Successivamente, passare a un foglio in cui si desidera elencare tutti i nomi dei fogli e inserire la seguente formula in una cella vuota:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Nota: nella formula riportata sopra, «Sheetnames» è il nome della cella definito al passaggio 3.

5. Trascina quindi il quadratino di riempimento verso il basso finché non compaiono celle vuote. A quel punto, tutti i nomi dei fogli della cartella di lavoro corrente saranno stati elencati, come mostrato nello screenshot seguente:

6. Per creare un collegamento ipertestuale per ogni foglio, utilizza la seguente formula:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Nota: nella formula sopra riportata, «A2» è la cella che contiene il nome del foglio, mentre «A1» è la cella in cui si desidera posizionare il cursore attivo. Ad esempio, facendo clic sul testo del collegamento ipertestuale, si passerà direttamente alla cella A1 del foglio indicato.

7. Ora, facendo clic sul testo del collegamento ipertestuale, passerai direttamente a quel foglio—guarda la demo seguente:

Ottieni un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con Kutools per Excel

Con lo strumento «Crea tabella di collegamento» dell’add-in di terze parti «Kutools per Excel», in un solo clic puoi generare un elenco con i nomi dei fogli di lavoro e collegarli automaticamente tramite collegamenti ipertestuali.

1. Fare clic su «KUTOOLS PLUS» > «Foglio di lavoro» > «Crea tabella di collegamento», come mostrato nello screenshot:

2. Nella finestra di dialogo «Crea tabella di collegamento», imposta i seguenti parametri:

(1.) Scegli lo «Stile» che preferisci: puoi creare il nome del foglio di lavoro con collegamenti ipertestuali o con pulsanti macro. (2.) Inserisci il nome del foglio di lavoro da utilizzare come indice. (3.) Specifica la posizione dell’indice del foglio di lavoro. (4.) Specifica il numero di colonne che desideri utilizzare nel nuovo foglio di lavoro per visualizzare il nome del foglio.

3. Al termine delle impostazioni, fare clic su «OK». Tutti i nomi dei fogli di lavoro sono stati elencati con collegamenti in un nuovo foglio di lavoro all’interno della cartella di lavoro corrente. Vedi screenshot:

Nome del foglio di lavoro con collegamenti ipertestuali	Nome del foglio di lavoro con pulsanti macro

Ottieni un elenco di tutti i Nome del foglio di lavoro da una cartella di lavoro con codice VBA

1. Tenere premuti i tasti «ALT» + «F11» per aprire la finestra «Microsoft Visual Basic, Applications».

2. Fare clic su «Inserisci» > «Modulo» e incollare la seguente macro nella finestra del modulo.

VBA: elenca tutti i Nome del foglio di lavoro con collegamenti ipertestuali in un Nuovo foglio di lavoro:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Premere il tasto «F5» per eseguire questa macro. Tutti i nomi dei fogli di lavoro della cartella corrente vengono ora elencati in un nuovo foglio denominato «Indice», completo di collegamenti ipertestuali per passare direttamente a ciascun foglio corrispondente. Vedi lo screenshot seguente:

Articoli correlati