[已解决]关于参数不定的自定义函数视频第31集

hktkzyz

看了兰色幻想老师的自定义函数教程，有一个模仿sum函数的，但只可以取单个单元格，而不能取一个连续的单元格区域，请教在以下的代码中怎么修改，来实现这功能。
Function cheng(ParamArray n())
Dim temp, k  
   k = 0  
   On Error Resume Next     
         For Each temp In n         
               k = k + temp     
         Next temp     
   cheng = k
End Function

这个我加了个忽略错误，以使其可以只算数值的单元格，而忽略文本型的单元格。
我知道如果是个连续的单元格range，则把range放在数组n（）里，显然不对，但是却不知该怎么做，就能实现像sum一样，即可以使单个单元格，也可以取一个range。

求指教。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-31 14:28

cheng=worksheetfunction.sum(n)

跳转到最佳答案楼层

hwc2ycy

cheng=worksheetfunction.sum(n)

hktkzyz

2楼，你这是直接用的sum啊，不属于自定义函数吧。

hktkzyz

看来不必纠结，还是用工作表的sum函数最好，可能兰老师只是想表达一下自定义函数的意思。