[已解决]求教关于自定义函数

sunshinegg

我想自定义一个函数，这个函数取名叫f.
比如f=STDEV(A1:B2)/AVERAGE(A1:B2)，"A1:B2"是选区

我先尝试着用 宏 试了一下。脚本如下
Sub test()
Dim arr
arr = Selection
Range("f1") = WorksheetFunction.StDev(arr) / WorksheetFunction.Average(arr)
End Sub
可以成功，如下图

然后我想，用自定义函数来实现这个功能
Function f(ParamArray a())
f = WorksheetFunction.StDev(a) / WorksheetFunction.Average(a)
End Function

但是不行，请问我错在哪里？ paramarry不也是一个数组吗？ 为什么同样是数组这样却不行？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-1-29 13:45

1. Function f(a As Range)
   
2. f = WorksheetFunction.StDev(a) / WorksheetFunction.Average(a)
   
3. End Function

复制代码

跳转到最佳答案楼层

hwc2ycy

那是因为arr赋值后已经转换成数组类型了，直接声明成range类型吧。

hwc2ycy

1. Function f(a As Range)
   
2. f = WorksheetFunction.StDev(a) / WorksheetFunction.Average(a)
   
3. End Function

复制代码

sunshinegg

hwc2ycy 发表于 2015-1-29 13:45

太感谢了

不过我还有个疑问能帮我再看一下吗？
http://www.excelpx.com/forum.php ... p;extra=#pid3830574
拜托啦 看一下 谢谢