Si en lugar de múltiples declaraciones después en Excel VBA, puede utilizar la estructura Select Case.

Situación:

Select Case in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declarar dos variables. Una variable de tipo Entero puntuación llamado y una variable de tipo String llamado resultado.

Dim score As Integer, result As String

  1. inicializar la puntuación variable con el valor de la celda A1.

score = Range("A1").Value

  1. Añadir la estructura Select Case.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

Explicación: Excel VBA utiliza el valor de la variable score para probar cada instrucción Case posterior para ver si el código bajo la instrucción Case debe ser ejecutado.

  1. Escribir el valor de la variable resultado a la celda B1.

Range("B1").Value = result

Prueba 5. el programa.

Como resultado al hacer clic en el botón de comando en la hoja:

Select Case Result

Nota: Excel VBA ejecuta el código en la segunda instrucción Case para todos los valores mayores o iguales a 70 e inferior a 80.