Operadores lógicos de Excel VBA

Los operadores lógicos se utilizan para realizar operaciones lógicas y asmáticas sobre un conjunto de valores o variables. La tabla muestra todos los diferentes tipos de operadores lógicos compatibles con Excel:

Operador	Descripción
Y   (Y LÓGICO)	Si ambas condiciones son verdaderas, entonces la expresión es verdadera. Ejemplo: Suponga que la variable A tiene 10 y la variable B tiene 0, entonces  a<>0 Y b<>0 es falso
O (Operador lógico OR)	Si alguna de las dos condiciones es verdadera, entonces la condición es verdadera. Ejemplo: Suponga que la variable A tiene 10 y la variable B tiene 0, entonces  a<>0 O b<>0 es verdadero.
NO (Operador lógico NOT)	Invertir el resultado. Si una condición es verdadera, entonces el operador Lógico NO la hará falsa. Ejemplo: Suponga que la variable A tiene 10 y la variable B tiene 0, entonces  NOT(a<>0 OR b<>0) es falso.
XOR (Operador lógico XOR)	Es la combinación de los operadores NOT y OR. Si una, y solo una, de las expresiones se evalúa como verdadera, el resultado es verdadero. Ejemplo: Suponga que la variable A tiene 10 y la variable B tiene 0, entonces  (a<>0 XOR b<>0) es verdadero

1. Y (Y LÓGICO)

Si ambas condiciones son verdaderas, entonces la expresión es verdadera.

Ejemplo:

Suponga que la variable A tiene 20 y la variable B tiene 0, entonces a<>0 Y b<>0 es Falso

Programa:

Private Sub Demo_Loop()

Dim a As Integer //Declaring variable

 a = 20

 Dim b As Integer  //Declaring variable

 b = 0

If a <> 0 And b <> 0 Then

MsgBox ("AND LOGICAL Operator Result is : True")

 Else

 MsgBox ("AND LOGICAL Operator Result is : False")

 End If

End Sub

Producción:

AND LOGICAL Operator Result is : False

2. OR (operador lógico OR)

Si alguna de las dos condiciones es verdadera, entonces la condición es verdadera.

Ejemplo:

Suponga que la variable A tiene 20 y la variable B tiene 0, entonces a<>0 O b<>0 es verdadero.

Programa:

Private Sub Demo_Loop()
Dim a As Integer //Declaring variable
a = 20
Dim b As Integer  //Declaring variable
b = 0
If a <> 0 Or b <> 0 Then
MsgBox ("OR LOGICAL Operator Result is : True")
Else
MsgBox ("OR LOGICAL Operator Result is : False")
End If
End Sub

Producción:

OR LOGICAL Operator Result is : True

3. NOT (operador lógico NOT)

Invertir el resultado. Si una condición es verdadera, entonces el operador Lógico NO la hará falsa.

Ejemplo:

Suponga que la variable A tiene 20 y la variable B tiene 0, entonces NOT(a<>0 OR b<>0) es falso.

Programa:

Private Sub Demo_Loop()
Dim a As Integer //Declaring variable
a = 20
Dim b As Integer  //Declaring variable
b = 0
If a <> 0 Not b <> 0 Then
MsgBox ("NOT LOGICAL Operator Result is : True")
Else
MsgBox ("NOT LOGICAL Operator Result is : False")
End If
End Sub

Producción:

NOT LOGICAL Operator Result is : False

4. XOR (Operador lógico XOR)

Es la combinación de los operadores NOT y OR. Si una, y solo una, de las expresiones se evalúa como verdadera, el resultado es verdadero.

Ejemplo:

Suponga que la variable A tiene 20 y la variable B tiene 0, entonces (a<>0 XOR b<>0) es verdadero.

Programa:

Private Sub Demo_Loop()
Dim a As Integer //Declaring variable
a = 20
Dim b As Integer  //Declaring variable
b = 0
If a <> 0 Xor b <> 0 Then
MsgBox ("XOR LOGICAL Operator Result is : True")
Else
MsgBox ("XOR LOGICAL Operator Result is : False")
End If
End Sub

Producción:

XOR LOGICAL Operator Result is : True

Un programa de muestra que muestra todos los operadores se incluye a continuación junto con las salidas:

Programa:

 Private Sub Demo_Loop()
Dim a As Integer //Declaring variable
  a = 20
  Dim b As Integer  //Declaring variable
  b = 0
     
  If a <> 0 And b <> 0 Then
     MsgBox ("AND LOGICAL Operator Result is : True")
  Else
     MsgBox ("AND LOGICAL Operator Result is : False")
  End If
  If a <> 0 Or b <> 0 Then
     MsgBox ("OR LOGICAL Operator Result is : True")
  Else
     MsgBox ("OR LOGICAL Operator Result is : False")
  End If
  If Not (a <> 0 Or b <> 0) Then
     MsgBox ("NOT LOGICAL Operator Result is : True")
  Else
     MsgBox ("NOT LOGICAL Operator Result is : False")
  End If
  If (a <> 0 Xor b <> 0) Then
     MsgBox ("XOR  LOGICAL Operator Result is : True")
  Else
     MsgBox ("XOR LOGICAL Operator Result is : False")
  End If
End Sub

Producción:

AND LOGICAL Operator Result is : False
OR LOGICAL Operator Result is : True
NOT LOGICAL Operator Result is : False
XOR LOGICAL Operator Result is : True