En lugar de múltiples declaraciones If Then en Excel VBA , puede usar la estructura Seleccionar 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.

score = Range("A1").Value

3. Agregue la estructura Seleccionar caso.

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 usa 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.

Range("B1").Value = result

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.

3/9 Completado! Obtenga más información sobre las declaraciones if then>
Siguiente capítulo: bucle