VBA 自定义函数问题
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/07 18:51:31
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
我想弄个简单的自定义函数练习练习,但是出错了.
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
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
'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