Cómo enumerar todas las hojas de Excel con VBA

Hoja de trabajo de la clase en VBA es una poderosa herramienta que puede ser usada para crear, manipular y eliminar hojas en cualquier libro de Excel. Cada objeto de hoja tiene una propiedad llamada "Nombre", que se refiere a las etiquetas de la hoja de pestañas cerca de la parte inferior de la ventana de Excel. Con esto en mente, puede crear un script o macro VBA que "loops" a través de cada hoja de un libro y las listas de sus nombres en un rango de celda dada.

Instrucciones

1 Inicie Microsoft Excel y abra el libro.

2 Pulse la tecla "Alt + F8" para abrir la ventana de macros. Tipo de "GetSheetNames" en el cuadro "Nombre de macro" y haga clic en "Crear".

3 Introduzca el código siguiente en el editor de VBA.

GetSheetNames sub ()

Dim wSheet como hoja de trabajo

Para cada wSheet En las hojas de trabajo

On Error Resume Next

ActiveCell.Value = wSheet.Name

ActiveCell.Offset (1, 0) .Seleccionar

Siguiente wSheet

End Sub

4 Cierre el editor de VBA para volver a su libro.

5 Resaltar una celda en la hoja de cálculo. Pulse la tecla "Alt + I" y luego "C" para crear una columna en blanco.

6 Haga clic en la primera celda en blanco de la nueva columna.

7 Pulse la tecla "Alt + F8" para abrir la ventana de macros de nuevo. Seleccione "GetSheetNames" y haga clic en "Ejecutar".

Consejos y advertencias

• Si no desea crear una nueva columna de la lista, seleccione cualquier celda en blanco en su lugar. Asegúrese de que no son suficientes células para contener la lista. Por ejemplo, si el libro contiene 20 hojas, recoger una celda con 20 o más celdas en blanco debajo de ella.
• De forma predeterminada, las macros están deshabilitadas para Excel. Para habilitarlos, haga clic en el botón de Microsoft Office, vaya a "Opciones de Excel" y luego asegurarse de que "Mostrar ficha Programador en la cinta" está marcada. Haga clic en Aceptar." En algunos casos, es posible que tenga que reiniciar MS Excel para que los cambios surtan efecto.