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 di lavoro e di voler elencare automaticamente tutti i nomi dei fogli, completi di collegamenti ipertestuali cliccabili per navigare verso ciascun foglio corrispondente. Questa guida offre metodi rapidi ed efficaci per generare un elenco di nomi dei fogli di lavoro in Excel.

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro dinamicamente con le formule

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro con Kutools per Excel

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro con il codice VBA

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro dinamicamente con le formule

In Excel, puoi definire un nome di intervallo e poi applicare una formula per elencare tutti i nomi dei fogli dalla cartella di lavoro corrente; procedi con i seguenti passaggi:

1. Vai su "Formule" > "Nomi", vedi screenshot:

2. Nella finestra di dialogo "Gestione Nomi", fai clic sul pulsante "Nuovo", vedi screenshot:

3. Nella finestra pop-up "Nuovo Nome", specifica un nome nella casella di testo "Nome" e poi copia la seguente formula nella casella di testo "Si riferisce a", vedi screenshot:

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

4. Quindi fai clic su "OK" > "Chiudi" per chiudere le finestre di dialogo. Ora vai su un foglio dove vuoi elencare tutti i nomi dei fogli e inserisci la seguente formula in una cella vuota:

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

Nota: Nella formula sopra, "Sheetnames" è il nome dell'intervallo che hai creato nel passaggio 3.

5. Poi trascina la maniglia di riempimento verso il basso fino a quando non vengono visualizzate celle vuote, e ora tutti i nomi dei fogli della cartella di lavoro corrente sono stati elencati come mostrato nello screenshot qui sotto:

6. Se desideri creare il collegamento ipertestuale per ogni foglio, utilizza la seguente formula:

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

Nota: Nella formula sopra, "A2" è la cella che contiene il nome del foglio e "A1" è la cella dove vuoi che si trovi la cella attiva. Ad esempio, se fai clic sul testo del collegamento ipertestuale, verrà posizionata la cella A1 del foglio.

7. Ora, quando fai clic sul testo del collegamento ipertestuale, ti porterà a quel foglio, vedi la demo qui sotto:

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro con Kutools per Excel

Con l'utilità "Crea tabella di collegamento" del componente aggiuntivo di terze parti "Kutools per Excel", puoi creare un elenco di nomi dei fogli di lavoro con un solo clic e collegarlo a ciascun foglio di lavoro con un collegamento ipertestuale.

1. Fai clic su "Kutools Plus" > "Foglio" > "Crea tabella di collegamento", vedi screenshot:

2. Nella finestra di dialogo "Crea tabella di collegamento", specifica le seguenti impostazioni:

(1.) Scegli lo "stile indice fogli" che preferisci, puoi creare i nomi dei fogli di lavoro con collegamenti ipertestuali o con pulsanti macro. (2.) Inserisci i nomi dei fogli di lavoro per l'indice dei fogli. (3.) Specifica la posizione dell'indice dei fogli di lavoro. (4.) Specifica quante colonne vuoi utilizzare nel nuovo foglio di lavoro per visualizzare i nomi dei fogli di lavoro.

3. Dopo aver completato le impostazioni, fai clic su "OK". Tutti i nomi dei fogli di lavoro sono stati elencati con collegamenti in un nuovo foglio di lavoro della cartella di lavoro corrente. Vedi screenshot:

nomi dei fogli con collegamenti ipertestuali	nomi dei fogli con pulsanti macro

Ottieni un elenco di tutti i nomi dei fogli di lavoro da una cartella di lavoro con il codice VBA

1. Tieni premuti i tasti "ALT" + "F11" e si aprirà la finestra "Microsoft Visual Basic for Applications".

2. Fai clic su "Inserisci" > "Modulo" e incolla la seguente macro nella finestra "Modulo".

VBA: Elenca tutti i nomi dei fogli 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. Premi il tasto "F5" per eseguire questa macro. Tutti i nomi dei fogli di lavoro dalla cartella di lavoro attiva sono ora elencati in un nuovo foglio di lavoro denominato "Index", con collegamenti ipertestuali che portano a ciascun foglio rispettivo. Vedi lo screenshot qui sotto:

Articoli correlati