O es una función lógica en cualquiera de los lenguajes de programación y similar en VBA tenemos la función OR, ya que es una función lógica, el resultado dado por esta función es verdadero o falso, esta función se usa para dos o muchas condiciones juntas y da us verdadero resultado cuando cualquiera de las condiciones se devuelve verdadera.
¿Qué es la función OR en VBA?
En Excel, las funciones lógicas son el corazón de las fórmulas que usamos a diario. Las funciones lógicas están ahí para realizar la prueba lógica y dan un resultado en el tipo de datos booleano, es decir, VERDADERO o FALSO. Algunas de las fórmulas lógicas en Excel son "SI, SI.ERROR en excel, ESERROR en excel, Y y O en función de excel". Espero que los haya utilizado con bastante frecuencia como función de hoja de trabajo. También en VBA podemos usarlos todos, y en este artículo, le explicaremos las formas de usar la función “VBA OR”.
¿Qué es lo primero que le viene a la mente cuando piensa en la palabra “O”?
En términos simples, "O" significa "esto o aquello"
Con la misma idea, OR es una función lógica que da el resultado como VERDADERO si alguna de las pruebas lógicas es VERDADERO y da FALSO como resultado si ninguna de las pruebas lógicas es VERDADERO.
Esto funciona exactamente lo contrario de la función VBA AND. La función Y devuelve VERDADERO solo si todas las condiciones lógicas son VERDADERAS. Si alguna de las condiciones no se satisface, obtendremos como resultado FALSO.
La fórmula de la función VBA OR
Déjame enmarcar una sintaxis para que entiendas la función.
(Prueba lógica) O (Prueba lógica) O (Prueba lógica)
Primero, debemos mencionar cuál es la prueba lógica, luego mencionar la palabra OR, luego mencionar cuál es la segunda prueba lógica. Si desea realizar una prueba más lógica, mencione la palabra O después de evertir una prueba lógica.
De todas las pruebas lógicas que realiza, si alguna de las pruebas está satisfecha o es verdadera, obtendremos el resultado como VERDADERO si ninguna o satisfactoria, entonces el resultado es FALSO.
Ejemplos de uso de la función OR en VBA
Le mostraremos un ejemplo simple del uso de la función OR en VBA.
Para comprender la función lógica de VBA O permítame darle un ejemplo. Digamos que queremos realizar la prueba lógica de si el número 25 es mayor que 20 o el número 50 es menor que 30.
Paso 1: crea un nombre de macro.
Paso 2: Defina la variable como una cadena.
Código:
Sub OR_Example1 () Dim i As String End Sub
Paso 3: Ahora, para esta variable, asignaremos el valor mediante la prueba lógica OR.
Código:
Sub OR_Example1 () Dim i As String i = End Sub
Paso 4: Nuestra primera prueba lógica es 25> 20 .
Código:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Paso 5: Ahora, después de la primera prueba lógica, mencione la palabra O e ingrese la segunda prueba lógica.
Código:
Sub OR_Example1 () Dim i As String i = 25> 20 O 50 <30 End Sub
Paso 6: Ok, ahora la función VBA OR prueba si las pruebas lógicas son VERDADERAS o FALSAS. Ahora asigne el resultado de la variable al cuadro de mensaje de VBA .
Código:
Sub OR_Example1 () Dim i As String i = 25> 20 O 50 <30 MsgBox i End Sub
Paso 7: Ejecute la macro y cuál es el resultado.
Obtuvimos el resultado como VERDADERO porque de dos pruebas lógicas que proporcionamos, una prueba es VERDADERA, por lo que el resultado es VERDADERO.
25 es mayor que 20 y 50 no es menor que 30. En este caso, la primera prueba lógica es VERDADERA, pero la segunda es FALSA. Debido a que hemos aplicado la función VBA OR, necesita que cualquiera de las condiciones sea VERDADERA para obtener el resultado como VERDADERO.
Ahora, mire el siguiente código.
Código:
Sub OR_Example1 () Dim i As String i = 25 = 20 O 50 = 30 MsgBox i End Sub
He cambiado las ecuaciones de prueba lógica de> y <al signo igual (=). Esto devolverá FALSE como resultado porque 25 no es igual a 20 y 50 no es igual a 30.
VBA OR Función con condición IF es potente
Como dije, OR puede devolver VERDADERO o FALSO como resultado, pero con la otra función lógica "SI", podemos manipular los resultados según nuestras necesidades.
Tome las mismas pruebas lógicas de arriba, OR ha devuelto solo VERDADERO o FALSO, pero combinemos este O con SI.
Paso 1: Antes de realizar cualquier prueba, abra la función SI .
Código:
Sub OR_Example2 () Dim i como cadena IF End Sub
Paso 2: Ahora, realice pruebas usando la función OR .
Código:
Sub OR_Example2 () Dim i As String IF 25 = 20 O 50 = 30 End Sub
Step 3: Put the word “Then” and write the result. If the condition is TRUE, assign the value to the variable as “Condition is Satisfied.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" End Sub
Step 4: If the condition is FALSE, then we need a different result, so put the word “ELSE” and, in the next line, assign the value to the variable “what should be the result if the condition or logical test is FALSE.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End Sub
Step 5: End the IF function with the word “End If.”
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If End Sub
Step 6: Assign the value of the variable result to the message box.
Code:
Sub OR_Example2() Dim i As String If 25 = 20 Or 50 = 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If MsgBox i End Sub
Run the macro, if the logical test is TRUE, we will get the result as “Condition is Satisfied,” or else we will get “Condition is not Satisfied.”
We got the result as “Condition is not Satisfied” because both the logical tests are FALSE.
Now I will change the logical tests.
Code:
Sub OR_Example2() Dim i As String If 25> 20 Or 50 < 30 Then i = "Condition is Satisfied" Else i = "Condition is not Satisfied" End If MsgBox i End Sub
I will run the macro and see what the result is.
Like this, we can use one logical function with other logical functions to arrive at the results.
Solve the below case study to get used to logical functions.
Case Study to Solve
I have employee names and their respective departments.
If you have tried and not found the result, then you can refer below code to understand the logic.
Code:
Sub Bonus_Calculation() Dim i As Long For i = 2 To 10 If Cells(i, 2).Value = "Finance" Or Cells(i, 2).Value = "IT" Then Cells(i, 3).Value = 5000 Else Cells(i, 3).Value = 1000 End If Next i End Sub
Si el empleado es de "Finanzas" o "TI", entonces debería recibir la bonificación como "5000". Para otros empleados del departamento, la bonificación es de "1000".
Realice la prueba lógica y llegue a los resultados.
