Partilhar via


Escrever instruções executáveis

Uma instrução executável inicia a ação. Pode executar um método ou função e pode repetir ou ramificar através de blocos de código. Muitas vezes, as instruções executáveis contêm operadores matemáticos ou condicionais.

O exemplo seguinte utiliza um para cada... Instrução seguinte para iterar cada célula num intervalo com o nome MyRange na Folha1 de um livro ativo do Microsoft Excel. A variável c é uma célula na coleção de células contidas em MyRange.

Sub ApplyFormat() 
    Const limit As Integer = 33 
    For Each c In Worksheets("Sheet1").Range("MyRange").Cells 
        If c.Value > limit Then 
            With c.Font 
                .Bold = True 
                .Italic = True 
            End With 
        End If 
    Next c 
    MsgBox "All done!" 
End Sub

O Se... Em seguida,... A instrução Else no exemplo verifica o valor da célula. Se o valor for superior a 33, a instrução Com define as propriedades Negrito e Itálico do objeto Tipo de Letra para essa célula. Se... Em seguida,... As instruções Else terminam com End If. A instrução With pode guardar a escrita porque as instruções que contém são executadas automaticamente no objeto que segue a palavra-chave Com .

A instrução Seguinte chama a célula seguinte na coleção de células contidas em MyRange.

A função MsgBox (que apresenta uma caixa de diálogo incorporada do Visual Basic) apresenta uma mensagem a indicar que o procedimento Sub terminou a execução.

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.