En lugar de las múltiples sentencias If Then en Excel VBA , se puede utilizar la estructura Select Case .
Situación:
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declare dos variables. Una variable de tipo Entero llamada puntuación y una variable de tipo Cadena llamada resultado.
Dim score como entero, resultado como cuerda
2. Iniciamos la puntuación variable con el valor de la celda A1.
puntuación = Rango («A1»).Valor
3. Añade la estructura de Seleccionar Caso.
Selecciona la puntuación del caso El caso es… 80 resultado = «muy bueno» El caso es… 70 resultado = «bueno» El caso es… 60 resultado = «suficiente» Caso aparte… resultado = «insuficiente» Finalizar Seleccionar
Explicación: Excel VBA utiliza el valor de la puntuación variable para probar cada declaración de caso posterior para ver si el código de la declaración de caso debe ser ejecutado.
4. Escriba el valor del resultado de la variable en la celda B1.
Rango(«B1»).Valor = resultado
5. Pruebe el programa.
Resultado cuando se hace clic en el botón de comando de la hoja:
Nota: Excel VBA ejecuta el código bajo la segunda declaración del caso para todos los valores mayores o iguales a 70 y menores de 80.