Een goed geschreven computerprogramma kan de tijd om de ontwikkelaar en de programmeurs die het te handhaven in de toekomst te slaan . In VBA kunt u de Select Case statement te gebruiken als alternatief voor het gebruik " ElseIf " in " If ... Then ... Else " verklaringen . Een programma wordt moeilijk om te lezen als je veel " If ... Then ... Else " verklaringen en kan ook langzamer dan lopen als u Select Case gebruiken . Een Select Case statement evalueert de uitdrukking slechts eenmaal tijdens de " If ... Else ... Dan " verklaringen moeten elke stap te evalueren voordat het uitvoeren van code . Instructies
1 Klik op het tabblad "Ontwikkelaar " , klik op " Visual Basic , " en klik op het menu "Insert " . Klik op " Module " om een nieuwe code -module plaatsen
Start 2 door het creëren van een sub procedure met behulp van de volgende code : . Private Sub CaseSwitch
( )
< br > 3 Maak drie variabelen door het intikken van de volgende regels code : Dim employeePerf
als Geheel Dim salaris
Zoals Valuta Dim Bonus
Zoals Valuta
salaris
= 75000 employeePerf = 3
5
Gebruik de select Case statement naar : Goedkope 4 waarden voor het salaris en employeePerf variabelen definiëren bepalen het bonusbedrag gebaseerd op de prestaties van de werknemer en hun basissalaris . Select Case employeePerf Case 1 bonus
salaris * 0,1
= case 2 , 3 Bonus
= salaris * 0,09 case Goedkope 4 Tot 6 Bonus
= salaris * 0,07 zaak
Is > 8
bonus = 100 Case
Else bonus
= 0 Einde
Selecteer
6 Geef het bonusbedrag via het venster Direct . Debug.Print Bonus
End of 7 van de procedure door het intikken van "End Sub . " Druk op " F5 " om de code uit te voeren .
|
