Usar instrucciones With

La instrucción With permite especificar un objeto o un tipo definido por el usuario una vez para toda una serie de instrucciones. Las instrucciones With hacen que los procedimientos se ejecuten más rápidos y ayudan a evitar la escritura repetitiva.

En el siguiente ejemplo, se rellena un intervalo de celdas con el número 30, se aplica formato en negrita y se establece el color interior de las celdas en amarillo.

VB

Sub FormatRange() 
    With Worksheets("Sheet1").Range("A1:C10") 
        .Value = 30 
        .Font.Bold = True 
        .Interior.Color = RGB(255, 255, 0) 
    End With 
End Sub

Con las instrucciones también se pueden anidar. En el siguiente ejemplo, se inserta una fórmula en la celda A1 y luego se aplica formato a la fuente.

VB

Sub MyInput() 
    With Workbooks("Book1").Worksheets("Sheet1").Cells(1, 1) 
        .Formula = "=SQRT(50)" 
        With .Font 
            .Name = "Arial" 
            .Bold = True 
            .Size = 8 
        End With 
    End With 
End Sub

Vea también

• Temas conceptuales de Visual Basic

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.