VBA é a linguagem de programação Visual Basic , da Microsoft. Ele é mais comumente associado com macros usadas em planilhas do Excel e às vezes até a geração de relatórios com saída voltado para documentos do Word ou PowerPoint. VBA oferece aos desenvolvedores todas as opções lógicas comuns disponíveis em outros idiomas , como por loops, while e declarações if /then /else . No entanto, como todas as línguas , a sintaxe de usar esses laços é um pouco diferente em VBA. Uma vez que você usá-los, o processo é fácil e será simples de implementar. Instruções
1

Criar uma instrução If em VBA , como neste exemplo que compara dois valores e escreve "igual" ou "diferente " na célula A1 , dependendo do resultado da comparação.

Sub My_If_Test ()

Dim Dim this_value

that_value

this_value = 0

that_value = 2

Se this_value = that_value Então

Sheets (" Sheet1" ) . Cells (1,1) . Value = " EQUAL "

Else

Sheets (" Sheet1" ) . Cells (1, 1). Value = " é igual a"

End If End of

Sub

Se você precisa testar se algo não for igual , o sinal é <> .
2

Criar um loop For em VBA seguindo este exemplo de código que irá inserir o valor de um contador incrementado em cada linha correspondente .

Sub My_For_Test ()

Dim contador

Dim end_value

end_value = 10

Para contador = 0 a Passo end_value 1
Sheets

( " Sheet1" ). células ( balcão, 1). Valor = contador

Próxima

End Sub
3

Criar uma do /While em VBA seguindo este exemplo de código que, como o por exemplo loop, insere o valor de um contador incrementado em cada linha correspondente .

Sub My_DoWhile_Test ()

Dim Dim índice

end_value

index = 0

end_value = 10

Do While índice < end_value

Sheets ( " Sheet1" ). células ( contador, 1 ) Valor = índice
index = índice + 1

loop

End Sub

A lógica do do /While é tal que , se a comparação inicial da condição Enquanto falhar, o loop não é executado. Por exemplo, se o índice havia igualado 10 ou mais antes que o código executado este Do /While, o código dentro do loop nunca seria executado .
4

Criar uma Do /Até ​​laço em VBA seguindo este exemplo código que , como exemplo, o loop Do /While, insere o valor de um contador incrementado em cada linha correspondente .

Sub My_DoUntil_Test ()

índice Dim Dim

end_value

index = 0

end_value = 10

Do

Sheets ( " Sheet1" ). Células (contador, 1). Valor = índice

index = index + 1

loop Until index = end_value

End Sub

A lógica do do /Até ​​loop é sutilmente diferente de uma do /While . O código no Do /Até ​​é executado pelo menos uma vez , mesmo que a condição Até falhar. Por exemplo, se o índice havia igualado 10 ou mais antes que o código executado este Do /Até ​​loop, o código dentro do loop seria executado uma vez de qualquer maneira.