Fonction VBA OR (exemples) | Comment utiliser l'opérateur logique OR dans VBA?

Ou est une fonction logique dans l'un des langages de programmation et similaire en VBA, nous avons la fonction OU, car c'est une fonction logique le résultat donné par cette fonction est soit vrai soit faux, cette fonction est utilisée pour deux ou plusieurs conditions ensemble et donne us true result lorsque l'une des conditions est retournée true.

Qu'est-ce que la fonction OR dans VBA?

Dans Excel, les fonctions logiques sont au cœur des formules que nous utilisons au quotidien. Les fonctions logiques sont là pour effectuer le test logique et donnent le résultat en type de données booléen c'est-à-dire VRAI ou FAUX. Certaines des formules logiques dans Excel sont «IF, IFERROR dans Excel, ISERROR dans Excel, AND et OR excel». J'espère que vous les avez utilisés assez souvent comme fonction de feuille de calcul. En VBA aussi, nous pouvons tous les utiliser et dans cet article, nous vous expliquerons comment utiliser la fonction «VBA OR».

Quelle est la première chose qui vous vient à l'esprit lorsque vous pensez au mot «OU»?

En termes simples, "OU" signifie "ceci ou cela"

Avec la même idée OU est une fonction logique qui donne le résultat VRAI si l'un des tests logiques est VRAI et donne FAUX comme résultat si aucun des tests logiques n'est VRAI.

Cela fonctionne exactement à l'opposé de la fonction VBA AND. La fonction AND renvoie VRAI uniquement si toutes les conditions logiques sont VRAIES, si l'une des conditions n'est pas satisfaite, nous obtiendrons FALSE comme résultat.

Formule de la fonction VBA OR

Permettez-moi de définir une syntaxe pour que vous compreniez la fonction.

[Test logique] OU [Test logique] OU [Test logique]

Tout d'abord, nous devons mentionner quel est le test logique, puis mentionner le mot OU puis mentionner quel est le deuxième test logique. Si vous souhaitez effectuer un test plus logique, mentionnez le mot OU après avoir évité le test logique.

En dehors de tous les tests logiques que vous effectuez, si l'un des tests est satisfait ou vrai, nous obtiendrons le résultat VRAI si aucun ou satisfait, le résultat est FALSE.

Exemples d'utilisation de la fonction OR dans VBA

Nous allons vous montrer un exemple simple d'utilisation de la fonction OR dans VBA.

Vous pouvez télécharger ce modèle VBA OU Excel ici - Modèle VBA OU Excel

Pour comprendre la fonction logique VBA OU laissez-moi vous donner un exemple. Disons que nous voulons effectuer le test logique si le nombre 25 est supérieur à 20 ou le nombre 50 est inférieur à 30.

Étape 1: Créez un nom de macro.

Étape 2: définissez la variable sous forme de chaîne.

Code:

 Sub OR_Example1 () Dim i As String End Sub

Étape 3: Maintenant, pour cette variable, nous allons affecter la valeur via le test logique OR.

Code:

 Sub OR_Example1 () Dim i As String i = End Sub

Étape 4: Notre premier test logique est 25> 20 .

Code:

 Sub OR_Example1 () Dim i As String i = 25> 20 End Sub

Étape 5: Après le premier test logique, mentionnez le mot OU et entrez le deuxième test logique.

Code:

 Sub OR_Example1 () Dim i As String i = 25> 20 Ou 50 <30 End Sub

Étape 6: Ok, maintenant la fonction VBA OR teste si les tests logiques sont TRUE ou FALSE. Attribuez maintenant le résultat de la variable à la boîte de message VBA .

Code:

 Sub OR_Example1 () Dim i As String i = 25> 20 Ou 50 <30 MsgBox i End Sub

Étape 7: Exécutez la macro et quel est le résultat.

Nous avons obtenu le résultat VRAI car sur deux tests logiques, nous avons fourni un test est VRAI, donc le résultat est VRAI.

25 est supérieur à 20 et 50 n'est pas inférieur à 30, dans ce cas, le premier test logique est VRAI mais le second est FAUX. Étant donné que nous avons appliqué la fonction VBA OR, il faut que l'une des conditions soit TRUE pour obtenir le résultat TRUE.

Maintenant, regardez le code ci-dessous.

Code:

 Sub OR_Example1 () Dim i As String i = 25 = 20 Ou 50 = 30 MsgBox i End Sub

J'ai changé les équations de test logiques de> et <au signe égal (=). Cela renverra FALSE comme résultat car 25 n'est pas égal à 20 et 50 n'est pas égal à 30.

La fonction VBA OR avec condition IF est puissante

Comme je l'ai dit, OU peut retourner VRAI ou FAUX comme résultat, mais avec l'autre fonction logique «IF», nous pouvons manipuler les résultats selon nos besoins.

Prenez les mêmes tests logiques ci-dessus, OR n'a renvoyé que TRUE ou FALSE, mais combinons ce OR avec IF.

Étape 1: Avant d'effectuer un test, ouvrez la fonction IF .

Code:

 Sub OR_Example2 () Dim i As String IF End Sub

Étape 2: Effectuez maintenant des tests à l'aide de la fonction OR .

Code:

 Sub OR_Example2 () Dim i As String IF 25 = 20 Ou 50 = 30 End Sub

Étape 3: Mettez le mot «Alors» et écrivez le résultat si la condition est VRAI, affectez la valeur à la variable comme «La condition est satisfaite» .

Code:

 Sub OR_Example2 () Dim i As String If 25 = 20 Ou 50 = 30 Then i = "Condition is Satisfied" End Sub

Étape 4: Si la condition est FALSE alors nous avons besoin d'un résultat différent, alors mettez le mot «ELSE» et dans la ligne suivante attribuez la valeur à la variable «quel devrait être le résultat si la condition ou le test logique est FALSE».

Code:

 Sub OR_Example2 () Dim i As String If 25 = 20 Ou 50 = 30 Then i = "Condition is Satisfied" Sinon i = "Condition is not Satisfied" End Sub

Étape 5: Terminez la fonction IF avec le mot «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

If the employee is from “Finance” or “IT” then they should get the bonus as “5000”. For other department employees, the bonus is “1000”.

Conduct the logical test and arrive at the results.