Compartilhar via

Utilizar instruções With

  • Artigo

A instrução With permite-lhe especificar um objeto ou tipo definido pelo utilizador uma vez para uma série inteira de instruções. Com as instruções, os seus procedimentos são executados mais rapidamente e ajudam-no a evitar a escrita repetitiva.

O exemplo seguinte preenche um intervalo de células com o número 30, aplica formatação a negrito e define a cor interior das células para amarelo.

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

Com as instruções também podem ser aninhadas. O exemplo seguinte insere uma fórmula na célula A1 e, em seguida, formata o tipo de letra.

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.