Excel-VBA-Select Case
Statt mehr If Then-Anweisungen in Excel VBA können Sie die Select Case-Struktur verwenden.
Situation:
Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:
-
Zuerst deklarieren zwei Variablen. Eine Variable vom Typ Integer namens Punktzahl und eine Variable vom Typ String namens Ergebnis.
Dim score As Integer, result As String
-
Wir initialisieren die Variable Gäste mit dem Wert der Zelle A1.
score = Range("A1").Value
-
die Select Case-Struktur hinzufügen.
Select Case score Case Is >= 80 result = "very good" Case Is >= 70 result = "good" Case Is >= 60 result = "sufficient" Case Else result = "insufficient" End Select
Erläuterung: Excel VBA verwendet den Wert der Variablen Punktzahl jede nachfolgende Case-Anweisung zu testen, um zu sehen, ob der Code unter der Case-Anweisung ausgeführt werden soll.
-
Der Wert der Variablen Ergebnis zu Zelle B1 schreiben.
Range("B1").Value = result
-
Testen Sie das Programm.
Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:
Hinweis: Excel VBA führt den Code unter der zweiten Case-Anweisung für alle Werte größer oder gleich 70 und weniger als 80