Select Case
El Select Case es una instrucción de selección múltiple, en la que se tienen muchos procedimientos a ejecutar, pero solo se realiza uno que depende de el valor de una constante, cuando el programa lee el valor de la constante ubica cual de todas las instrucciones específicas debe realizar. También se le puede asignar una tarea para el caso el programa no encuentre el valor de esta constante.
Sintaxis:
Select Case "Valor constante" ---> ya definido anteriormente, puede ser un número o variable tipo string
Case "Valor 1" : (Aquí se define el procedimiento que se hará en caso "Valor constante" = "Valor 1")
Case "Valor 2" : (Se define el procedimiento para "Valor constante" = "Valor 2"
Case "Valor 3" : (Se define procedimiento ...)
.
.
.
Case Else : (Se define el procedimiento en caso "Valor constante" sea diferente a todos los definidos anteriormente).
End Select
Ejemplo:
Se desea saber el premio obtenido al jugar la loteria.
(Para mayor visualización de la imagen, hacer click en la misma)
En VBA:
Tenemos el codigo:
Sub conocer_premio()
Dim nro_aciertos As Integer
Dim premio As Variant
nro_aciertos = Cells(5, 1)
Select Case nro_aciertos
Case 0: premio = 0
Case 1: premio = "2 jugadas por 1"
Case 3: premio = "Juego gratis"
Case 4: premio = 100
Case 5: premio = 3000
Case 6: premio = 1000000
End Select
Cells(5, 2) = premio
End Sub
---> Esto da como resultado, para el valor de A5, 100 soles.
Elaborado por: Kendy Mamani Aliaga