[求助]自定义函数ＩＦ判断总是请教

ychexcel

ＶＢＡ初学，现有一问题请教，

编写一个自定义函数，实现功能当函数引用单元格的数据大于０，则显示＂大于零＂，论推．请指教．谢谢！

shizx98

Function rg(cel As Range)
    Select Case cel.Value
        Case 5
            rg = "数据等于 5"
        Case Is > 0
            rg = "数据大于零"
    End Select
End Function

ychexcel

谢谢！可能是我表达的不是很清楚，我要的是下面这个：

Function i(x As Range)
If x > 0 Then i = "大于零"
If x < 0 Then i = "小于零"
If x = 0 Then i = "等于零"
End Function

水无形

恩，自定义函数还不会写，呵呵，现在应该会了，试试看，呵呵。