Question

VBA函数数组参数的问题，用单元格传递不行

我在VBA的模块中插入了一个函数，作用是计算向量的2范数如下
public function fanshu(ParamArray a() as Variant)
dim i as long
fanshu=0
for i=0 to UBound(a())
fanshu=fanshu+a(i)^2
next i
fanshu=Sqr(fanshu)
end function
参数用数组表示能得出正确结果如在单元格输入=fanshu(1,2,3,4)没问题
但在单元格A1到A4分别输入1,2,3,4 在A5中输入=fanshu(A1:A4)却得到错误#VALUE!
请问如何定义参数使得用选中单元格的方式来传递参数？
一楼的果然可以，可这样输入数组又不行了，=fanshu(1,2,3,4)错误#VALUE!怎样两种方式都行？

Answer 1

Public Function fanshu(rng As Range)
Dim Cell As Range
fanshu = 0
For Each Cell In rng
fanshu = fanshu + Cell ^ 2
Next
fanshu = Sqr(fanshu)
End Function