Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Registrarse  \/ 
x

or

¿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

Nota:: En el código anterior, puede cambiar el CenterHeader a LeftHeader, CenterFooter… 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

Consejos: 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kasra · 8 months ago
    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
  • To post as a guest, your comment is unpublished.
    Paula McSorley · 11 months ago
    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?
  • To post as a guest, your comment is unpublished.
    Judy Kunz · 1 years ago
    This doesn't seem to work anymore.