custom if() in vba

[lezawang]

Hi I want to create my own if() function so I did the following which did not work. Any idea would be very much appreciated

Function myif(x)

myif = application.IF(x>80,"a",IF(x>60,"b",IF(x>50,"c","f")))

End Function

 

[smozgur]

Normally you would do this by using VBA If statement.

Function myif(x)
    If x > 80 Then
        myif = "a"
    ElseIf x > 60 Then
        myif = "b"
    ElseIf x > 50 Then
        myif = "c"
    Else
        myif = "f"
    End If
End Function

Or Select Case similarly.

However, if you really need one liner, you can use IIf function instead (even readability is really terrible and not preferable):

Function myif(x)
    myif = IIf(x > 80, "a", IIf(x > 60, "b", IIf(x > 50, "c", "f")))
End Function

Hope it helps.

Suat

 

[rpaulson]

another option using case

Function myif(x)

Select Case x
Case Is > 80
myif = "a"

Case Is > 60
myif = "b"

Case Is > 50
myif = "c"

Case Else
myif = "f"
End Select

End Function

Ross