Como usar if com or em vba?

Você pode usar o operador OR com a instrução VBA IF para testar várias condições. Ao usá-lo, ele permite testar duas ou mais condições simultaneamente e retorna true se alguma dessas condições for verdadeira . Mas se todas as condições forem falsas, apenas retornará falso no resultado.

Usando OU com SE

1. Primeiro, inicie a instrução IF com a palavra-chave “IF”.
2. Depois disso, especifique a primeira condição que deseja testar.
3. Em seguida, use a palavra-chave OR para especificar a segunda condição.
4. No final, especifique a segunda condição que deseja testar.

Para entender melhor, vejamos um exemplo.

 Sub myMacro() 'two conditions to test using OR If 1 = 1 Or 2 < 1 Then MsgBox "One of the conditions is true." Else MsgBox "None of the conditions are true." End If End Sub

Se você olhar o exemplo acima, especificamos duas condições, uma se (1 = 1) e a segunda é (2 <1), e aqui apenas a primeira condição é verdadeira, e mesmo que ela tenha executado a linha de código que nós especificado se o resultado for verdadeiro.

Agora vamos ver se ambas as condições são falsas, deixe-me usar um código diferente aqui.

 Sub myMacro() 'two conditions to test using OR If 1 = 2 Or 2 < 1 Then MsgBox "One of the conditions is true." Else MsgBox "None of the conditions are true." End If End Sub

No código acima, ambas as condições são falsas e, quando você executa este código , ele executa a linha de código que especificamos se o resultado for falso.

Múltiplas condições com IF OR

Da mesma forma, você também pode testar mais de duas condições ao mesmo tempo. Vamos continuar o exemplo acima e adicionar a terceira condição a ele.

 Sub myMacro() 'three conditions to test using OR If 1 = 1 And 2 > 1 And 1 - 1 = 0 Then MsgBox "one of the conditions is true." Else MsgBox "none of the conditions are true." End If End Sub

Agora temos três condições para testar e usamos OR após a segunda condição para especificar a terceira condição. Como você aprendeu acima, ao usar OR, uma das condições deve ser verdadeira para se tornar verdadeira no resultado. Quando você executa este código, ele executa a linha de código que especificamos como true.

E se todas as condições forem falsas, como você fez no código a seguir, ele retornará falso.

 Sub myMacro() 'three conditions to test using OR If 1 < 1 And 2 < 1 And 1 + 1 = 0 Then MsgBox "one of the conditions is true." Else MsgBox "none of the conditions are true." End If End Sub