¿Cómo insertar el número de página en una celda / encabezado / pie de página en Excel?

Al imprimir un archivo de Excel, es posible que necesite insertar los números de página en las páginas para que el archivo impreso sea ordenado y legible. En este artículo, le presentaré algunos trucos rápidos para insertar los números de página en una celda, encabezado o pie de página.

Insertar número de página en el encabezado / pie de página en una hoja de cálculo

Insertar número de página en el encabezado / pie de página a través de múltiples hojas de cálculo

Insertar número de página en una celda con código VBA

Eliminar todos los números de página a la vez en Excel

Insertar número de página en el encabezado / pie de página en una hoja de cálculo

Normalmente, podemos insertar los números de página en el encabezado o pie de página rápidamente utilizando la función Encabezado y Pie de página. Por favor, siga estos pasos:

1. Vaya a la hoja de cálculo donde desea insertar los números de página en el encabezado o pie de página.

2. Luego haga clic en Insertar > Encabezado y Pie de página, y su hoja de cálculo estará en la vista Diseño de Página, vea la captura de pantalla:

3. Haga clic en el encabezado o pie de página donde desea insertar el número de página, y luego se mostrará una pestaña Diseño con Herramientas de Encabezado y Pie de página en la Cinta, luego haga clic en Diseño > Número de Página, vea la captura de pantalla:

4. Y puede ver el marcador &[Página] aparecer en la sección seleccionada, luego haga clic en cualquier lugar fuera del área del encabezado o pie de página para mostrar los números de página. Ver captura de pantalla:

5. Ahora, puede regresar a la vista normal haciendo clic en Ver > Normal, y cuando imprima esta hoja de cálculo, verá que los números de página se han insertado en el encabezado o pie de página que seleccionó.

Nota: Si desea que los números de página se muestren como 1 de 15, 2 de 15, solo necesita ingresar directamente esto &[Página] de &[Páginas] en el campo del encabezado o pie de página, vea la captura de pantalla:

Insertar número de página en el encabezado / pie de página a través de múltiples hojas de cálculo

El método anterior puede ayudarle a insertar los números de página en una hoja de cálculo; si desea insertar los números de página en todas las hojas de cálculo del libro para numerar todas las páginas en orden secuencial, por favor, haga lo siguiente:

1. Seleccione todas las pestañas de las hojas, luego vaya a la pestaña Diseño de Página, y haga clic en el icono Botón de Iniciador del Cuadro de Diálogo en el grupo Configuración de Página, vea la captura de pantalla:

2. En el cuadro de diálogo Configuración de Página, haga clic en la pestaña Encabezado/Pie de página, y luego haga clic en Encabezado Personalizado o Pie de página Personalizado para configurar el encabezado o pie de página que desee, vea la captura de pantalla:

3. Y en el cuadro de diálogo Encabezado o Pie de página, defina la ubicación donde se insertarán los números de página haciendo clic dentro del cuadro Sección Izquierda:, Sección Central: o Sección Derecha: según lo necesite, y luego haga clic en el icono Insertar Número de Página, y aparece el marcador &[Página]. Ver captura de pantalla:

Nota: Introduzca esto &[Página] de &[Páginas] en el cuadro del campo del encabezado o pie de página si desea que los números de página se muestren como 1 de 45, 2 de 45…

4. Luego haga clic en Aceptar > Aceptar para cerrar los cuadros de diálogo, al imprimir este libro, en la vista previa de impresión, puede ver que todos los números de página se han insertado en el encabezado o pie de página en orden secuencial.

Insertar número de página en una celda con código VBA

Es fácil insertar los números de página en el encabezado o pie de página, pero si necesita insertar los números de página en una celda de la hoja de cálculo, no hay una manera directa de hacerlo. El siguiente código VBA puede ayudarle a resolver este problema.

1. Haga clic en una celda donde desea mostrar el número de página de esta celda.

2. Mantenga presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

3. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: Insertar el número de página actual en una celda:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Luego presione la tecla F5 para ejecutar este código, y el número de página de esta celda se muestra en la celda seleccionada, vea la captura de pantalla:

Eliminar todos los números de página a la vez en Excel

Para eliminar todos los números de página, puede aplicar los siguientes pasos:

1. Seleccione todas las pestañas de las hojas, y vaya a la pestaña Diseño de Página en la cinta, luego haga clic en el icono Botón de Iniciador del Cuadro de Diálogo en el grupo Configuración de Página, vea la captura de pantalla:

2. En el cuadro de diálogo Configuración de Página, haga clic en la pestaña Encabezado/Pie de página, y luego elija (ninguno) desde la lista desplegable Encabezado o Pie de página, vea la captura de pantalla:

3. Luego haga clic en el botón Aceptar, todos los números de página se eliminan del libro a la vez.