Mostrar un texto según el valor ingresado.

Una compañera de trabajo tenia un problema y me pidió ayuda para resolverlo.

Ella haría una evaluación, y según los resultados, mostraría un texto en una hoja de Excel.

• De 0 a 10 BAJO
• De 11 a 21 PROMEDIO BAJO
• De 22 a 32 PROMEDIO
• De 33 a 43 PROMEDIO ALTO
• De 44 a 52 ALTO

Era una aplicación de la función SI(lógica,valor positivo, valor negativo), pero anidada 5 veces lo que le llevaba a errores y en caso quisiera aumentar el número de rangos, se complicaría más.

Así que cree un modulo Visual Basic, en el libro de Excel y escribí esta función:

Public Function cmCategoria(ByVal Valor As Integer) As String

ARESULTADO = ""




Select Case Valor
Case 0 To 10
ARESULTADO = "BAJO"
Case 11 To 21
ARESULTADO = "PROMEDIO BAJO"
Case 22 To 32
ARESULTADO = "PROMEDIO"
Case 33 To 43
ARESULTADO = "PROMEDIO ALTO"
Case 44 To 52
ARESULTADO = "ALTO"
End Select

cmCategoria = ARESULTADO


End Function


Mi amiga, pudo utilizar esta función como si fuera una de las que viene integrada con el Excel y su mantenimiento le es mas facil.