VBA - Operadores de comparação
Existem os seguintes operadores de comparação suportados pelo VBA.
Suponha que a variável A tenha 10 e a variável B tenha 20, então -
Operador | Descrição | Exemplo |
---|---|---|
= | Verifica se os valores dos dois operandos são iguais ou não. Se sim, então a condição é verdadeira. | (A = B) é falso. |
<> | Verifica se os valores dos dois operandos são iguais ou não. Se os valores não forem iguais, a condição é verdadeira. | (A <> B) é verdadeiro. |
> | Verifica se o valor do operando esquerdo é maior que o valor do operando direito. Se sim, então a condição é verdadeira. | (A> B) é False. |
< | Verifica se o valor do operando esquerdo é menor que o valor do operando direito. Se sim, então a condição é verdadeira. | (A <B) é verdadeiro. |
> = | Verifica se o valor do operando esquerdo é maior ou igual ao valor do operando direito. Se sim, então a condição é verdadeira. | (A> = B) é falso. |
<= | Verifica se o valor do operando esquerdo é menor ou igual ao valor do operando direito. Se sim, então a condição é verdadeira. | (A <= B) é verdadeiro. |
Exemplo
Tente o exemplo a seguir para entender todos os operadores de comparação disponíveis no VBA.
Private Sub Constant_demo_Click()
Dim a: a = 10
Dim b: b = 20
Dim c
If a = b Then
MsgBox ("Operator Line 1 : True")
Else
MsgBox ("Operator Line 1 : False")
End If
If a<>b Then
MsgBox ("Operator Line 2 : True")
Else
MsgBox ("Operator Line 2 : False")
End If
If a>b Then
MsgBox ("Operator Line 3 : True")
Else
MsgBox ("Operator Line 3 : False")
End If
If a<b Then
MsgBox ("Operator Line 4 : True")
Else
MsgBox ("Operator Line 4 : False")
End If
If a>=b Then
MsgBox ("Operator Line 5 : True")
Else
MsgBox ("Operator Line 5 : False")
End If
If a<=b Then
MsgBox ("Operator Line 6 : True")
Else
MsgBox ("Operator Line 6 : False")
End If
End Sub
Ao executar o script acima, ele produzirá o seguinte resultado.
Operator Line 1 : False
Operator Line 2 : True
Operator Line 3 : False
Operator Line 4 : True
Operator Line 5 : False
Operator Line 6 : True