Question

通过EXCEL VBA自定义了一个函数，无法把数组传入到函数中。

Function MyTest( Arr() as Variant)MyTest=Arr
End Function
以上这个函数，通过vba其他过程调用它，可以正常返回结果。但是，当我把这个函数当作公共函数，在excel中插入时，就会出错。
经过我测试，发现要把Arr后面的括号去掉，就好了。为什么呢？
我想把数组传入到自定义函数中，既可以如上图所示框选一个数组区域来传递数组，也可以在对话框中输入数字作为参数传到函数里。测试情况：Function MyTest(Arr as range)——可以框选区域做参数，但是不支持手工填参数Function MyTest(Arr())——不可以框选区域做参数，只能手工填参数必须带大括号例如{1,2,3}Function MyTest(Arr)——可以框选区域做参数，可以手工填参数必须带大括号例如{1,2,3}要求：可以框选区域做参数，且支持手工输入参数，且无需使用大括号。像系统函数sum一样





Answer 1

只能传 单元格，然后转数组。如下 

Function MyTest(rng As Range)
    Dim arr() As Variant
   Set arr = rng.Value
    MyTest = UBound(arr)
End Function

追问

你这个方法应该可以，但我问的是为什么不能直接传数组？另外，看我的图，假如我在函数对话框中不用区域引用，而是直接输入几个数字作为数组，那么，你给的range这个方法恐怕是不行吧？

追答

自定义函数传入什么内容，主要取决于你函数定义是的参数
你画面上的意思是选择了一片单元格区域，因此要想函数可以被调用，参数只能定义成MyTest(rng As Range)
假如你需要传入数组，你那种写法是正确的，只不过是你画面参数输入的部正确。
调用时应该=MyTest(此处应该是一个数组，而不是单元格区域)

追问

“调用时应该=MyTest(此处应该是一个数组，而不是单元格区域)”
这个方法是vba调用，没问题，我验证过。但我希望能在excel的sheet页中作为一个公共函数来使用。当然，我这里把核心计算都省略了。
你给的方法是可行的，但不完善。如果我不是框选区域，而是直接输入数组1，2，3，那么函数又没法运行了。对一个普通的excel函数，引用区域或者直接输入参数都是可通行的。
看我问题的完善

追答

你可以在写一个将单元格区域转换成数组的函数。例如

Function RngConvArray(rng As Range)

    Dim arr() As Variant
    Set arr = rng.Value
    RngConvArray = arr    
End Function

然后你可以在单元格里直接用你写的函数

=MyTest(RngConvArray("A1:A10"))

追问

请看sum函数，无论框选区域输入参数，还是手工输入1,2,3作参数都可以正常求和。我要的是这种效果。

追答

你想实现的要求，其实就是函数重载。但是vba是面向过程的编程，没有函数重载的功能。所以没法实现你的要求。不过你可以把函数参数用Optional定义试一下。参数前面加上Optional，意思是此参数允许不输入。

MyTest(Optional rng As Range,Optional arr As Variant)

Answer 2

这要用ParamArray的。

追问

试过，可以，但是参数一多，要逐个输入，所以不可行。