Compartilhar via

Usar para... Instruções Avançar

  • Artigo

Utilizar para... Instruções seguintes para repetir um bloco de instruções um número específico de vezes. Para ciclos, utilize uma variável de contador cujo valor é aumentado ou diminuído com cada repetição do ciclo.

O procedimento seguinte faz com que o computador apita 50 vezes. A instrução For especifica a variável de contador e os respetivos valores de início e de fim. A instrução Seguinte incrementa a variável de contador em 1.

Sub Beeps() 
    For x = 1 To 50 
        Beep 
    Next x 
End Sub

Com o passopalavra-chave, pode aumentar ou diminuir a variável de contador pelo valor que especificar. No exemplo seguinte, a variável j de contador é incrementada em 2 sempre que o ciclo se repete. Quando o ciclo estiver concluído, total é a soma de 2, 4, 6, 8 e 10.

Sub TwosTotal() 
    For j = 2 To 10 Step 2 
        total = total + j 
    Next j 
    MsgBox "The total is " & total 
End Sub

Para diminuir a variável de contador, utilize um valor Passo negativo. Para diminuir a variável de contador, tem de especificar um valor final inferior ao valor inicial. No exemplo seguinte, a variável myNum de contador é diminuída em 2 sempre que o ciclo se repete. Quando o ciclo estiver concluído, total é a soma de 16, 14, 12, 10, 8, 6, 4 e 2.

Sub NewTotal() 
    For myNum = 16 To 2 Step -2 
        total = total + myNum 
    Next myNum 
    MsgBox "The total is " & total 
End Sub

Observação

Não é necessário incluir o nome da variável de contador após a instrução Seguinte . Nos exemplos anteriores, o nome da variável de contador foi incluído para legibilidade.

Pode sair de um Para... Instrução seguinte antes de o contador atingir o valor final com a instrução Exit For . Por exemplo, quando ocorre um erro, use a instrução Exit For no bloco da instrução True de uma instrução If...Then...Else ou de uma instrução Select Case que verifica especificamente o erro. Se o erro não ocorrer, o se... Em seguida,... A instrução Else é False e o ciclo continuará a ser executado conforme esperado.

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.