En velskrevet computerprogram kan spare tid til bygherren og programmørerne , der opretholder det i fremtiden . I VBA kan du bruge Select Case erklæring som et alternativ til at bruge " ElseIf " i "If ... Then ... Else " udsagn . Et program bliver svært at læse, når du har mange " If ... Then ... Else " udsagn og kan også køre langsommere , end hvis du bruger Select Case. A Vælg Case erklæring beregner udtrykket kun en gang mens " If ... Else ... Derefter " udsagn nødt til at evaluere hvert trin , før du udfører kode. Instruktioner
1

Klik på " Udvikler " fanen , klik på " Visual Basic ", og klik på "Indsæt "-menuen. Klik på " Modul " for at indsætte en ny kode modul
2

Start ved at skabe en sub procedure ved hjælp af følgende kode: .

Private Sub CaseSwitch ()
< br > 3

Opret tre variable ved at skrive følgende linjer kode :

Dim employeePerf As Integer

Dim løn som Valuta

Dim Bonus som Valuta

4

Definer værdier for løn og employeePerf variabler:

løn = 75000

employeePerf = 3
5

bruge select sagen erklæring til bestemme bonus beløb baseret på udførelsen af ​​den ansatte og deres grundløn .

Select Case employeePerf

Case 1

bonus = løn * 0,1

Case 2 , 3 fotos

Bonus = løn * 0,09

Case 4 Til 6 fotos

Bonus = løn * 0,07

Case er> 8

bonus = 100

Case Else

bonus = 0

End Vælg
6

Vis bonusbeløbet ved hjælp af Immediate -vinduet.

Debug.Print Bonus
7

afslutte proceduren ved at skrive " End Sub ". Tryk på " F5 " for at køre koden.