El comando VBA “Select Case” es una instrucción de decisión múltiple. Con este comando podemos indicarle al programa de que se están usando o evaluando diversas condiciones simultáneamente. Es decir, la variable puede cumplir ciertas condiciones que nosotros definamos, y en función a la condición que cumpla, se ejecutarán las instrucciones correspondientes a tal condición. Entonces, la macro estaría comparando el valor de la variable en relación a un conjunto de constantes, y cuando se halle una igualdad se ejecutarían las instrucciones correspondientes a la constante. El valor de la variable puede ser un número o un string, y puede ser evaluada de acuerdo a criterios de coincidencia, intervalo y comparación. Fundamentalmente, existen dos tipos de comandos condicionales: El “Select Case” y el “If..then..else”. El contraste entre estos dos comandos es que con el “Select Case” podemos utilizar varios casos, mientras que con el “If..then..else” solo se puede utilizar dos (la condición y “en otro caso”).
Ejemplo:
En el presente ejemplo se tratará de clasificar alfabéticamente las notas de un examen de puntaje 100. Para ello se usa el siguiente criterio:
Nota A: 81 a 100
Nota B: 61 a 80
Nota C: 41 A 60
Nota D: 21 a 40
Nota E: 0 a 20
Se utilizará la siguiente macro
Sub SelectCase()
For i = 3 To 7
a = Cells(i, 2).Value
Select Case a
Case 0 to 20
Cells(i, 3).Value = "E"
Case 21 To 40
Cells(i, 3).Value = "D"
Case 41 To 60
Cells(i, 3).Value = "C"
Case 61 To 80
Cells(i, 3).Value = "B"
Case 81 To 100
Cells(i, 3).Value = "A"
End Select
Next i
End Sub
Se utiliza el “for next” para que se evalúen los puntajes de todos los alumnos, los cuales se encuentran en la columna 2 desde la fila 3 hasta la 7. Luego definimos la estructura "select case" para los 5 casos, y de esta manera se asignarán las notas de los alumnos en la columna 3 (en la filas correspondientes a cada alumno).
Adjunto el archivo: Select Case aplicado a la clasificacion alfabetica de notas
Elaborado por: Reyes Castillo, José Miguel
18/01/2018 a las 5:47 pm
tengo una duda no soy experto en prograacion . una hoja en donde al ingresar en una celda m3 o m cambia la forma de de la formula y ademas los formatos
ejemplo :
cambio aqui
cobro
m3 145 100 45 $18.00 $ 810
cobro
M ene/17 Abr/18 16 $90.00 $1440
formulas:
m3 UL - La =consumo costo m3 total
texto numerico num num moneda monedas
calor de celdas
m sifecha sifecha mese consumo costo total
texto fecha fecha numerico moneda moneda
al cambiar m3 o M cambiar la formulas y los formatos alguien me puede ayudar.
19/05/2018 a las 5:49 pm
buenas tardes maestro muchas gracias funciona excelente