Inhaltsverzeichnis
Bedingte Anweisungen werden in Programmiersprachen verwendet, um eine Reihe von Aktionen in Abhängigkeit von einer bestimmten Bedingung auszuführen. In diesem Artikel werden wir Ihnen zeigen, was Wenn - Dann - Sonst bedingte Anweisung in VBA Excel ist und wie man es benutzt.
Arbeitsbuch herunterladen
Sie können die kostenlose Excel-Arbeitsmappe für die Praxis hier herunterladen.
If-Then-Else in VBA.xlsm
Einführung in die If - Then - Else-Anweisung in VBA
VBA If - Then - Else Die bedingte Anweisung wird hauptsächlich verwendet, um den Ausführungsfluss der Bedingungen zu bestimmen. Wenn die Bedingung wahr ist, wird ein bestimmter Satz von Aktionen ausgeführt, und wenn die Bedingung falsch ist, wird ein anderer Satz von Aktionen ausgeführt.
- Syntax
If condition Then [statements] [Else else_statements] Oder,
If condition Then [statements] [Else [else_statements]] End If Hier,
| Argument | Erforderlich/ Fakultativ | Beschreibung |
|---|---|---|
| Zustand | Erforderlich | Ein numerischer Ausdruck oder ein String-Ausdruck, der auswertet, ob der Ausdruck Wahr oder Falsch Wenn die Zustand Null ist, wird es als Falsch . |
| Aussagen | Optional | Ein einzeiliges Formular, das keine Sonst Eine oder mehrere Anweisungen müssen durch Doppelpunkte getrennt werden. Wenn die Zustand ist Wahr dann wird diese Anweisung ausgeführt. |
| else_statements | Optional | Eine oder mehrere Anweisungen werden ausgeführt, wenn keine vorherige Zustand ist Wahr . |
4 Beispiele für die Verwendung der VBA If - Then - Else-Anweisung in Excel
In diesem Abschnitt erfahren Sie, wie Sie Wenn-Dann-Else in VBA Code mit 4 Beispielen.
1. die größte Zahl zwischen zwei Zahlen mit der If - Then - Else-Anweisung finden
Wenn Sie zwei Zahlen haben und herausfinden wollen, welche die größere (oder kleinere) ist, können Sie die Funktion Wenn-Dann-Else Anweisung in VBA .
Schritte:
- Presse Alt + F11 auf Ihrer Tastatur oder gehen Sie auf die Registerkarte Entwickler -> Visual Basic zu öffnen Visual Basic-Editor .
- Klicken Sie im Pop-up-Code-Fenster in der Menüleiste auf Einfügen -> Modul .
- Kopieren Sie den folgenden Code und fügen Sie ihn in das Codefenster ein.
Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "1. Zahl ist größer als die 2. Zahl" ElseIf Num2> Num1 Then MsgBox "2. Zahl ist größer als die 1. Zahl" Else MsgBox "1. Zahl und die 2. Zahl sind gleich" End If End Sub Ihr Code ist nun einsatzbereit.
Hier vergleichen wir zwei Zahlen 12345 und 12335 Dieses Verfahren ist in der Regel perfekt geeignet, um große Zahlen in einem großen Datensatz zu finden.
- Presse F5 auf Ihrer Tastatur oder wählen Sie in der Menüleiste Run -> Run Sub/UserForm Sie können auch einfach auf die Schaltfläche kleines Play-Symbol in der Untermenüleiste, um das Makro auszuführen.
Sie erhalten das Ergebnis in Excel in der MsgBox
In unserem Fall, Nummer 12345 - gespeichert in der Variablen Ziffern1 - größer ist als die Zahl 12335 , Ziffern2 Die MsgBox zeigt uns also, dass die Die erste Zahl ist größer als die zweite Zahl .
Lesen Sie mehr: Excel-Formel zur Erzeugung von Zufallszahlen (5 Beispiele)
2. das Prüfen von Schülerergebnissen mit der If - Then - Else-Anweisung in VBA
Sie können überprüfen, ob ein Student eine Prüfung bestanden oder nicht bestanden hat, indem Sie diese Aussage in der VBA Code.
Schritte:
- Auf die gleiche Weise wie zuvor, öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
- Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein.
Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "John's Result is Pass" Else MsgBox "John's Result is Fail" End If End Sub Ihr Code ist nun einsatzbereit.
Mit diesem Code wird geprüft, ob Cell D5 einen Wert hat, der größer ist als 33 Wenn dies der Fall ist, wird eine Ausgabe angezeigt, wenn nicht, wird etwas anderes angezeigt.
- ausführen. das Makro und Sie erhalten das Ergebnis entsprechend Ihrem Code.
Betrachten Sie den obigen Datensatz mit dem Ergebnis, Cell D5 hält 95 was sicherlich mehr ist als 33 und zeigt daher die Ergebnis ist Pass Aber wenn wir den Code für Cell D7 (22), dann würde es anders aussehen.
Lesen Sie mehr: Verwendung von VBA Case Statement (13 Beispiele)
Ähnliche Lektüre
- Wie man die Log-Funktion in Excel VBA verwendet (5 geeignete Beispiele)
- VBA LTrim-Funktion in Excel verwenden (4 Beispiele)
- Verwendung der VBA-Funktion FileDateTime in Excel (3 Verwendungen)
- VBA Mod-Operator verwenden (9 Beispiele)
- VBA EXP-Funktion in Excel (5 Beispiele)
3. aktualisieren Sie Kommentare in Schülernoten mit mehreren If - Then - Else-Anweisungen in VBA
Sie haben gelernt, wie Sie mit einem einzigen Test herausfinden können, ob ein Schüler die Prüfung bestanden hat oder nicht. Wenn-Dann-Else Anweisung, aber dieses Mal werden Sie etwas über Mehrere Wenn-Dann-Else Anweisungen mit dem folgenden Beispiel.
Wir werden eine VBA Code zum Ausfüllen dieser Kommentar Boxen auf der Grundlage mehrerer Bedingungen.
Schritte:
- Auf die gleiche Weise wie zuvor, öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
- Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein.
Sub UpdateComment() For Each grade In Range("D5:D10") If grade = "A" Then grade.Offset(0, 1).Value = "Great Work" ElseIf grade = "B" Then grade.Offset(0, 1).Value = "Keep It Up" ElseIf grade = "C" Then grade.Offset(0, 1).Value = "Needs Improvement" Else grade.Offset(0, 1).Value = "Parents-Teacher Meeting" End If Next grade EndUnter Ihr Code ist nun einsatzbereit.
Dieser Code druckt Kommentare entsprechend der von den Schülern erreichten Note.
- ausführen. diesen Code und sehen Sie das folgende Bild, in dem die Kommentarfelder mit den entsprechenden Ergebnissen gefüllt sind.
4 If-Then-Else-Anweisung zur Aktualisierung kardinaler Richtungen auf der Grundlage eines Codes in Excel
Sie können auch die Wenn-Dann-Else Schauen Sie sich das folgende Bild an, in dem wir die Himmelsrichtungen anhand der gegebenen Initialen herausfinden.
Schritte:
- Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
- Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein.
Sub UpdateDir() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "Nord" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "Süd" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "Ost" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndUnter Ihr Code ist nun einsatzbereit.
- ausführen. diesen Code und Sie erhalten die Richtungsnamen in den entsprechenden Zellen.
Wenn Sie nur eine Richtung anhand eines Codes finden möchten, können Sie den unten stehenden Code verwenden.
Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub Dieser Code übernimmt den Wert aus Cell B5 in Betracht und gibt das Ergebnis entsprechend in Cell C5 .
Wenn Sie zum Beispiel schreiben " N " in Zelle B5 erhalten Sie " Norden Wenn Sie schreiben " S " in Zelle B5 zeigt es Ihnen " Süd " in Zelle C5 .
Schlussfolgerung
In diesem Artikel haben Sie erfahren, wie Sie die Wenn - Dann - Sonst Anweisung in Excel mit VBA Ich hoffe, dass dieser Artikel für Sie von Nutzen war. Wenn Sie Fragen zum Thema haben, können Sie sich gerne an mich wenden.
