Statt mehr If Then-Anweisungen in Excel VBA können Sie die Select Case-Struktur verwenden.

Situation:

Select Case in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. 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
  1. Wir initialisieren die Variable Gäste mit dem Wert der Zelle A1.

score = Range("A1").Value
  1. 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.

  1. Der Wert der Variablen Ergebnis zu Zelle B1 schreiben.

Range("B1").Value = result
  1. Testen Sie das Programm.

Ergebnis, wenn Sie auf das Befehlsschaltflächen auf dem Blatt klicken:

Select Case Result

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