Supongamos que tiene un libro de trabajo con varias hojas de trabajo, ahora desea enumerar todos los nombres de las hojas en el libro de trabajo actual, ¿existe algún método rápido para crear una lista de estos nombres de hojas en Excel sin escribirlos uno por uno? Este tutorial proporciona instrucciones sobre cómo enumerar los nombres de las hojas de trabajo en Excel.

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro de trabajo de forma dinámica con fórmulas

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro con una función útil

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro con código VBA

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro de trabajo de forma dinámica con fórmulas

En Excel, puede definir un nombre de rango y luego aplicar una fórmula para enumerar todos los nombres de hojas del libro de trabajo actual, siga los siguientes pasos:

1. Ir a hacer clic Fórmula > Administrador de nombre, ver captura de pantalla:

2. En la Administrador de nombre cuadro de diálogo, haga clic en Nuevo botón, ver captura de pantalla:

3. En el estalló Nuevo nombre diálogo, especifique un nombre en el Nombre cuadro de texto y luego copie la fórmula siguiente en el Se refiere a cuadro de texto, ver captura de pantalla:

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

4. Luego haga clic OK > Cerrar para cerrar los cuadros de diálogo, ahora, vaya a una hoja en la que desee enumerar todos los nombres de las hojas y luego ingrese la siguiente fórmula en una celda en blanco:

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

Note: En la fórmula anterior, Nombres de hoja es el nombre del rango con el que aparece en el paso 3.

5. Y luego arrastre el controlador de relleno hacia las celdas cuando se muestren celdas en blanco, y ahora, todos los nombres de las hojas del libro de trabajo actual se han enumerado como se muestra a continuación:

6. Si desea crear el hipervínculo para cada hoja, utilice la siguiente fórmula:

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

Note: En la fórmula anterior, A2 es la celda que contiene el nombre de la hoja, y A1 es la celda donde desea que se ubique la celda activa. Por ejemplo, si hace clic en el texto del hipervínculo, localizará la celda A1 de la hoja.

7. Ahora, cuando haga clic en el texto del hipervínculo, lo llevará a esa hoja, vea la demostración a continuación:

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro con una función útil

Con la Crear lista de nombres de hojas utilidad del complemento de terceros Kutools for Excel, puede crear una lista de nombres de hojas de trabajo con un solo clic y vincular cada hoja de trabajo con hipervínculo.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Haga Clic en Kutools Más > Hoja de trabajo > Crear lista de nombres de hojas, ver captura de pantalla:

2. En la Crear lista de nombres de hojas cuadro de diálogo, especifique la siguiente configuración:

(1.) Elija estilos de índice de hoja que desee, puede crear los nombres de las hojas de trabajo con hipervínculos o con botones de macro. (2.) Ingrese los nombres de las hojas de trabajo para el índice de hojas. (3.) Especifique la ubicación del índice de la hoja de trabajo. (4.) Especifique cuántas columnas desea usar en la nueva hoja de trabajo para mostrar los nombres de la hoja de trabajo.

3. Después de terminar la configuración, haga clic en OK. Todos los nombres de las hojas de trabajo se enumeran con enlaces en una nueva hoja de trabajo del libro de trabajo actual. Ver captura de pantalla:

nombres de hojas de trabajo con hipervínculos	nombres de hojas de trabajo con botones de macro

Obtenga una lista de todos los nombres de las hojas de trabajo de un libro con código VBA

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.

VBA: enumere todos los nombres de las hojas de trabajo con hipervínculos en una nueva hoja de trabajo:

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. presione el F5 clave para ejecutar esta macro. Ahora todos los nombres de las hojas de trabajo en el libro activo se han incluido en una nueva hoja de trabajo llamada Índice, y los nombres de las hojas también están vinculados a cada hoja, vea la captura de pantalla:

Artículos relacionados