Anstelle mehrerer If Then-Anweisungen in Excel VBA, du kannst den … benutzen Fallstruktur auswählen.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Deklarieren Sie zunächst zwei Variablen. Eine Variable vom Typ Integer namens score und eine Variable vom Typ String namens result.
Dim Score As Integer, Ergebnis As String
2. Wir initialisieren die Variable Score mit dem Wert der Zelle A1.
Punktzahl = Range("A1").Wert
3. Fügen Sie die Select Case-Struktur hinzu.
Fallpunktzahl auswählen
Fall ist >= 80
Ergebnis = "sehr gut"
Fall ist >= 70
Ergebnis = "gut"
Fall ist >= 60
Ergebnis = "ausreichend"
Fall sonst
Ergebnis = "ungenügend"
Auswahl beenden
Erläuterung: Excel VBA verwendet den Wert der Variablen score, um jede nachfolgende Case-Anweisung zu testen, um festzustellen, ob der Code unter der Case-Anweisung ausgeführt werden soll.
4. Schreiben Sie den Wert der Variablen result in Zelle B1.
Range("B1").Wert = Ergebnis
5. Testen Sie das Programm.
Ergebnis, wenn Sie auf die Befehlsschaltfläche 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 kleiner als 80 aus.
