VBA WENN ODER

WENN ODER keine einzelne Anweisung sind, sind dies zwei logische Funktionen, die in VBA manchmal zusammen verwendet werden. Wir verwenden diese beiden logischen Funktionen zusammen, wenn wir mehr als ein Kriterium zur Überprüfung haben und wenn eines der Kriterien erfüllt ist, erhalten wir Das wahre Ergebnis, wenn wir die if-Anweisung verwenden. Die Anweisung wird zwischen den beiden Kriterien der If-Anweisung verwendet.

IF OR-Funktion in VBA

Logische Funktionen sind das Herzstück aller kriterienbasierten Berechnungen. "IF" ist die beliebteste logische Funktion, sei es als Arbeitsblattfunktion oder als VBA-Funktion. Sie erfüllt unsere Anforderungen hervorragend. Eine weitere logische Funktion „ODER“ in Excel ist jedoch die am meisten unterschätzte Funktion. Es ist auch wichtig zu beherrschen, wenn es darum geht, komplexe Berechnungen zu lösen. In diesem Artikel werden wir Sie ausführlich durch die VBA IF OR-Funktion führen. Lesen Sie den vollständigen Artikel, um die Funktion im Detail zu erhalten.

Wie verwende ich IF mit ODER-Funktion in VBA?

Wir zeigen Ihnen ein einfaches Beispiel für die Verwendung der IF OR-Funktion in VBA.

Sie können diese VBA IF ODER Excel-Vorlage hier herunterladen - VBA IF ODER Excel-Vorlage

Die Kombination logischer Funktionen ist das beste Paar in Excel. Wenn Sie viele logische Formeln in der anderen logischen Formel kombinieren, bedeutet dies, dass für die Berechnung viele Testbedingungen erforderlich sind.

Schauen Sie sich nun die Syntax der IF OR-Funktion in VBA an.

[Test] ODER [Test] ODER [Test]

Dies ist das gleiche wie im Arbeitsblattbeispiel. Schauen Sie sich zum besseren Verständnis das folgende Beispiel an.

Wir haben hier den Preis des Vormonats, den Durchschnittspreis der letzten 6 Monate und den aktuellen Monatspreis.

Um zu entscheiden, ob wir das Produkt kaufen oder nicht, müssen wir hier einige Tests durchführen, und diese Tests sind.

Wenn der aktuelle Preis kleiner oder gleich einem der beiden anderen Preise ist, sollten wir das Ergebnis als "Kaufen" oder als "Nicht kaufen" erhalten .

Schritt 1: Öffnen Sie die IF-Bedingung innerhalb des Unterverfahrens.

Code:

 Sub IF_OR_Example1 () If End Sub

Schritt 2: Wenden Sie innerhalb der IF-Bedingung den ersten logischen Test als Bereich ("D2") an. Wert <= Bereich ("B2"). Wert

Code:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value End Sub

Schritt 3: Die erste logische Bedingung ist erfüllt, jetzt öffnen Sie die OR-Anweisung.

Code:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub

Schritt 4: Wenden Sie nun die zweite logische Bedingung als Bereich ("D2") an. Wert <= Bereich ("C2"). Wert

Code:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR Range ("D2"). Value <= Range ("C2"). Value End Sub

Schritt 5: Ok, wir sind mit den logischen Tests hier fertig. Setzen Sie nach den logischen Tests das Wort "Dann".

Code:

 Sub IF_OR_Example1 () Wenn Bereich ("D2"). Wert <= Bereich ("B2"). Wert oder Bereich ("D2"). Wert <= Bereich ("C2"). Wert Dann Ende Sub

Schritt 6: Schreiben Sie in die nächste Zeile, was das Ergebnis sein soll, wenn der logische Test WAHR ist. Wenn die Bedingung WAHR ist, benötigen wir das Ergebnis als "Kaufen" in Zelle E2.

Code:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Wert = "Kaufen" End Sub

Schritt 7: Wenn das Ergebnis FALSE ist, sollten wir das Ergebnis als "Nicht kaufen" erhalten. Geben Sie in der nächsten Zeile "Else" ein und schreiben Sie den Code in die nächste Zeile.

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

Schritt 8: Schließen Sie die IF-Anweisung mit dem Wort "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, wir sind mit dem Codierungsteil fertig.

Lassen Sie uns diesen Code mit F5 oder manuell über die Ausführungsoption ausführen und sehen, was das Ergebnis in Zelle E2 ist.

Wir haben das Ergebnis als "Kaufen" erhalten, da der aktuelle monatliche Preis von Apple unter dem Preis sowohl des "vorherigen Monats" als auch des "6-Monats-Durchschnittspreises" liegt.

IF- oder VBA-Funktion mit Schleifen (erweitert)

Wenn Sie die Formel verstanden haben, versuchen Sie, sie mit einer größeren Anzahl von Zellen zu verwenden. Bei einer größeren Anzahl von Zellen können wir keine Codezeile schreiben, daher müssen wir VBA-Schleifen verwenden.

Für den obigen Datensatz habe ich einige weitere Zeilen hinzugefügt.

Wir müssen hier die For Next-Schleife verwenden.

Behalten Sie einfach den aktuellen Code bei.

Deklarieren Sie die Variable als Ganzzahl.

Öffnen Sie nun For Next Loop von 2 bis 9.

Wo immer wir eine Zellreferenz haben, ändert sich die aktuelle Nummer und verkettet die Variable "k" damit.

Zum Beispiel Bereich ("D2"). Der Wert sollte Bereich ("D" & k) sein. Wert

Führen Sie nun den Code aus, um den Status in allen Zellen zu erhalten.

Sie können den folgenden Code kopieren.

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