Borrar el estilo de celda de entrada para imprimir
Realmente me gusta resaltar las celdas de entrada aplicando el Estilo de celda de entrada. También me gusta intentar colocar todas las celdas de entrada de un libro en una sola hoja de trabajo. De esa manera, es fácil actualizar las celdas de entrada y, como no están en ninguna de las hojas que necesito imprimir, el formato del estilo de las celdas de entrada no es un problema. Sin embargo, a veces puede ser necesario colocar una celda de entrada en una hoja de trabajo que se imprimirá. Entonces, esta publicación proporciona una macro que elimina instantáneamente el formato del Estilo de celda de entrada para que puedas imprimir. Una segunda macro restaura el formato de estilo de celda predeterminado.
Objetivos
Antes de pasar directamente a los aspectos técnicos y el código VBA, asegurémonos de que estamos en la misma página. Digamos que tenemos algunas celdas de entrada que almacenan el nombre de la empresa y el nombre del contacto, como se muestra a continuación.
Queremos identificar las celdas de entrada para que al usuario le resulte más fácil saber qué celdas requieren entrada. Entonces, seleccionamos las celdas de entrada y aplicamos el Estilo de celda de entrada (que se encuentra en la galería Estilos de celda en la pestaña Inicio). El resultado se muestra a continuación.
Ahora las celdas de entrada son fáciles de ver. Cuando aplicamos el estilo de celda de entrada en hojas de trabajo que no necesitan imprimirse, la vida es buena. Pero, cuando aplicamos el estilo de celda de entrada en hojas diseñadas para imprimirse, es posible que no queramos que el formato aparezca en la página impresa.
Entonces, esta publicación explica una forma de abordar este problema, que es ejecutar una macro antes de imprimir que borre el formato del estilo de celda de entrada. Luego, imprimiría la hoja de trabajo. Luego, ejecutaría otra macro que restaure el formato del estilo de celda de entrada.
¿Suena bien? Muy bien, vayamos a ello.
Detalles
Dado que anteriormente analizamos la grabación de macros, el libro de macros personal y la configuración de una caja de herramientas de macros, en lugar de repetir todos esos detalles aquí nuevamente, proporcionaré enlaces a esas publicaciones a continuación y procederé directamente al código VBA. Puede copiar el código y pegarlo en su editor VB según sea necesario. O, si lo prefiere, simplemente descargue el archivo Excel de muestra a continuación que tiene el código VBA.
En la práctica, después de aplicar el estilo de celda de entrada, la idea básica es que:
- Borrar los formatos de estilo de entrada
- Imprima la hoja de trabajo
- Restaurar los formatos de estilo de entrada
Repasemos estos pasos.
Borrar los formatos de estilo de entrada
Entonces, suponiendo que ya haya aplicado el estilo de celda de entrada a varias celdas del libro, querrá ejecutar esta macro.
SubEntradaEstiloBorrar() Con ActiveWorkbook.Styles ("Entrada") .Interior.Patrón = xlNinguno .Font.ColorIndex = xlAutomático .Borders(xlLeft).LineStyle = xlNinguno .Borders(xlRight).LineStyle = xlNinguno .Borders(xlTop).LineStyle = xlNinguno .Borders(xlBottom).LineStyle = xlNinguno Terminar conSubtítulo final
Al revisar el código, puede ver que aplica varios formatos al estilo de entrada, es decir, elimina el relleno, establece el color de fuente en automático y elimina los bordes.
Nota: Hay varias formas de ejecutar macros, incluida la configuración de un botón QAT, un botón de hoja de cálculo, el cuadro de diálogo Macros o incluso el editor VB. Para obtener más información, consulte los recursos adicionales a continuación.
Después de ejecutar la macro, el estilo de celda de entrada aún se aplica a las celdas de entrada, pero el formato se actualiza para que aparezca como cualquier celda normal, es decir, sin relleno, bordes ni color de fuente.
Imprima la hoja de trabajo
Ahora, puede imprimir la hoja de trabajo según sea necesario y las celdas de entrada no mostrarán los típicos bordes azules, fuente azul y relleno de celda.
Una vez que haya terminado de imprimir, estará listo para restaurar los formatos.
Restaurar los formatos de estilo de entrada
Para restaurar los formatos de estilo de entrada predeterminados, ejecutaría esta macro.
SubentradaStyleRestore() Con ActiveWorkbook.Styles ("Entrada") .Color.interior = 10079487 .Fuente.Color = -9027777 .Borders(xlLeft).Color = -8421505 .Borders(xlRight).Color = -8421505 .Borders(xlTop).Color = -8421505 .Borders(xlBottom).Color = -8421505 Terminar conSubtítulo final
Al revisar el código, puede ver que actualiza el formato del estilo de entrada y esencialmente restaura el formato integrado.
Si tiene otros consejos relacionados con el estilo, compártalos publicando un comentario a continuación… ¡gracias!
Recursos adicionales
- Archivo de Excel habilitado para macros (comprimido): InputCellStyle.zip
- Una publicación que habla sobre la grabación de macros y la configuración de un botón QAT: Formatos de números de contabilidad QAT
- Una publicación que habla sobre el almacenamiento de macros: Macro Toolbox
Deja una respuesta