07对SUM函数的参数,允许最多255个。如果自己写SUM的Function。请问: 真要写255个参数吗?求和时,只能一个个相加,没有更好方法么? 谢谢!
传入可变数组 Function Test(ParamArray vArr() As
Variant) As
Double Dim cArr As
Variant Dim c As
Variant Dim tmp As
Double For
Each cArr In vArr If IsArray(cArr) Then For
Each c In cArr tmp = tmp + c Next Else tmp = tmp + cArr End
If Next Test = tmp End
Function
Sub ff() Dim arr MsgBox Test(1, 2, Range("a1:a4"), Array(1, 2, 3)) MsgBox Test(1, 2, 3, 4, 5, 6, 1000) End
Sub
|