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.