具有可变数量的数组作为参数的 VBA 函数

Question

有很多关于如何使用 ParamArray 创建具有可变数量参数的 vba 函数的帖子。但是我需要创建一个以可变数量的数组作为参数的函数。也就是说，我的函数将至少有两个数组作为输入，但可能有几个。

函数可能显示为：

MyFunc(A1:A10,B1:B10)

在这种情况下，它将有两个数组作为参数，或者它可能是：

MyFunc(A1:A10,B1:B10,C1:C10,D1:D10)

在这种情况下会有四个数组。VBA 可以处理这种类型的函数吗？如果有，怎么做？

Answer 1

以下是传递可变数量范围的一种方法，如您的问题所示。

Sub MyFunc(ByRef Ranges() As Range)

    Dim ObjCell As Range
    Dim nIndex As Integer
    For nIndex = 0 To UBound(Ranges)
        For Each ObjCell In Ranges(nIndex).Cells
            MsgBox ObjCell.Text
        Next ObjCell
    Next nIndex
End Sub

并调用上面的函数，如下所示。

Public Sub Auto_open()

    Dim Ranges(4) As Range

    Set Ranges(0) = Worksheets("Sheet1").Range("A1:A10")
    Set Ranges(1) = Worksheets("Sheet1").Range("B1:B10")
    Set Ranges(2) = Worksheets("Sheet1").Range("C1:C10")
    Set Ranges(3) = Worksheets("Sheet1").Range("D1:D10")

    MyFunc Ranges

End Sub

希望对您有所帮助！