Usando instruções With

A instrução With permite especificar um objeto ou tipo definido pelo usuário uma vez para uma série inteira de instruções. Com instruções, faça com que seus procedimentos sejam executados mais rapidamente e ajude a evitar digitação repetitiva.

O exemplo a seguir preenche um intervalo de células com o número 30, aplica formatação em negrito e define a cor interna das células como amarela.

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

As instruções With também podem ser aninhadas. O exemplo a seguir insere uma fórmula na célula A1 e formata a fonte.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on