Chegamos na primeira parte da estrutura de repetição.
Nesta parte do nosso curso gratuito de VBA, iremos falar da mais básica estrutura de repetição do VBA, o While.
Estrutura do While
A estrutura do While é a seguinte:
While <condição_verdadeira> Código para ser executado. Wend
Basicamente o While funciona da seguinte forma. Ele primeiramente testa a condição pré-estabelecida. Caso o resultado seja verdadeiro, True, o código irá entrar no While e executar todo o código que está entre o While e o Wend. Caso o resultado do teste da condição seja falso, False, o VBA irá pular essa parte do código e irá executar o próximo bloco de código disponível.
Você também pode ter um While dentro de outro While.
While <condicao>
While <condicao 2>
Código para ser executado
Wend
Wend
Exemplo
Vamos criar o seguinte exemplo utilizando o While. O algorítimo irá mostrar um valor e esse valor irá aumentar de 1 em 1 até atingir o valor 5. Quando atingir o valor 5, a código não irá mais entrar dentro do While e irá mostrar uma mensagem informado que o While acabou.
- No início do código declaramos a variável como Integer e atribuímos a ela o valor 1
- Declaramos a condição do While, que é repetir o código dentro dele, enquanto o valor da variável “condicao” for menor ou igual a 5.
- Dentro do While, mostramos o valor da variável “condicao”, assim como adicionamos 1 a variável.
- E assim que o código sai do While, mostramos uma mensagem dizendo que é o fim do While.
Loop infinito
Ao utilizar o While, fique atento para estabelecer uma condição que nunca será atingida. Dessa forma o código nunca irá sair do While, atingindo assim o loop infinito. Ou seja, o código irá ficar rodando dentro do While para sempre, ou até a memória do computador estourar.
Quando se está dentro de um loop infinito, o VBA não irá mostrar nenhuma mensagem de erro.
Uma das formas de sair de um loop infinito é matar o processo do VBA, e para isso pressione Ctrl+Alt+Del. Na janela “Gerenciador de Tarefas”, encontre o processo que está rodando o VBA, clique com o botão direito e selecione “Finalizar tarefa”.
Essa forma irá finalizar o Excel, sem perguntar se você gostaria de salvar o que já foi feito, o que poderá causar a perda o trabalho já realizado, caso ele não tenha sido salvo, antes do início da execução do código.
Outra forma de sair do loop infinito é utilizar o Ctrl+Break. Esse comando irá simplesmente interromper a execução do VBA, sem fechar o Excel. Assim é possível salvar o trabalho que já foi feito.