VBA 自定义函数问题我想弄个简单的自定义函数练习练习,但是出错了.Function nihe(x,y,z)'x:拟合对象'y:暂_其他解答

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

人气：331 ℃　时间：2020-06-14 08:51:11

解答

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