SELECT CASE-Anweisung - ein leistungsfähiges Werkzeug in der Programmiersprache VBA (Visual Basic for Applications), mit dem Sie verschiedene Bedingungen analysieren und entsprechende Aktionen ausführen können. Es vereinfacht und verbessert die Codestruktur, indem ein einzelner Wert mit mehreren möglichen Varianten verglichen und Aktionen ausgeführt werden, die jeder übereinstimmenden Variante entsprechen.
Die SELECT CASE-Anweisung ist leicht zu lesen und zu verstehen, daher wird sie bevorzugt, wenn eine große Anzahl verschiedener Fälle und Optionen behandelt werden muss. Es kann auch nützlich sein, um Bedingungen zu behandeln, die nicht bequem als Schleife dargestellt werden können.
Mithilfe der SELECT CASE-Anweisung in Excel VBA können Sie Module, Makros und benutzerdefinierte Funktionen erstellen, die abhängig von den Werten von Variablen oder anderen Bedingungen eine bestimmte Reihe von Aktionen ausführen. Mit der SELECT CASE-Anweisung können Sie besser lesbaren und leicht zu wartenden Code erstellen, was ihn besonders bei der Entwicklung komplexer Projekte nützlich macht. Der Operator bietet eine flexiblere Alternative zur IF-ELSEIF-ELSE-Anweisung, insbesondere wenn viele verschiedene Optionen verarbeitet werden müssen.
SELECT CASE-Anweisung in Excel VBA: grundprinzipien der Arbeit
Mit der SELECT CASE-Anweisung in der Excel-Programmiersprache VBA können Sie die Codeausführung basierend auf einer bestimmten Bedingung steuern. Diese Anweisung stellt eine bequemere und kompaktere Alternative zu einer IF-THEN-ELSE-Anweisung dar, insbesondere wenn mehrere mögliche Bedingungen vorliegen.
Die Syntax der SELECT CASE-Anweisung lautet wie folgt:
| Format | Die Beschreibung |
|---|---|
| SELECT CASE expression | Definieren des zu vergleichenden Ausdrucks |
| CASE value1 | Die auszuführenden Anweisungen, wenn der Ausdruck value1 ist |
| CASE value2 | Anweisungen, die ausgeführt werden, wenn der Ausdruck value2 ist |
| CASE ELSE | Anweisungen, die ausgeführt werden, wenn keine der oben genannten Bedingungen erfüllt ist |
| END SELECT | Schließen einer SELECT CASE-Anweisung |
Eine SELECT CASE-Anweisung kann eine beliebige Anzahl von CASE-Blöcken enthalten, in denen verschiedene Werte definiert sind, die ein Ausdruck annehmen kann. Wenn der Ausdruck mit einem bestimmten Wert übereinstimmt, werden Anweisungen ausgeführt, die nach dem gegebenen CASE-Block gehen. Wenn keiner der Werte übereinstimmt, werden CASE-ELSE-Blockanweisungen ausgeführt (falls ein solcher Block vorhanden ist).
Beispiel für die Verwendung der SELECT CASE-Anweisung:
Dim value As Integer
Select Case value
MsgBox "Wert ist 1"
MsgBox "Wert ist 2"
MsgBox "Wert ist 3"
MsgBox "Wert entspricht keinem Block"
In diesem Beispiel wird die Meldung "Wert ist 1" angezeigt, wenn der Wert der Variablen value 1 ist. Wenn der Wert 2 ist, wird die Meldung "Wert ist 2" angezeigt. Wenn der Wert 3 ist, wird die Meldung "Wert ist 3" angezeigt. Wenn keine dieser Bedingungen erfüllt ist, wird die Meldung "Der Wert entspricht keinem Block" angezeigt.
Die SELECT CASE-Anweisung ist in Situationen nützlich, in denen eine große Anzahl möglicher Bedingungsoptionen behandelt werden muss. Es macht den Code kompakter und leichter zu lesen und erweist sich daher als nützliches Werkzeug bei der Entwicklung komplexer Makros und Prozeduren in VBA Excel.
Verwenden der SELECT CASE-Anweisung für mehrere bedingte Ausdrücke in VBA Excel
Die SELECT CASE-Anweisung hat die folgende Syntax:
SELECT CASE переменнаяCASE значение1'код для случая, когда переменная равна значению1CASE значение2'код для случая, когда переменная равна значению2CASE Else'код для случая, когда переменная не равна ни одному из значенийEND SELECT
Beachten Sie, dass die Codeausführung mit dem Block beginnt, der dem Wert der Variablen entspricht. Es wird fortgesetzt, bis ein CASE Else- oder END SELECT-Block gefunden wird.
SELECT CASE kann für verschiedene Szenarien verwendet werden. Sie können beispielsweise mithilfe des Operators bestimmte Aktionen ausführen, abhängig vom vom Benutzer ausgewählten Zellenwert.
Betrachten wir ein Beispiel, in dem die SELECT CASE-Anweisung verwendet wird, um den Wochentag anhand seiner Nummer zu bestimmen:
Sub DetermineDayOfWeek()Dim dayNumber As IntegerDim dayOfWeek As StringdayNumber = InputBox("Введите номер дня недели (1-7):")Select Case dayNumberCase 1dayOfWeek = "Понедельник"Case 2dayOfWeek = "Вторник"Case 3dayOfWeek = "Среда"Case 4dayOfWeek = "Четверг"Case 5dayOfWeek = "Пятница"Case 6dayOfWeek = "Суббота"Case 7dayOfWeek = "Воскресенье"Case ElsedayOfWeek = "Неверный номер дня"End SelectMsgBox dayOfWeekEnd Sub
In diesem Beispiel gibt der Benutzer die Nummer des Wochentags ein, und das Programm gibt den entsprechenden Tag mit der SELECT CASE-Anweisung aus. Wenn der Benutzer eine andere Zahl als 1-7 eingibt, wird die Meldung "Falsche Tagesnummer" angezeigt.
Die SELECT CASE-Anweisung kann auch besonders nützlich sein, wenn Sie mehrere Variablenwerte überprüfen und je nach Bedingung unterschiedliche Codeblöcke für jeden einzelnen Code ausführen müssen. Es macht den Code klarer und lesbarer.
Ich hoffe, dieses Beispiel hat Ihnen geholfen zu verstehen, wie Sie die SELECT CASE-Anweisung für einen mehrfachen bedingten Ausdruck in VBA Excel verwenden. Die Verwendung von SELECT CASE kann Ihren Code erheblich vereinfachen und Ihnen helfen, ihn lesbarer und wartbarer zu machen.
Beispiel für die Verwendung der SELECT CASE-Anweisung in VBA Excel, um abhängig vom Wert einer Variablen verschiedene Aktionen auszuführen
Mit der SELECT CASE-Anweisung in Excel VBA können Sie abhängig vom Wert einer Variablen verschiedene Aktionen ausführen. Dies ist nützlich, um verschiedene Skripts zu verarbeiten und den Programmcode zu vereinfachen.
Um die SELECT CASE-Anweisung zu verwenden, müssen Sie zuerst eine Variable deklarieren und ihr einen Wert zuweisen. Sie können dann mehrere Variationen von Werten angeben, für die Sie bestimmte Aktionen ausführen möchten.
Hier ist ein Beispiel für die Verwendung der SELECT CASE-Anweisung, um abhängig vom Wert der Variablen "color" verschiedene Aktionen auszuführen:
Sub SelectCaseExample()Dim color As Stringcolor = "green"Select Case colorCase "red"Debug.Print "Выбран красный цвет"Case "blue"Debug.Print "Выбран синий цвет"Case "green"Debug.Print "Выбран зеленый цвет"Case ElseDebug.Print "Выбран неизвестный цвет"End SelectEnd SubWenn in diesem Beispiel die Variable "color" auf "red" gesetzt ist, wird der Befehl "Debug" ausgeführt.Print "Rot ist ausgewählt"". Wenn der Wert "blue" lautet, wird der Befehl "Debug" ausgeführt.Print "Blau ist ausgewählt"". Wenn der Wert "green" lautet, wird der Befehl "Debug" ausgeführt.Print "Grün ist ausgewählt"". Und falls der Wert der Variablen nicht mit einer der angegebenen Optionen übereinstimmt, wird der Befehl Debug ausgeführt.Print "Unbekannte Farbe ausgewählt"".
Daher ist die SELECT CASE-Anweisung in Excel VBA ein leistungsfähiges Werkzeug, um abhängig vom Wert einer Variablen verschiedene Aktionen auszuführen.
