En lugar de múltiples declaraciones If Then en Excel VBA, puedes usar el Seleccionar estructura de caso.
Situación:
Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:
1. Primero, declare dos variables. Una variable de tipo Integer denominada puntuación y una variable de tipo Cadena denominada resultado.
Dim score As Integer, result As String
2. Inicializamos la variable score con el valor de la celda A1.
puntuación = Rango ("A1"). Valor
3. Agregue la estructura Seleccionar caso.
Seleccionar puntuación de caso
El caso es> = 80
resultado = "muy bueno"
El caso es> = 70
resultado = "bueno"
El caso es> = 60
resultado = "suficiente"
Caso otro
resultado = "insuficiente"
Finalizar Seleccionar
Explicación: Excel VBA utiliza el valor de la puntuación de la variable para probar cada declaración de caso posterior para ver si se debe ejecutar el código bajo la declaración de caso.
4. Escriba el valor del resultado de la variable en la celda B1.
Rango ("B1"). Valor = resultado
5. Pruebe el programa.
Resultado al hacer clic en el botón de comando en la hoja:
Nota: Excel VBA ejecuta el código bajo la segunda instrucción Case para todos los valores mayores o iguales a 70 y menores a 80.
