Macros con With ... End With

Archivo de Excel utilizado: excelavanzado_with.xlsm

La estructura With ... End Whit permite resumir varias líneas de programa cuando existen partes repetitivas. Sirve para ejecutar una serie de acciones sobre un mismo objeto, sin tener que repetir toda su jerarquía.

Sub Saluda()
Worksheets("Hoja1").Activate
ActiveSheet.Range("B5").Value = "¿Cómo esta usted?"
ActiveSheet.Range("B5").Font.Bold = True
ActiveSheet.Range("B5").Font.Italic = True
ActiveSheet.Range("B5").Font.Color = RGB(255, 0, 0)
End Sub

Sub Saluda2()
Worksheets("Hoja1").Activate
' Estructura Whith...End With
With ActiveSheet.Range("B5")
    .Value = "¿Cómo esta usted?"
    .Font.Bold = True
    .Font.Italic = True
    .Font.Color = RGB(255, 0, 0)
End With
End Sub

La calculadora de colores se puede encontrar en el siguiente enlace.

• http://colorcalc.com