Ejemplos de Select case en VBA

La estructura Select en VBA es importante porque nos permite tener un control de las instrucciones agrupándolas, la sintaxis a emplear es como sigue:

Select [ Case ] expresión a evaluar
[ Case lista de expresiones
[Instrucciones a ejecutar] ]
[ Case Else
[ Instrucciones a ejecutar en el caso del else] ]
End Select

Primero tenemos la expresión a evaluar, en esta de debe evaluarse un dato el cual puede encontrarse dentro de la lista de expresiones.

Así podríamos encontrar mostrar el siguiente ejemplo de Select Case en VBA

Sub EjemploSelectCase()
Dim numero As Integer
numero = 8
Select Case numero
Case 1 To 5
     MsgBox “El número esta entre 1 y 5 “
Case 6, 7, 8
     MsgBox “El número esta entre 6, 7 y 8 “
Case 9 To 10
     MsgBox “El número esta entre 9 y 10 “
Case Else
     MsgBox “El número no esta entre 1 y 10 “
End Select

End Sub

Dependiendo del valor de la variable “numero” se ejecutará el bloque correspondiente

La función Select Case nos permite poder escoger de entre más de dos alternativas o instrucciones, a diferencia de la función If. A continuación se les invita a revisar 5 ejemplos en donde se puede aplica esta función:

Por ejemplo se plantea un caso en el que se desea determinar para el procesamiento de  una encuesta en particular el nivel socio económico al que pertenece una persona de acuerdo con su ingreso mensual. Para esto se creo una macro con la instrucción descrita anteriormente, SELECT CASE, en la que se establecen NSE A,  B+, B-, C+, C- y D. La macro empieza ejecutarse al hacer click en el botón que aparece en la hoja1 como muestra la siguiente imagen.  

Luego de hacer click aparece lo siguiente