SI OU ne sont pas une seule instruction, ce sont deux fonctions logiques qui sont utilisées à plusieurs reprises dans VBA, nous utilisons ces deux fonctions logiques ensemble lorsque nous avons plus d'un critère à vérifier et si l'un des critères est rempli, nous obtenons le vrai résultat, lorsque nous utilisons l'instruction if ou l'instruction est utilisée entre les deux critères de l'instruction If.
Fonction IF OR dans VBA
Les fonctions logiques sont au cœur de tout calcul basé sur des critères. «IF» est la fonction logique la plus populaire, que ce soit en tant que fonction de feuille de calcul ou en tant que fonction VBA, elle répond parfaitement à nos besoins. Mais une autre fonction logique, «OU» dans Excel, est la fonction la plus sous-estimée. Il est également important de maîtriser la résolution de calculs complexes. Dans cet article, nous vous expliquerons en détail la fonction VBA IF OR. Lisez l'article complet pour obtenir la fonction en détail.
Comment utiliser IF avec la fonction OR dans VBA?
Nous allons vous montrer un exemple simple d'utilisation de la fonction IF OR dans VBA.
Une combinaison de fonctions logiques est la meilleure paire d'Excel. Lorsque vous combinez de nombreuses formules logiques à l'intérieur de l'autre formule logique, cela suggère que le calcul nécessite de nombreuses conditions à tester.
Maintenant, regardez la syntaxe de la fonction IF OR dans VBA.
(Test) OU (Test) OU (Test)
C'est le même que nous avons vu dans l'exemple de feuille de calcul. Pour une meilleure compréhension, regardez l'exemple ci-dessous.
Nous avons ici le prix du mois précédent, le prix moyen des 6 derniers mois et le prix mensuel actuel.
Pour décider d'acheter ou non le produit, nous devons faire quelques tests ici, et ces tests le sont.
Si le prix actuel est inférieur ou égal à l'un des deux autres prix, nous devrions obtenir le résultat "Acheter", sinon nous devrions obtenir le résultat "Ne pas acheter".
Étape 1: Ouvrez la condition IF dans la sous-procédure.
Code:
Sub IF_OR_Example1 () If End Sub
Étape 2: Dans la condition IF, appliquez le premier test logique sous la forme Range («D2»). Valeur <= Range («B2»).
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value End Sub
Étape 3: La première condition logique est remplie, ouvrez maintenant l'instruction OR.
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub
Étape 4: appliquez maintenant la deuxième condition logique en tant que plage («D2»). Valeur <= plage («C2»). Valeur
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR Range ("D2"). Value <= Range ("C2"). Value End Sub
Étape 5: Ok, nous avons terminé les tests logiques ici. Après les tests logiques, inscrivez le mot «Alors».
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then End Sub
Étape 6: Dans la ligne suivante, écrivez ce que devrait être le résultat si le test logique est VRAI. Si la condition est VRAI, nous avons besoin du résultat «Acheter» dans la cellule E2.
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Valeur = "Acheter" End Sub
Étape 7: Si le résultat est FAUX, nous devrions obtenir le résultat "Ne pas acheter". Donc, dans la ligne suivante, mettez «Else» et écrivez le code dans la ligne suivante.
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Value = "Buy" Else Range ("E2"). Value = "Do Not Buy" End Sub
Étape 8: Fermez l'instruction IF avec le mot «End If».
Code:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Value = "Buy" Else Range ("E2"). Value = "Do Not Buy" End If End Sub
Ok, nous en avons terminé avec la partie codage.
Exécutons ce code en utilisant F5 ou manuellement via l'option d'exécution et voyons quel est le résultat dans la cellule E2.
Nous avons obtenu le résultat «Acheter» car le prix mensuel actuel d'Apple est inférieur au prix du «Mois précédent» et du «Prix moyen sur 6 mois».
Fonction IF OU VBA avec boucles (avancé)
Une fois que vous avez compris la formule, essayez de l'utiliser avec un plus grand nombre de cellules. Dans le cas d'un plus grand nombre de cellules, nous ne pouvons écrire aucune ligne de code, nous devons donc utiliser des boucles VBA.
Pour l'ensemble de données ci-dessus, j'ai ajouté quelques lignes supplémentaires.
Nous devons utiliser la boucle For Next ici.
Gardez simplement le code actuel tel quel.
Déclarez la variable comme un entier.
Maintenant, ouvrez la boucle suivante de 2 à 9.
Maintenant, partout où nous avons une référence de cellule, changez le nombre actuel et concaténez la variable «k» avec eux.
Par exemple, Plage («D2»). La valeur doit être Plage («D» & k).
Exécutez maintenant le code. Nous devrions obtenir le statut dans toutes les cellules.
Vous pouvez copier le code ci-dessous.
Code:
Sub IF_OR_Example1 () Dim k As Integer For k = 2 To 9 If Range ("D" & k) .Value <= Range ("B" & k) .Value Or Range ("D" & k) .Value <= Range ("C" & k) .Value Then Range ("E" & k) .Value = "Buy" Else Range ("E" & k) .Value = "Do Not Buy" End If Next k End Sub
