SELECT CASE anidado.

En una ocasión expliqué mediante un ejemplo sencillo como emplear la instrucción SELECT CASE, hoy complicaremos un poco más esta instrucción utilizándola en varias ocasiones para anidar diferentes condicionales sobre una única función.
El problema planteado es el siguiente:

...en una base de datos de personas, el objetivo es que Excel diga la clasificacion del porcentaje de grasa de una persona, el cual se obtiene por un numero que da una balanza. El problema es que son muchas condicionales! Si es mujer de 18-39 años: 0-21 bajo en grasa;22-33 normal;34-39 alto en grasa;más de 39 obesidad. Si es mujer de 40-59 años:0-23 bajo en grasa;24-34 normal;35-40 alto en grasa; más de 40 obesidad. Si es mujer de 60-69 años: 0-24 bajo en grasa;25-36 normal;37-42 alto en grasa; más de 42 obesidad. Si es hombre de 18-39 años: 0-8 bajo en grasa;9-20 normal;21-25 alto en grasa;más de 25 obesidad Si es hombre de 40-59 años: 0-11 bajo en grasa;12-22 normal;23-28 alto en grasa;màs de 28 obesidad Si es hombre de 60-99 años: 0-13 bajo en grasa;13-25 saludable;26-30 alto en grasa; más de 30 obesidad.

Si bien podríamos optar por desarrollar la fórmula anidando repetidamente la función SI condicional, es cierto que sólo lo podríamos implementar con versiones superiores a Excel 2003, ya que en esta o anteriores nuesto máximo de anidaciones era de siete...

Recordemos que para crear una funcíon personalizada o UDF debemos acceder al Editor de VBA presionando Alt+F11, y ya dentro del Editor insertar un modulo (Menú Insertar > Modulo), haciendo doble clic en el módulo copiaremos el siguiente código:

'creamos una función con tres variables - Sexo, Edad y % grasa
Public Function Grasa1(sexo, edad, Porcgra)
Select Case sexo
'definimos categorías para mujeres
Case Is = "M"
    Select Case edad
    Case 18 To 39
        Select Case Porcgra
        Case 0 To 21: Grasa1 = "bajo en grasa"
        Case 22 To 33: Grasa1 = "normal en grasa"
        Case 34 To 39: Grasa1 = "alto en grasa"
        Case Is > 39: Grasa1 = "obesidad"
        End Select
    Case 40 To 59
        Select Case Porcgra
        Case 0 To 23: Grasa1 = "bajo en grasa"
        Case 24 To 34: Grasa1 = "normal en grasa"
        Case 35 To 40: Grasa1 = "alto en grasa"
        Case Is > 40: Grasa1 = "obesidad"
        End Select
    Case 60 To 99
        Select Case Porcgra
        Case 0 To 24: Grasa1 = "bajo en grasa"
        Case 25 To 36: Grasa1 = "normal en grasa"
        Case 37 To 42: Grasa1 = "alto en grasa"
        Case Is > 42: Grasa1 = "obesidad"
        End Select
    End Select
'lo mismo para hombres
Case Is = "H"
    Select Case edad
    Case 18 To 39
        Select Case Porcgra
        Case 0 To 8: Grasa1 = "bajo en grasa"
        Case 9 To 20: Grasa1 = "normal en grasa"
        Case 21 To 25: Grasa1 = "alto en grasa"
        Case Is > 25: Grasa1 = "obesidad"
        End Select
    Case 40 To 59
        Select Case Porcgra
        Case 0 To 11: Grasa1 = "bajo en grasa"
        Case 12 To 22: Grasa1 = "normal en grasa"
        Case 23 To 28: Grasa1 = "alto en grasa"
        Case Is > 28: Grasa1 = "obesidad"
        End Select
    Case 60 To 99
        Select Case Porcgra
        Case 0 To 13: Grasa1 = "bajo en grasa"
        Case 14 To 25: Grasa1 = "normal en grasa"
        Case 26 To 30: Grasa1 = "alto en grasa"
        Case Is > 30: Grasa1 = "obesidad"
        End Select
    End Select
End Select
End Function

Ya podremos utilizar nuestra función Grasa1 en nuestra Hoja de cálculo, sobre tres celdas
=GRASA1(sexo; edad; %grasa)