Question

vba自定义函数，为什么运行不了？

Public Function ping(ParamArray n())
Dim x, arr()
ReDim arr(0 To UBound(n))
For x = 0 To UBound(n)
If IsNumeric(n(x)) = True Then
arr(x) = n(x)
Else
arr(x) = Left(n(x), Len(n(x) - 1)) / 2
End If
Next x
ping = Application.Average(arr())
End Function

Answer 1

在工作表中调用执行:A2=hanshu(A1)

\\'在代码中调用执行:
Sub diaoyong()
Dim d As Long
d = hanshu(10)
End Sub

Function hanshu(a As Variant) As Long
If Val(a) > 0 Then
hanshu = 1
Else
hanshu = 0
End If
End Function