/ / Excel VBA Select Fall

Excel VBA Select Fall

Statt mehrerer If Then-Anweisungen in Excel VBA, du kannst den ... benutzen Wählen Sie Fallstruktur.

Situation:

Wählen Sie Fall in Excel VBA

Fügen Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt ein, und fügen Sie die folgenden Codezeilen hinzu:

1. Deklarieren Sie zuerst zwei Variablen. Eine Variable vom Typ Integer namens score und eine Variable vom Typ String namens result.

Dim score As Integer, result As String

2. Wir initialisieren den Variablen-Score mit dem Wert von Zelle A1.

score = Range("A1").Value

3. Fügen Sie die Select Case-Struktur hinzu.

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 Variablenbewertung, um jede nachfolgende Case-Anweisung zu testen, um festzustellen, ob der Code unter der Case-Anweisung ausgeführt werden sollte.

4. Schreiben Sie den Wert des Variablenergebnisses in die Zelle B1.

Range("B1").Value = result

5. Testen Sie das Programm.

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Wählen Sie Fallergebnis

Hinweis: Excel VBA führt den Code unter der zweiten Case-Anweisung für alle Werte größer als oder gleich 70 und kleiner als 80 aus.

Lesen Sie auch: