Ejemplo de With aplicado a formato de cabecera de una tabla
La función With nos permite sintetizar la cantidad de instrucciones cuando se desea realizar ciertas acciones consecutivas sobre celdas o gráficos con una estructura similar.
En este caso, usaremos la función With para darle formato a la cabecera de un cuadro de ventas y costos de ocupación
En caso no se use with, esta sería la serie de intrucciones a colocar, como observamos Selection.Font es un comando repetitivo.
Sub Formatocabecera()
Selection.Font.ColorIndex = 3
Selection.Font.FontStyle = "Bold Italic"
Selection.Font.Name = "Arial"
Selection.Font.Size = 10
Selection.Font.Underline = xlSingle
End Sub
Usando With, esta sería las instrucciones a colocar:
Sub Formatocabecera()
With Selection.Font
.ColorIndex = 3
.FontStyle = "Bold Italic"
.Name = "Arial"
.Size = 10
.Underline = xlSingle
End With
End Sub
Por otro lado, se asocio tal macro con los comandos Ctrl+l por lo que habrá mayor facilidad para su uso.
De esta manera bastante simple, podremos siempre darle formato al título de los cuadros querramos trabajar.
Ejemplo de With aplicado a formato de cabecera de una tabla
Elaborado por Luis Rodrigo Cárdenas García-Blásquez