VBAaula09PROGRAMAÇÃO DE COMPUTADORES

Aula 09:
VBA (Visual Basic for Applications) –
Parte IV
Profa: Jarbele Cássia
{[e-mail]}

Estruturas
Condicionais

Estruturas Condicionais
• Ponto de tomada de decisão • A escolha faz com que você caminhe por apenas um fluxo
• Conjunto de ações se torne viável

Operadores Aritméticos
• Temos que utilizar, para tomar decisões, expressões relacionais e/ou lógicas!
Operadores RELACIONAIS

Significado

>

Maior

>=
<

Maior ou Igual
Menor

= 18 Then
MsgBox ("Maior: pode dirigir")
End If
End Sub

Comando IF..ELSEIF
(Seleção Composta)

Para duas condições...
If Then

Else

End If

Comando IF..ELSEIF
(Seleção Composta)

Exemplo:
Sub maiorIdade()
Dim idade As Integer idade = InputBox("Informe idade:")
If idade >= 18 Then
MsgBox ("Maior: pode dirigir")
Else
MsgBox ("Menor: não pode dirigir")
End If
End Sub

Comando IF..ELSEIF
(Seleção Composta)

Para duas ou mais condições...
If Then

ElseIf Then

Else

End If

Comando IF..ELSEIF
(Seleção Composta)
• Exemplo:
Faça um programa em VBA para solicitar um número inteiro ao usuário, e em seguida, exiba se o dado número fornecido é maior, menor ou igual a zero.

Comando IF..ELSEIF
(Seleção Composta)
Sub exemplo()
Dim a As Integer a = InputBox("Informe um numero")
If a > 0 Then
MsgBox "O valor é maior que zero"
ElseIf a > 0 Then
MsgBox "O valor é maior do que zero"
Else
MsgBox "O valor não é maior do que zero"
End If
End Sub

Comando IF..ELSEIF

• Utilizando o Comando
IF..ELSEIF, faça um programa em VBA que solicite um número inteiro ao usuário e informe se este número par ou ímpar. Comando SELECT..CASE
• A estrutura Select Case executa um dos diversos grupos de instruções dependendo do valor de uma expressão. Select Case

Case :
Case :
Case Else:
End Select

Comando SELECT..CASE
Sub Exemplo ()

Exemplo:

Dim a As Integer
Select Case a
Case -1: MsgBox “O valor é igual a