January 8
Un programma per elaboratore ben scritto può risparmiare tempo per lo sviluppatore e programmatori che mantengono in futuro. In VBA è possibile utilizzare l'istruzione Select Case come alternativa all'uso "ElseIf" in "If ... Then ... Else" dichiarazioni. Un programma diventa difficile da leggere quando si hanno molti "If ... Then ... Else" dichiarazioni e può anche eseguire più lento se si utilizza Select Case. Un Select Case valuta l'espressione solo una volta, mentre il "If ... Else ... then" hanno bisogno di valutare ogni passo prima di eseguire il codice.
1 Fare clic sulla scheda "Sviluppatore", fai clic su "Visual Basic" e fare clic sul menu "Inserisci". Fai clic su "Modulo" per inserire un nuovo modulo di codice.
2 Inizia con la creazione di una procedura secondaria utilizzando il seguente codice:
Private Sub CaseSwitch ()
3 Creare tre variabili digitando le seguenti righe di codice:
Dim employeePerf As Integer
stipendio fioco come valuta
Bonus fioco come valuta
4 Definire i valori per le variabili di stipendio e employeePerf:
stipendio = 75000
employeePerf = 3
5 Utilizzare l'istruzione caso di selezione per determinare l'importo del bonus in base alle prestazioni del dipendente e il loro stipendio base.
Select Case employeePerf
Case 1
Bonus = stipendio * 0.1
Caso 2, 3
Bonus = stipendio * 0,09
Caso 4 a 6
Bonus = stipendio * 0,07
Caso è> 8
Bonus = 100
Case Else
Bonus = 0
End Select
6 Visualizzare l'importo del bonus utilizzando la finestra immediata.
Bonus Debug.Print
7 Terminare la procedura digitando "End Sub". Premere il tasto "F5" per eseguire il codice.