Wie man einen Schalter in der Rechtssache Excel VBA verwenden . In VBA können Sie die Select Case-Anweisung als Alternative zur Verwendung von " ElseIf " in " If ... Then ... Else " -Anweisungen verwenden . Ein Programm wird schwer zu lesen , wenn Sie viele " If ... Then ... Else " Aussagen und haben auch langsamer laufen , als wenn Sie Select Case verwenden . Eine Select Case-Anweisung wertet den Ausdruck nur einmal während der " If ... Else ... Then " Aussagen müssen jeden Schritt vor der Ausführung von Code zu bewerten. Anleitung
1
Klicken Sie auf die Registerkarte "Entwicklertools" , klicken Sie auf " Visual Basic ", und klicken Sie auf "Einfügen "-Menü. Klicken Sie "Module" , um einen neuen Code zu Modul einzufügen
2
starten , indem Sie eine Sub-Prozedur mit folgendem Code : .
Private Sub CaseSwitch ()
3
erstellen Sie drei Variablen , indem Sie die folgenden Codezeilen :
Dim employeePerf As Integer
Dim Gehalt As Currency
Dim Bonus As Currency
4
definieren Werte für den Gehalt und employeePerf Variablen :
Gehalt = 75000
employeePerf = 3
5
Verwenden Sie die select Case- Anweisung bestimmen den Bonusbetrag auf die Leistung der Mitarbeiter und ihres Grundgehalts basiert.
Select Case employeePerf
Fall 1
Bonus = Gehalt * 0.1
Fall 2 , 3
Bonus = Gehalt * 0,09
Fall 4 bis 6
Bonus = Gehalt * 0,07
Fall > 8
Bonus = 100
Case Else
Bonus = 0
End Select
6
Anzeige der Bonusbetrag mit dem Direkt-Fenster .
Debug.Print Bonus
7
Ende das Verfahren durch Eingabe von " End Sub . " Drücken Sie auf " F5 ", um den Code auszuführen.
