Cómo utilizar un interruptor de la caja en VBA Excel

Un programa de ordenador bien escrito puede ahorrar tiempo a los desarrolladores y programadores los que la mantienen en el futuro. En VBA puede utilizar la instrucción Select Case como una alternativa al uso de "ElseIf" en "si ... entonces ... Else" declaraciones. Un programa se vuelve difícil de leer cuando se tienen muchas "Si ... Then ... Else" declaraciones y también puede funcionar más lentamente que si se utiliza Select Case. Una instrucción Select Case evalúa la expresión sólo una vez, mientras que el "If ... Else ... entonces" necesitan evaluar cada paso antes de la ejecución de código.

Instrucciones

1 Haga clic en la pestaña "desarrolladores", haga clic en "Visual Basic", y haga clic en el menú "Insertar". Haga clic en "Módulo" para insertar un nuevo módulo de código.

2 Comience por crear un procedimiento sub usando el siguiente código:

Private Sub CaseSwitch ()

3 Crear tres variables escribiendo las siguientes líneas de código:

Dim employeePerf como número entero

salario tenue como moneda

Bono tenue como moneda

4 Definir los valores de las variables salariales y employeePerf:

salario = 75000

employeePerf = 3

5 Utilice la instrucción SELECT CASE para determinar la cantidad del bono basado en el desempeño del empleado y su salario base.

Seleccione la caja employeePerf

Case 1

Bono salarial = 0,1 *

Caso 2, 3

Bono salarial = 0,09 *

Caso 4 a 6

Bono salarial = 0,07 *

Caso es> 8

Bonus = 100

Case Else

Bonus = 0

End Select

6 Mostrar la cantidad del bono usando la ventana Inmediato.

Debug.Print Bono

7 Terminar el procedimiento escribiendo "End Sub". Pulse la tecla "F5" para ejecutar el código.