Einen RS-Switch in VBA Excel veranschaulicht

Ein gut geschriebenes Computerprogramm kann Zeit sparen, der Entwickler und Programmierer, die sie in Zukunft aufrecht zu erhalten. In VBA können Sie die Select Case-Anweisung als eine Alternative zur Verwendung von "ElseIf" in "Wenn... Dann... Else"-Anweisungen. Ein Programm wird schwer zu lesen, wenn Sie haben viele "Wenn... Dann... Sonst"verwenden Sie Anweisungen und Mai auch langsamer als If Sie Select Case. Eine Select Case-Anweisung wertet den Ausdruck nur einmal während der "Wenn... Sonst... Anweisungen müssen dann"jeder Schritt vor dem Ausführen von Code testen.

Anweisungen

1 Klicken Sie auf die Registerkarte "Entwicklertools", klicken Sie auf "Visual Basic", und klicken Sie im Menü "Einfügen". Klicken Sie auf "Module", um ein neues Codemodul einzufügen.

2 Zunächst erstellen eine Sub-Prozedur mit dem folgenden Code:

Private Sub CaseSwitch()

3 Erstellen Sie drei Variablen, durch Eingabe der folgenden Codezeilen:

Dim EmployeePerf As Integer

Dim Gehalt als Währung

Dim Bonus als Währung

4 Definieren Sie Werte für die Variablen Gehalt und EmployeePerf:

Gehalt = 75000

EmployeePerf = 3

5 Verwenden Sie die select Case-Anweisung, um den Bonusbetrag, basierend auf der Leistung des Arbeitnehmers und ihres Grundgehalts zu bestimmen.

Select Case employeePerf

Case 1

Bonus = salary * 0.1

Case 2, 3

Bonus = salary * 0.09

Case 4 To 6

Bonus = salary * 0.07

Case Is > 8

Bonus = 100

Case Else

Bonus = 0

End Select

6 Zeigen Sie mithilfe des Direktfensters Bonus-Betrag.

Debug.Print-Bonus

7 Ende des Verfahrens durch Eingabe von "EndSub". Drücken Sie "F5", um den Code auszuführen.