Excel VBA: Wie verwende ich die Select Case-Anweisung

In der Programmiersprache VBA (Visual Basic for Applications), die Teil von Microsoft Excel ist, gibt es viele Anweisungen, mit denen ein Programmierer die Codeausführung steuern kann. Eine dieser Anweisungen - Select Case - bietet die Möglichkeit, den Wert einer einzelnen Variablen mit mehreren möglichen Optionen zu vergleichen und die entsprechenden Aktionen abhängig vom Ergebnis auszuführen.

Die Select Case-Anweisung hat die folgende Syntax:

Select Case Ausdruck

Case Wert1

' Aktionen ausführen, wenn der Ausdruck gleich dem Wert 1 ist

Case Wert2

' Aktionen ausführen, wenn der Ausdruck gleich dem Wert 2 ist

Case Else

' Aktionen ausführen, wenn der Ausdruck keinem der Werte entspricht

End Select

Die Select Case-Anweisung macht es einfach und bequem, mehrere Variablenwerte zu überprüfen und entsprechende Aktionen auszuführen. Es ist besonders nützlich, wenn Sie abhängig vom Wert einer Variablen verschiedene Aktionen ausführen möchten, z. B. bei der Verarbeitung von Daten oder bei der Verwaltung eines Programms.

Select Case-Anweisung: Was ist das

Anstatt mehrere verschachtelte bedingte Anweisungen zu verwenden if. then. else Mit der Select Case-Anweisung können Sie mehrere mögliche Werte und einen entsprechenden Befehlssatz für jeden Wert festlegen.

Die grundlegende Struktur der Select Case-Anweisung lautet wie folgt:

Select Case выражениеCase значение1' выполнить команды для значения1Case значение2' выполнить команды для значения2Case Else' выполнить команды по умолчанию, если ни одно из предыдущих значений не соответствуетEnd Select

Ein Ausdruck kann ein beliebiger Ausdruck oder eine Variable sein, für den eine Überprüfung erforderlich ist.

Die Werte können Zahlen, Zeichenfolgen oder andere Datentypen sein. Sie müssen nach dem Case-Schlüsselwort angegeben werden, und Sie können mehrere Werte für einen einzelnen Case angeben, indem Sie sie durch Kommas trennen.

Die erste Übereinstimmung eines bestimmten Werts führt dazu, dass die entsprechenden Befehle ausgeführt werden und die Select Case-Anweisung beendet wird. Wenn kein Wert übereinstimmt, werden Befehle im Case Else-Block ausgeführt (falls vorhanden).

Die Verwendung der Select Case-Anweisung kann den Code besser lesbar und leicht zu pflegen machen, insbesondere wenn die möglichen Werte größer als zwei oder drei sind.

Beispiel für die Verwendung der Select Case-Anweisung:

Sub Пример()Dim оценка As Integerоценка = 5Select Case оценкаCase 5MsgBox "Отлично!"Case 4MsgBox "Хорошо"Case 3MsgBox "Удовлетворительно"Case ElseMsgBox "Неудовлетворительно"End SelectEnd Sub

In diesem Beispiel wird abhängig vom Wert der Variablen "Auswertung" eine entsprechende Meldung angezeigt. Wenn der Wert der Variablen 5 ist, wird die Meldung "Ausgezeichnet!". Bei 4 ist "Gut", 3 ist "Befriedigend", und für alle anderen Werte wird die Meldung "Nicht zufriedenstellend" angezeigt.

Anwenden einer Select Case-Anweisung in Excel VBA

Die Select Case-Anweisung in VBA (Visual Basic for Applications) bietet die Möglichkeit, je nach Wert einer Variablen oder eines Ausdrucks zwischen mehreren Ausführungsvariablen zu wählen. In Excel VBA wird die Select Case-Anweisung häufig verwendet, um verschiedene Bedingungen in Tabellen, Arbeitsmappen und Makros zu behandeln.

Die Syntax der Select Case-Anweisung lautet wie folgt:

Select Case выражениеCase значение1'код для значения1Case значение2'код для значения2Case Else'код по умолчаниюEnd Select

Die erste Zeile der Select Case-Anweisung gibt den Ausdruck oder die zu überprüfende Variable an. Dann folgen Case-Blöcke, die die verschiedenen Werte angeben, für die ein bestimmter Code ausgeführt werden soll. Der Case Else-Block gibt den Code an, der ausgeführt wird, wenn keiner der Werte mit dem zu überprüfenden Ausdruck übereinstimmt.

Die Select Case-Anweisung kann mit verschiedenen Datentypen wie Zahlen, Zeilen, Booleschen Werten usw. verwendet werden. Sie können beispielsweise Select Case verwenden, um den Zellenwert in Excel zu überprüfen und entsprechende Aktionen auszuführen.

Dim value As Variantvalue = Range("A1").ValueSelect Case valueCase "Apple"MsgBox "You selected an Apple."Case "Banana"MsgBox "You selected a Banana."Case "Orange"MsgBox "You selected an Orange."Case ElseMsgBox "Invalid selection."End Select

In diesem Beispiel wird der Wert von Zelle A1 überprüft. Wenn der Zellenwert mit einer der Optionen übereinstimmt (Apple, Banana, Orange), wird eine entsprechende Meldung mit MsgBox angezeigt. Wenn der Zellenwert nicht mit einer der Optionen übereinstimmt, wird die Meldung "Invalid selection" angezeigt.

Die Select Case-Anweisung kann auch mit numerischen Werten und Ausdrücken verwendet werden. Sie können es beispielsweise verwenden, um einen Bereich von Zahlen zu definieren:

Dim number As Integernumber = 10Select Case numberCase 1 To 5MsgBox "Number is between 1 and 5."Case 6 To 10MsgBox "Number is between 6 and 10."Case ElseMsgBox "Number is not within the specified range."End Select

In diesem Beispiel wird die Zahl 10 überprüft. Wenn die Zahl zwischen 1 und 5 liegt, wird eine entsprechende Meldung angezeigt. Wenn die Zahl zwischen 6 und 10 liegt, wird eine andere Meldung angezeigt. Wenn die Zahl nicht innerhalb eines der angegebenen Bereiche liegt, wird die Meldung "Number is not within the specified range" angezeigt.

Die Select Case-Anweisung in Excel VBA erleichtert und vereinfacht das Schreiben bedingter Konstrukte, indem Sie je nach Wert einer Variablen oder eines Ausdrucks unterschiedliche Codeausgaben ausführen können. Dies kann sehr nützlich sein, wenn Sie Makros entwerfen, Aufgaben automatisieren und Daten in Excel verarbeiten.

Die Syntax der Select Case-Anweisung in Excel VBA

Die Syntax der Select Case-Anweisung in Excel VBA lautet wie folgt:

Select Case выражениеCase значение1'Код для выполнения, когда выражение равно значение1Case значение2'Код для выполнения, когда выражение равно значение2Case Else'Код для выполнения, когда выражение не равно ни одному из значенийEnd Select

Lassen Sie uns also diese Syntax verstehen:

• Ein Ausdruck ist eine Variable oder ein Ausdruck, deren Wert wir überprüfen möchten.
• Case ist ein Schlüsselwort, das den Anfang des Blocks angibt, in dem die möglichen Werte des Ausdrucks angegeben werden.
• Wert1, Wert2 usw. sind die spezifischen Werte, die wir mit einem Ausdruck vergleichen.
• 'Auszuführender Code' ist eine Aktion, die ausgeführt werden muss, wenn ein Ausdruck einem bestimmten Wert entspricht.
• Case Else ist ein optionaler Block, der ausgeführt wird, wenn der Ausdruck keinem der vorherigen Werte entspricht.
• End Select ist ein Schlüsselwort, das das Ende einer Select Case-Anweisung angibt.

