Si desea insertar cierta información en el encabezado / pie de página de la hoja de trabajo, como el nombre del archivo / ruta del archivo o la fecha actual o el número de página, puede hacerlo usando el siguiente código. Si es solo una hoja de trabajo, puede hacerlo manualmente, pero si son varias hojas o todas las hojas del libro de trabajo las que necesitan que se llene esta información, puede hacerlo usando una macro / código vba simple.
Esta macro de muestra insertará un encabezado / pie de página en cada hoja de trabajo del libro activo. También insertará la ruta completa al libro de trabajo.
Opción Explícita Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Cada wsInThisWorkbook.Worksheets con ws.PageSetup .LeftHeader = “Nombre de la empresa:” .CenterHeader = “Página & P de & N” .RightHeader = “Impreso & D & T”. "Ruta:" & ActiveWorkbook.Path .CenterFooter = "Nombre del libro de trabajo: & F" .RightFooter = "Hoja: & A" Finalizar con el siguiente ws Establecer ws = Nada Application.ScreenUpdating = True End Sub
Para copiar este código en su libro de trabajo, presione Alt + F11 en su teclado. Luego, en el lado izquierdo, verá Objetos de Microsoft Excel. Haga clic derecho y seleccione Insertar. Luego haga clic en Módulo y copie este código en la ventana de código a la derecha.
Vamos a dividir cada parte del código:
Comenzamos con la declaración Dim habitual donde declaramos las variables. En este caso, solo tenemos 1 variable: ws para la hoja de trabajo. Luego deshabilitamos la actualización de la pantalla.
Ahora, en el ciclo FOR, recorremos cada hoja de trabajo en el libro de trabajo que contiene la macro. Y configuramos cada parámetro en Configuración de página. & P, & N, & D, & T, & F y & A son ciertos códigos de formato que se pueden aplicar a encabezados y pies de página. & P imprime el número de página. & N imprime el número total de páginas del documento. & D imprime la fecha actual. & T imprime la hora actual. & F imprime el nombre del documento y & A imprime el nombre de la pestaña del libro.
Al final, configuramos la hoja de trabajo en cero, liberamos el objeto y habilitamos la actualización de la pantalla.
Aquí hay 2 imágenes. El 1S t uno te muestra el encabezado y el 2Dakota del Norte uno el pie de página después de que se haya ejecutado la macro.
El encabezado tiene la etiqueta Nombre de la empresa. El nombre aún no se ingresó ya que no lo hemos vinculado a ninguna celda ni incluido ningún texto para el nombre de la empresa. Si ingresa algo en el código o en la hoja de Excel y lo hace referencia, entonces el nombre se seleccionará y completará aquí.
Página # de 0 muestra que actualmente tenemos 0 páginas en el archivo, ya que hemos ejecutado este código en un archivo en blanco. Si ejecuta este código en un archivo que contiene datos, le mostrará el número de página.
Impreso le proporciona la fecha y hora en que se ejecutó la macro junto con el texto "Impreso".
En el pie de página, la etiqueta Ruta le mostrará la ruta del archivo actual.
Nuestro nombre de archivo es Book1.xlsx, que actualmente es un archivo sin guardar. Por lo tanto, no se muestra ninguna ruta para la etiqueta Ruta.
El número de hoja se completa a la derecha del pie de página.
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico