En godt skrevet dataprogram kan spare tid til utbygger og programmerere som opprettholder det i fremtiden . I VBA kan du bruke Select sak uttalelse som et alternativ til å bruke " ElseIf " in " If ... Then ... Else " uttalelser . Et program blir vanskelig å lese når du har mange " If ... Then ... Else " uttalelser , og kan også kjøre saktere enn hvis du bruker Select sak . A Velg sak uttalelse behandler uttrykket bare én gang mens " If ... Else ... Da " uttalelser må vurdere hvert trinn før du utfører koden . Instruksjoner
en
Klikk på " Developer "-kategorien , klikk på " Visual Basic ", og klikk på "Insert "-menyen . Klikk på " Module" for å sette inn en ny kode modul
2
Start med å lage en sub prosedyre ved hjelp av følgende kode : .
Private Sub CaseSwitch ( )
3
Lag tre variabler ved å skrive følgende linjer med kode :
Dim employeePerf As Integer
Dim lønn som valuta
Dim Bonus som valuta
4
Definer verdier for lønn og employeePerf variabler:
lønn = 75000
employeePerf = 3
5
Bruk Velg tilfelle uttalelse til bestemme bonus beløp basert på resultatene av den ansatte og deres grunnlønn .
Select sak employeePerf
tilfelle 1
bonus = lønn * 0,1
tilfelle 2 , 3
Bonus = lønn * 0,09
sak 4 til 6
Bonus = lønn * 0,07
saken er > 8
bonus = 100
sak Else
bonus = 0
End Velg
6
Vis bonusbeløpet med Immediate-vinduet .
Debug.Print Bonus
7
End prosedyren ved å skrive " End Sub . " Trykk "F5 " for å kjøre koden .