题目

VBA 自定义函数问题
我想弄个简单的自定义函数练习练习,但是出错了.
Function nihe(x,y,z)
'x:拟合对象
'y:暂时不用
'z:0时显示整数部分,1显示小数部分
Dim a,b,c,m,n,i,j
a = Int(x) '整数部分
b = x - a '小数部分
nihe(x,y,0) = a
nihe(x,y,1) = b
End Function

提问时间：2021-03-03

答案

Function nihe(x, z)
'x:拟合对象
'y:暂时不用

'z:0时显示整数部分,1显示小数部分

Dim a, b, c, m, n, i, j
a = Int(x)    '整数部分
b = x - a     '小数部分
If z = 0 Then
nihe = a
ElseIf z = 1 Then
nihe = b
Else
nihe = "N/A"
End If
End Function