Es ist wichtig zu beachten, dass die Werte im Case-Block beliebig sein können, einschließlich Zahlen, Zeilen oder Ausdrucksergebnissen.

Im folgenden Beispiel wird die Verwendung der Select Case-Anweisung veranschaulicht:

Sub SelectCaseExample()Dim value As Integervalue = 3Select Case valueCase 1MsgBox "Значение равно 1"Case 2MsgBox "Значение равно 2"Case 3MsgBox "Значение равно 3"Case ElseMsgBox "Значение не равно ни одному из предыдущих"End SelectEnd Sub

In diesem Beispiel ist die Variable "value" gleich 3. Während der Codeausführung wird die Meldung "Wert ist gleich 3" angezeigt, da der Ausdruck "value" mit dem Case 3-Block übereinstimmt.

Die Select Case-Anweisung ist ein leistungsfähiges Werkzeug, um die Ausführung von Code abhängig von verschiedenen Bedingungen zu steuern. Dies ermöglicht eine flexiblere und effizientere Verwaltung des Programmablaufs, insbesondere in Fällen, in denen eine große Anzahl von Wertvarianten verarbeitet werden muss.

Beispiele für die Verwendung der Select Case-Anweisung in Excel VBA

Hier sind einige Beispiele für die Verwendung der Select Case-Anweisung:

Beispiel 1:

Dim grade As Stringgrade = Range("A1").ValueSelect Case gradeCase "A"MsgBox "Отличная оценка!"Case "B"MsgBox "Хорошая оценка!"Case "C"MsgBox "Средняя оценка!"Case ElseMsgBox "Неизвестная оценка!"End Select

In diesem Beispiel wird der Wert von Zelle A1 der Variable grade zugewiesen, und anschließend wird die Select Case-Anweisung verwendet, um die entsprechende Meldung basierend auf dem Wert der Variablen grade auszugeben.

Beispiel 2:

Dim number As Integernumber = 10Select Case numberCase 1 To 5MsgBox "Число от 1 до 5"Case 6, 7, 8MsgBox "Число 6, 7 или 8"Case Is > 8MsgBox "Число больше 8"Case ElseMsgBox "Неизвестное число"End Select

In diesem Beispiel wird die Select Case-Anweisung verwendet, um den Typ einer Zahl zu bestimmen und die entsprechende Meldung auszugeben. Der erste Case verwendet einen Bereich von 1 bis 5, der zweite Case gibt die spezifischen Werte 6, 7 und 8 an, der dritte Case verwendet die Anweisung Is > 8, um zu bestimmen, ob eine Zahl größer als 8 ist, und Case Else zeigt eine Meldung für alle anderen Werte der Zahl an.

Beispiel 3:

Dim color As Stringcolor = "red"Select Case LCase(color)Case "red"MsgBox "Красный цвет"Case "blue"MsgBox "Синий цвет"Case "green"MsgBox "Зеленый цвет"Case ElseMsgBox "Неизвестный цвет"End Select

In diesem Beispiel wird die LCase-Funktion verwendet, um den Wert einer Variablen in Kleinbuchstaben umzuwandeln. Die Select Case-Anweisung wird verwendet, um die Farbe zu bestimmen und die entsprechende Meldung auszugeben. In diesem Fall werden alle Farbwerte klein geschrieben, um den Vergleich zu erleichtern.

Die Select Case-Anweisung in Excel VBA bietet eine bequeme Möglichkeit, abhängig vom Wert einer Variablen oder eines Ausdrucks verschiedene Aktionen auszuführen. Sie können die Select Case-Anweisung verwenden, um verschiedene Szenarien in Ihren Excel-VBA-Makros zu behandeln, um Aufgaben zu automatisieren und die Arbeitseffizienz zu verbessern.