Ejemplo de uso de With- end With aplicado a dar Formato a Reportes
El uso de With- end With para aplicar diversos formatos a los reportes de una manera mucho más rápida.
Sintaxis:
Ejemplo:
Sub formato()
With Selection.Font
.Name = "Calibri"
.Size = 16
.Color = -16777024
Cells.Select
Cells.EntireColumn.AutoFit
End With
End Sub
Descripción
Este proceso aplica un determinado formato a las celdas que sean previamente seleccionadas por el usuario, esto puede ser empleado cuando es necesario generar reportes diarios o en períodos muy cortos donde la aplicación manual repetitiva de un determinado formato de texto o celdas genera un tiempo de proceso demasiado alto.
A continuación se muestra la pantalla de datos iniciales:
Luego de ejecutar la macro:
Adjunto ejemplo de Ejemplo de uso de With- end With
Elaborado por Fernando Ubillús Polo
17/02/2013 a las 6:28 pm
Dar formayos de texto, ajustar tamanos y formatoa de celdas son basicos para que un reporte tenga una buena presentacion y visibilidad. Muchas veces requerimos de estoa detalles y debido a su operatividad, nos restan ttiempo valioso que podriamos utilizarlo para el analisis.
Muchas gracias por el codigo, el cual facilitara y agilizara la generacion de rwportes.