Como Fazer While no Excel

Para fazer um "while" no Excel, você pode usar a função "SE" (IF) dentro de uma função "ENQUANTO" (WHILE).

A função "ENQUANTO" (WHILE) é uma função personalizada que deve ser criada usando o recurso "Visual Basic for Applications" (VBA) do Excel. Vamos ver como fazer isso:

  1. Abra o Excel e crie um novo arquivo.
  2. Pressione ALT + F11 para abrir o Editor do Visual Basic.
  3. Na janela "Projeto", clique com o botão direito do mouse em "ThisWorkbook" e selecione "Inserir" > "Módulo".
  4. Na nova janela, digite o seguinte código:

Function WHILE(condition As Boolean, actions As String)

While condition' código a ser executado enquanto a condição for verdadeiraApplication.Run actions Wend

End Function

  1. Clique em "Arquivo" > "Salvar" e feche o Editor do Visual Basic.
  2. Volte para a planilha do Excel e insira a seguinte fórmula em uma célula:

=WHILE(A1<10,"Aumentar()" )

  1. Crie uma nova macro chamada Aumentar clicando em "Desenvolvedor" > "Visual Basic" > "Inserir" > "Módulo" e digite o seguinte código:

Sub Aumentar()Range("A1").Value = Range("A1").Value + 1 End Sub

  1. Pressione "Alt + F8" e execute a macro "Aumentar" algumas vezes para ver a fórmula "WHILE" em ação.

Agora você criou uma função "WHILE" personalizada no Excel usando o Visual Basic for Applications (VBA). Quando a condição for verdadeira, a função "WHILE" executará a macro "Aumentar()" até que a condição seja falsa. É possível alterar a condição para qualquer outra que desejar e adicionar outras macros aos argumentos de "WHILE".

Veja também mais Como Fazer com a letra C

Comentários