Como usar a instrução If…Then…Else no VBA?

No VBA (Visual Basic for Applications), a instrução If…Then…Else é usada para tomar decisões com base em condições. Ela permite que você execute diferentes blocos de código dependendo se uma condição (ou várias condições) é verdadeira ou falsa. A sintaxe básica é a seguinte:

Estrutura Simples

If condição Then
    ' Código a ser executado se a condição for verdadeira
End If

Estrutura Com Else

If condição Then
    ' Código a ser executado se a condição for verdadeira
Else
    ' Código a ser executado se a condição for falsa
End If

Estrutura Com ElseIf

If condição1 Then
    ' Código a ser executado se a condição1 for verdadeira
ElseIf condição2 Then
    ' Código a ser executado se a condição2 for verdadeira
Else
    ' Código a ser executado se nenhuma das condições anteriores for verdadeira
End If

Exemplos Práticos

   Dim idade As Integer
   idade = 18

   If idade >= 18 Then
       MsgBox "Você é maior de idade."
   End If
   Dim pontuacao As Integer
   pontuacao = 75

   If pontuacao >= 60 Then
       MsgBox "Passou!"
   Else
       MsgBox "Não passou."
   End If
   Dim nota As Integer
   nota = 85

   If nota >= 90 Then
       MsgBox "Nota A"
   ElseIf nota >= 80 Then
       MsgBox "Nota B"
   ElseIf nota >= 70 Then
       MsgBox "Nota C"
   Else
       MsgBox "Nota D"
   End If
  • Estrutura Simples:
  • Estrutura Com Else:
  • Estrutura Com ElseIf:

Notas Importantes:

  • As condições dentro do `If`, `ElseIf` devem ser expressões que retornam um valor booleano (Verdadeiro ou Falso).
  • Os blocos de código são demarcados por `End If`.
  • O uso de `Else` e `ElseIf` é opcional.
  • Você pode aninhar instruções `If…Then…Else` dentro de outras para criar lógicas mais complexas.

Esses são os conceitos básicos e exemplos de como usar a instrução If…Then…Else no VBA. Você pode adaptá-los conforme suas necessidades específicas no desenvolvimento de suas macros e scripts.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project