¿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?
Especifique el formato de fecha o fecha y hora en el encabezado o pie de página con código VBA
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:
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
<b>Nota</b>: 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:
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:
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.
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!
