Como usar if com and no excel vba?

Você pode usar o operador AND com a instrução VBA IF para testar várias condições e, ao usá-lo, permite testar duas condições simultaneamente e obter verdade se ambas as condições forem verdadeiras. E, se alguma das condições for falsa, retorna falso no resultado.

Combine SE E

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 AND 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() If 1 = 1 And 2 > 1 Then MsgBox "Both of the conditions are true." Else MsgBox "Maybe one or both 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 ambas as condições são verdadeiras, e é por isso que ele executa a linha de código que especificamos se o resultado é verdadeiro.

Agora, se alguma dessas duas condições for falsa, deixe-me usar um código diferente aqui.

 Sub myMacro1() If 1 = 1 And 2 < 1 Then MsgBox "Both of the conditions are true." Else MsgBox "Maybe one or both of the conditions are true." End If End Sub

No código acima, a segunda condição é falsa (2 <1) e quando você executa esta macro , ela executa a linha de código que especificamos se o resultado for falso.

Múltiplas condições com IF AND

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 myMacro2() If 1 = 1 And 2 > 1 And 1 - 1 = 0 Then MsgBox "All the conditions are true." Else MsgBox "Some conditions are false." End If End Sub

Agora temos três condições para testar e usamos o AND após a segunda condição para especificar a terceira condição. Como você aprendeu acima, ao usar AND, todas as condições devem ser verdadeiras para se tornarem verdadeiras no resultado.

Quando você executa esse código, ele executa a linha de código que especificamos como true.

E se alguma das condições for falsa, assim como você fez no código a seguir, ela retornará falso.

 Sub myMacro3() If 1 = 1 And 2 < 1 And 1 + 1 = 0 Then MsgBox "All the conditions are true." Else MsgBox "Some conditions are false." End If End Sub