[已解决]Function的参数太多怎么办

爱疯

07对SUM函数的参数，允许最多255个。如果自己写SUM的Function。请问：

真要写255个参数吗？求和时，只能一个个相加，没有更好方法么？

谢谢！

最佳答案

月排行榜 / 总排行榜

吕?布

2010-3-25 11:22

传入可变数组

 

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

跳转到最佳答案楼层

吕?布

传入可变数组

 

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

爱疯

谢谢吕布！

学习

[em04]

hhzjxss

好![em17]

zsd5237

学习[em02][em02]

小志

学习吕布。。。。高。。