Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Ejemplo Select Case aplicado conocer el premio de la loteria

| Sin comentarios

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.

ejm 1

(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

Deja una respuesta

Los campos requeridos estan marcados con *.