Evaluación de VBA: Estructuras de Selección Múltiple

Resuelve los siguientes 10 ejercicios programando las macros requeridas en una sola hoja de Excel.

If - ElseIfEjercicio 1: Presión Arterial (Filas 1-3)

Usa If...ElseIf. Lee A2: <90 = "Baja", <120 = "Normal", >=120 = "Alta". Escribe en B2.

AB
1Presión SistólicaDiagnóstico
2115[ B2 ]
3135[ B3 ]
If - ElseIfEjercicio 2: Clasificación de Vehículo (Filas 5-7 | Fila 4 libre)

Usa If...ElseIf. Lee A6: <1000 = "Urbano", <2000 = "Sedán", >=2000 = "Camioneta". Escribe en B6.

AB
5Cilindrada (cc)Tipo
61600[ B6 ]
72500[ B7 ]
If - ElseIfEjercicio 3: Estado de Inventario (Filas 9-11 | Fila 8 libre)

Usa If...ElseIf. Lee A10: <5 = "Reorden Urgente", <20 = "Stock Bajo", >=20 = "Suficiente". Escribe en B10.

AB
9Stock UnidadesAlerta
103[ B10 ]
1115[ B11 ]
If - ElseIfEjercicio 4: Tipo de Triángulo por Lados (Filas 13-15 | Fila 12 libre)

Usa If...ElseIf. Lee A14: 3 = "Equilátero", 2 = "Isósceles", 0 = "Escaleno". Escribe en B14.

AB
13Lados IgualesTipo
143[ B14 ]
152[ B15 ]
If - ElseIfEjercicio 5: Calidad de Aire (Filas 17-19 | Fila 16 libre)

Usa If...ElseIf. Lee A18: <50 = "Buena", <100 = "Moderada", >=100 = "Dañina". Escribe en B18.

AB
17Índice AQICalidad Aire
1842[ B18 ]
19115[ B19 ]
Select CaseEjercicio 6: Idioma Preferido (Filas 21-23 | Fila 20 libre)

Usa Select Case. Lee A22: "ES"="Español", "EN"="Inglés", "FR"="Francés". Escribe en B22.

AB
21Código IdiomaIdioma
22EN[ B22 ]
23FR[ B23 ]
Select CaseEjercicio 7: Días de la Semana Laborales (Filas 25-27 | Fila 24 libre)

Usa Select Case agrupando. Lee A26: "Lun","Mar","Mié","Jue","Vie"="Laboral"; "Sáb","Dom"="Descanso". Escribe en B26.

AB
25Día Abrev.Estatus
26Mar[ B26 ]
27Dom[ B27 ]
Select CaseEjercicio 8: Rango de Horas Trabajadas (Filas 29-31 | Fila 28 libre)

Usa Select Case con To. Lee A30: 1 To 20="Medio Tiempo", 21 To 40="Tiempo Completo". Escribe en B30.

AB
29Horas/SemanaJornada
3018[ B30 ]
3140[ B31 ]
Select CaseEjercicio 9: Saldo de Cuenta (Filas 33-35 | Fila 32 libre)

Usa Select Case con Is. Lee A34: Is < 0="Sobregirado", Is == 0="Cero", Is > 0="Positivo". Escribe en B34.

AB
33Saldo ($)Estado Cuenta
34-50[ B34 ]
351200[ B35 ]
Select CaseEjercicio 10: Medio de Pago (Filas 37-39 | Fila 36 libre)

Usa Select Case. Lee A38: 1="Efectivo", 2="Tarjeta", 3="Transferencia". Escribe en B38.

AB
37Código PagoMétodo
381[ B38 ]
393[ B39 ]