VBA con declaración (con – terminar con)

Puntos clave

• Utilice VBA With Statement para minimizar el código.
• Puede utilizar un solo objeto a la vez mientras utiliza la instrucción With.

¿Qué es VBA con declaración?

VBA With es una declaración para especificar un objeto una vez y luego ejecutar varias declaraciones para él. En palabras simples, al usar la declaración “WITH” para especificar un objeto, y luego de eso, puede acceder a todas las propiedades y métodos de una sola vez. Comienza con “Con” y termina con “Terminar con”.

Sintaxis de VBA con declaración

La siguiente es la sintaxis que debe utilizar para utilizar la instrucción With en VBA:

With [OBJECT]
      [Statement]
End With

1. Con: Es la palabra clave inicial de la declaración que le dice a VBA que está especificando el objeto mencionado.
2. Objeto: Aquí debe especificar el objeto que desea utilizar.
3. Declaración: declaraciones que desea ejecutar con el objeto especificado.
4. Terminar con: Es la palabra clave final de la declaración.

Ejemplo para entender el VBA With Statement

Tomemos un ejemplo para entender la declaración en profundidad. Supongamos que desea cambiar el color, el tamaño y el nombre de la fuente de la celda A1. Para hacer estas tres cosas necesitas acceder a tres propiedades diferentes de la fuente VBA y el código sería:

Range("A1").Font.Color = RGB(0, 0, 255)
Range("A1").Font.Size = 16
Range("A1").Font.Name = "Consolas"

Pero aquí usaremos la declaración With en lugar del código anterior. Para utilizar VBA With Statement, puede seguir los siguientes pasos:

1. Primero, escribe en el teclado “Con”.
2. Después de eso, use el Rango VBA para especificar la celda A1 y use el objeto de fuente para especificar el objeto de fuente.
   
3. A continuación, debe ingresar el código de las tres propiedades y los valores que desea aplicar.
   
4. Al final, utilice la palabra clave “Terminar con” para finalizar la declaración.
   

Aquí está el código que acaba de escribir.

Sub MyMacro()

With Range("A1").Font
        .Color = RGB(0, 0, 255)
        .Size = 16
        .Name = "Consolas"       
End With

End Sub

Ahora echemos un vistazo a ambos códigos e intentemos comprender cuál es la diferencia que obtuvimos al usar la declaración “Con”.

En el primer código, usó el objeto de fuente tres veces y luego usó la propiedad a la que desea acceder y desea realizar cambios.

Pero en el segundo código, utilizó la instrucción With y especificó el objeto de fuente de inmediato. Y luego tres líneas de código dentro de la declaración “Con” para acceder a las tres propiedades.

Cuando usa la declaración “With” y especifica un objeto, le dice a VBA que todas las declaraciones que ha escrito deben ejecutarse con el objeto mencionado. No solo le brinda un código estructurado sino que también hace que una macro se ejecute más rápido y le brinda mayor eficiencia.

Anidado con declaración

Te dije al principio que solo puedes especificar un único objeto para usar la declaración With. Pero hay una manera de utilizar más de uno o incluso varios objetos con él. Eso es usando VBA LOOPS, y vamos a usar FOR EACH LOOP para recorrer múltiples objetos y usar “Con”.

Déjame decirte un ejemplo; debe recorrer todas las hojas de trabajo y aplicar todo lo siguiente a todas las celdas de cada hoja de trabajo.

• Tamaño de fuente: 16
• Fuente: Verdena

Y en el libro de trabajo, tienes cinco hojas de trabajo, como las que tengo en el siguiente ejemplo:

Utilice los siguientes pasos para escribir una declaración “Con” anidada.

1. Primero, necesitas declarar una variable para usar un objeto de hoja de trabajo.
   
2. Después de eso, como dije, debes usar For Each Loop. Por lo tanto, debe escribir un código con el bucle que pueda recorrer todas las hojas de trabajo.
   
3. Ahora, ingrese la instrucción with que puede aplicar la configuración de fuente que hemos discutido anteriormente. Para hacer referencia a todas las celdas de la hoja de trabajo, puede utilizar las “Celdas” mientras especifica el objeto.
   

Aquí está el código completo que acaba de escribir.

Sub MyMacro()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    With Cells  
        .Font.Size = 16
        .Font.Name = "Verdena"       
    End With   
Next ws

End Sub

Dim edad As Integer

Dim nombre As String = "Juan"