Saltar al contenido principal

¿Cómo especificar el formato de fecha o fecha y hora en el encabezado o pie de página?

Normalmente, cuando inserta la fecha u hora en el encabezado o pie de página con el &[Fecha] or &[Hora] código, el formato de fecha u hora se basa en la configuración regional controlada por Windows. En este caso, ¿cómo podría cambiar el formato de fecha o fecha y hora según sus propias necesidades en el encabezado o pie de página como se muestra en la siguiente captura de pantalla?

fecha de formato de documento en el encabezado 1

Especifique el formato de fecha o fecha y hora en el encabezado o pie de página con código VBA

flecha azul burbuja derecha Especifique el formato de fecha o fecha y hora en el encabezado o pie de página con código VBA

Aquí, presentaré un código VBA simple para que resuelva esta tarea en Excel, haga lo siguiente:

1. Active la hoja de trabajo que desea insertar y formatee la fecha en el encabezado o pie de página, y luego haga clic en Diseño de página en la esquina inferior derecha del libro de trabajo para habilitar la vista de diseño de página, vea la captura de pantalla:

fecha de formato de documento en el encabezado 2

2. Mantenga pulsado el ALT + F11 teclas en Excel para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: inserte y formatee la fecha en el encabezado o pie de página:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Note: En el código anterior, puede cambiar el Encabezado central a Encabezado izquierdo, Centro de pie de página… Y el formato de fecha mmmm dd, aaaa También se puede cambiar según lo necesite.

4. Y luego presione F5 para ejecutar este código, y el formato de fecha especificado se ha insertado en el encabezado o pie de página a la vez. Ver captura de pantalla:

fecha de formato de documento en el encabezado 3

Tips: Si desea insertar su propio formato de fecha y hora en el encabezado o pie de página, aplique el siguiente código:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

Y obtendrás el siguiente resultado:

fecha de formato de documento en el encabezado 4

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples  |   Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas   |  Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas   |  Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas:  12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (8)
No ratings yet. Be the first to rate!
Estefania
Estefania
This comment was minimized by the moderator on the site
Hi, how can I change to upper case the month? I tried a few things but doesn't work :(
Reply
0
0
skyyang
skyyang     Estefania
This comment was minimized by the moderator on the site
Hello, Estefania
To make the month in the date appear in uppercase, you can use the UCase function in VBA to convert the month to uppercase. Here’s how you can modify your code:
Sub add_date_header()
    ActiveSheet.PageSetup.CenterHeader = UCase(Format(Date, "mmmm dd, yyyy"))
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
jtlw
jtlw
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
Reply
0
0
skyyang
skyyang     jtlw
This comment was minimized by the moderator on the site
Hello,
To add the date 1day advanced totay, please apply the following code:
Sub SetAdvancedDateInHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tomorrow As Date
    tomorrow = Date + 1
    ws.PageSetup.CenterHeader = Format(tomorrow, "mm/dd/yyyy")
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
C Harvey
C Harvey
This comment was minimized by the moderator on the site
How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:Sub Change_Format()
ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
End Sub
Reply
0
0
Kasra
Kasra
This comment was minimized by the moderator on the site
Hi, Thank You
Can I ask you how can I change the font and size of "Date" by VBA?
I mean with same code that you wrote for insert date into header by VBA.
Thanks
Reply
0
0
Paula McSorley
Paula McSorley
This comment was minimized by the moderator on the site
I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
Reply
0
0
Judy Kunz
Judy Kunz
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations