Estrutura de Decisão
A estrutura de
decisão é um comando que permite a realizações de um teste lógico fazendo com
que seu código escolha um caminho ou outro quando se deparar com determinada
situação, ou seja, ela funciona na execução do código quando chega em uma
situação onde ele tenha que rodar uma linha de comando ou outra, onde caso o teste
de verdadeiro e faz uma rotina e caso seja falso executa outra.
A estrutura de
decisão é um dos comandos mais usados na programação, seja em VBA ou em qualquer
outra linguagem de comando o programador sempre vai ter situações onde terá que
escolher executar uma rotina ou outra. Vejamos sua estrutura a seguir:
If [condição se verdadeiro] Then
[código se verdadeiro]
Else
[código se falso]
End if
Onde:
If
representa o comando se;
[condição
se verdadeiro] deve ser substituído pela condição se verdadeiro, escrever
sem os colchetes;
Then
representa o comando então faça;
[código se
verdadeiro] deve ser substituído pelo código a ser rodado caso atenda a
condição, escrever sem os colchetes;
Else
representa o comando senão;
[código se
falso] deve ser substituído pelo código a ser rodado caso não atenda a
condição, escrever sem os colchetes;
End If representa o fim da
instrução.
Ex.: Vamos
criar um código onde informando um número ele vai informar se esse número é par
ou ímpar, vejamos a seguir.
Sub ParImpar()
‘
Variável criada para receber o número a ser comparado
Dim
Numero as Integer
‘Inserindo
um número, o comando InputBox abre uma caixa de diálogo para inserir um valor
Numero
= InputBox("Valor",”Digite um
Número”)
‘Teste
se é par, o comando Mod traz o resto da divisão por determinado valor, no caso
2, se na divisão sobrar 0 o número é par se não é ímpar.
If
(Numero Mod 2) = 0 Then
MsgBox(“O
Número é Par”)
Else
MsgBox(“O
Número é Ímpar”)
End If
End Sub
Operadores Relacionais
Os operadores
relacionais possibilitam fazer comparações entre dois elementos. Existem 6
operadores relacionais conforme a tabela seguir:
Tabela
= Igual a
<> Diferente
>= Maior ou igual
> Maior que
< Menor que
<= Maior
ou igual
Além dos
operadores relacionais, existem os chamados operadores lógicos ou
"conectivos lógicos". Estes, servem para conectar duas expressões
relacionais, ou seja, são usados para adicionar mais de um critério na
verificação. Vejamos quais são na tabela a Abaixo:
Operadores Lógicos
OR Ou
AND E
NOT Negação
Onde:
OR ->
Esse operador deve ser usado quando um ou outro critério estiver correto, neste
caso se a verificação atender um dos dois critérios ela vai ser considerada
como verdadeira.
AND ->
Esse operador deve ser usado quando os dois critério tiverem que estar correto,
neste caso para ser verdadeiro os dois critérios tem que ser atendido, se a
verificação atender apenas um dos dois critérios ela vai ser considerada como falsa.
NOT -> Esse Operador deve ser usado
quando você quiser negar o que estiver após ele, ou seja, se escrever um comando
que resultara em verdadeiro e colocar e NOT na frente ele o tornara falso.
Ex.: No
exemplo abaixo tomando como referência o exemplo anterior ele só vai falar se o
número é par caso o resto de sua divisão seja 0 e ele seja menor que 10, caso
não atenda a esses dois critérios o resultado serão sempre ímpar.
Sub ParImpar()
‘
Variável criada para receber o número a ser comparado
Dim
Numero as Integer
‘Inserindo
um número, o comando InputBox abre uma caixa de diálogo para inserir um valor
Numero
= InputBox("Valor",”Digite um
Número”)
‘Teste
se é par, o comando Mod traz o resto da divisão por determinado valor, no caso
2, se na divisão sobrar 0 o número é par se não é ímpar.
If (Numero Mod 2)
= 0 AND Numero < 10 Then
MsgBox(“O
Número é Par”)
Else
MsgBox(“O
Número é Ímpar”)
End If
End Sub
Nenhum comentário:
Postar um comentário