问题 使用Visual Basic的变量参数列表? [重复]


这个问题在这里已有答案:


3466
2018-02-05 20:33


起源

这不是重复,因为VBA不是VB6 - Konstantin Pereiaslov
@KonstantinPereyaslov同意,但他们的语法几乎相同。 - PC Luddite


答案:


在VBA中,函数可以移交未定义数量的参数,因此应该没有问题。

直接在VBA中,你可以定义一个这样的函数:

函数SumAll(ParamArray var()As Variant)As Double
    Dim i As Integer
    Dim tmp As Double
    对于i = LBound(var)到UBound(var)
        如果是IsNumeric(var(i))那么tmp = tmp + var(i)
    下一个
    SumAll = tmp
结束功能

16
2018-02-05 20:39