Excel VBA verfügt über das Konstrukt IF Then Else, mit dem Sie mehrere Bedingungen analysieren und Codes ausführen können basierend auf diesen Bedingungen.
Ein weiteres ähnliches Konstrukt, mit dem Sie nach mehreren Bedingungen suchen können, ist die Anweisung SELECT CASE.
Fall auswählen ist nützlich, wenn Sie drei oder mehr Bedingungen haben, die Sie möchten überprüfen. Sie können dies auch unter zwei Bedingungen verwenden (aber ich bin der Meinung, dass If Then Else in diesen Fällen einfacher zu verwenden ist).
Ein einfaches Beispiel, bei dem die Anweisung Select Case nützlich ist, wenn Sie die Note a erhalten möchten Schüler basierend auf den Noten, die er / sie erzielt hat (als Beispiel weiter unten in diesem Lernprogramm behandelt).
Hinweis: Alle in diesem Lernprogramm behandelten Beispielcodes sollen in einem Modul in VBA platziert werden.
Dieses Tutorial behandelt:
Syntax für Groß- und Kleinschreibung auswählen
Nachfolgend finden Sie die Syntax für Groß- und Kleinschreibung in Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: Dies ist der Ausdruck, dessen Wert wir anhand verschiedener Fälle analysieren (anhand der folgenden Beispiele besser erläutert).
- Bedingung_1, Bedingung_2,…: Dies sind die Bedingungen, unter denen der Textausdruck getestet wird. Wenn es die Bedingung erfüllt, wird der Codeblock für die angegebene Bedingung ausgeführt.
Für jede Select Case-Anweisung, die Sie verwenden, müssen Sie die End Select-Anweisung verwenden.
Hinweis: Sobald eine Bedingung erfüllt ist, beendet VBA das Select-Case-Konstrukt. Wenn Sie also fünf Bedingungen haben und die zweite Bedingung erfüllt ist, beendet VBA Select Case – und der Rest der Bedingungen wird nicht getestet.
Select Case-Beispiele
Nun zu Um die Verwendung der Select Case-Anweisung in VBA besser zu verstehen, gehen wir einige Beispiele durch.
Beachten Sie, dass die meisten Beispiele in diesem Lernprogramm das Konzept erläutern sollen. Dies ist möglicherweise der beste Weg, um die Arbeit zu erledigen.
Beginnen wir mit einem einfachen Beispiel dafür, wie Select Case es uns ermöglicht, nach Bedingungen zu suchen.
Beispiel 1 – Überprüfen Sie die Zahlen
Im folgenden Beispiel fordert der Code den Benutzer auf, eine beliebige Zahl zwischen 1 und 5 einzugeben, und zeigt dann ein Meldungsfeld mit der vom Benutzer eingegebenen Nummer an.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more