En välskriven datorprogram kan spara tid för utvecklare och programmerare som upprätthåller det i framtiden . I VBA kan du använda Select Case uttalande som ett alternativ till att använda " ElseIf " i " If ... Then ... Else" uttalanden . Ett program blir svårt att läsa när du har många " If ... Then ... Else" uttalanden och kan också köra långsammare än om du använder Select Case . A Välj Case uttalande utvärderar uttrycket endast en gång medan " Om ... Else ... Sen " uttalanden måste utvärdera varje steg innan du kör koden . Instruktioner
1
Klicka på " Utvecklare " fliken , klicka på " Visual Basic ", och klicka på " Infoga " -menyn . Klicka på " modul " för att infoga en ny kodmodul
2
Börja med att skapa en sub förfarande med följande kod : .
Private Sub CaseSwitch ( )
3
Skapa tre variabler genom att skriva följande rader med kod :
Dim employeePerf As Integer
Dim lön som valuta
Dim Bonus som valuta
4
Definiera värden för lön och variabler employeePerf :
lön = 75000
employeePerf = 3
5
Använd Select fallet uttalande till bestämma bonus belopp som baseras på den anställdes prestation och deras grundlön .
Select Case employeePerf
fall 1
bonus = lön * 0,1
fall 2 , 3 bilder
Bonus = lön * 0,09
mål 4 till 6
Bonus = lön * 0.07
Case Is > 8
bonus = 100
Case Else
bonus = 0
End Välj
6
Visa bonusbeloppet med Immediate fönstret .
Debug.Print Bonus
7
Avsluta proceduren genom att skriva " End Sub . " Tryck " F5 " för att köra koden .
