Seminario Macros Excel Gratuito 14 Entrega (Estructuras de programación o control 2ª parte)

Seguimos con las estructuras de control ya que el capitulo anterior era bastante extenso en el que vimos las diferentes formas de usar If's y la estructura Select Case así como el anidamiento.

Estructura End … End With

Esta estructura se usa casi siempre para no tener que repetir tantas veces el nombre de objetos cuando hacemos referencia a sus propiedades y así simplificamos su código.

La estructura tiene el siguiente aspecto:

With objeto

   . instrucciones

   …..

End With

Veamos un ejemplo:

Queremos que las lineas 1 a 3 de nuestra hoja tengan el texto en negrita de tipo Comic Sans MS, tamaño de letra 14 puntos, color de letra rojo

Si no usáramos esto las ordenes serían:

Sub Procedimiento()

  Range("1:3").Font.bold= True

  Range("1:3").Font.Name="Comic Sans MS"

  Range("1:3").Font.Size=14

  Range("1:3").Font.Color = vbRed

End Sub

Pero si usamos el With podemos hacer lo siguiente:

Sub Procedimiento2()

   With Range("1:3").Font

       .Bold = True

       .Name="Comic Sans MS"

       .Size = 14

       .Color = vbRed

   End With

End Sub

Como se ve en la estructura With primero ponemos el objeto, y luego dentro de la estructura cada elemento comienza por un punto y así no hay que repetir tantas veces el nombre del objeto.

A veces el nombre del objeto al que nos referimos es muy largo y con esto nos reduce bastante nuestro código.

Seguimos con los bucles en la próxima entrega..