Come utilizzare un interruttore di caso in VBA di Excel

January 8

Come utilizzare un interruttore di caso in VBA di Excel


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.

istruzione

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.


Articoli Correlati