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: Cobro de Envío (Filas 1-3)

Usa If...ElseIf. Lee A2: <2 = "$5", <10 = "$15", >=10 = "$30". Escribe en B2.

If - ElseIfEjercicio 2: Tarifa de Parqueadero (Filas 5-7 | Fila 4 libre)

Usa If...ElseIf. Lee A6: <1 = "Gratis", <4 = "$10", >=4 = "$25". Escribe el resultado en B6.

If - ElseIfEjercicio 3: Nivel de Ruido (Filas 9-11 | Fila 8 libre)

Usa If...ElseIf. Lee A10: >85 = "Peligroso", >50 = "Moderado", <=50 = "Bajo". Escribe en B10.

If - ElseIfEjercicio 4: Bonificación por Ventas (Filas 13-15 | Fila 12 libre)

Usa If...ElseIf. Lee A14: >50 = "$500", >20 = "$200", <=20 = "$0". Escribe en B14.

If - ElseIfEjercicio 5: Consumo Eléctrico (Filas 17-19 | Fila 16 libre)

Usa If...ElseIf. Lee A18: >500 = "Alto Consumo", >200 = "Normal", <=200 = "Bajo Consumo". Escribe en B18.

Select CaseEjercicio 6: Roles de Sistema (Filas 21-23 | Fila 20 libre)

Usa Select Case. Lee A22: "ADM"="Admin", "USR"="Usuario", "GST"="Invitado". Escribe en B22.

Select CaseEjercicio 7: Días Festivos del Mes (Filas 25-27 | Fila 24 libre)

Usa Select Case agrupando opciones. Lee A26: 1, 5, 12="Tiene Festivo"; otro="Mes Regular". Escribe en B26.

Select CaseEjercicio 8: Puntos de Juego (Filas 29-31 | Fila 28 libre)

Usa Select Case con To. Lee A30: 1 To 100="Bronce", 101 To 500="Plata", 501 To 1000="Oro". Escribe en B30.

Select CaseEjercicio 9: Evaluación de Descuento (Filas 33-35 | Fila 32 libre)

Usa Select Case con Is. Lee A34: Is > 1000="30%", Is >= 500="15%", Is < 500="5%". Escribe en B34.

Select CaseEjercicio 10: Canal de Atención (Filas 37-39 | Fila 36 libre)

Usa Select Case. Lee A38: "WEB"="Digital", "TEL"="Telefónico", "PRES"="Presencial". Escribe en B38.