使用Excel VBA不定数量的参数

  一般说来，过程调用中的参数个数应等于过程说明的参数个数.可用ParamARay关键
    字指明.过程将接受任愈个数的参数。于是可以这样来编写计算总和的Sum函数:
    Dim x As Integer
    Dim y As Integer
    Dim intSum As Integer
    Sub Sum(ParamArray intNums()}
    For Each x In intNums
    y"y+x
    NextintS
    End Sub
    Private Sub Commandl Click()
    Sum 1, 3, 5, 7, 8
    Listl.Addltem intSum
    End Sub