将未定义数量的参数传递给VBA函数[重复]

Question

我需要从 VBA 调用一个 excel 函数，并在函数的 and 处调用。

我不知道我有多少可变参数（var1 到...）。

有没有办法转换数组，并将其作为参数应用...？ ：

Application.Run("MyFunct", fixParam1, fixParam2, var1, var2 ... varx)

我虽然最终在 python 中有类似 kwargs 的东西...

Application.run("myFunct", fixParam1, fixParam2, kwargs(myArray))

也许是 paramarray 的东西？

mySub( fixParam1, fixParam2, ParamArray var() as Variant)
    Application.run([here I'm not sure...??])

Answer 1

定义一个以数组为参数的函数，如下所示：

Function testFunction(args())

然后你可以将一个数组传递给Function：

testFunction myArray

Answer 2

如果您可以更改myFunct 来处理它，您可以传递一个数组。 http://www.cpearson.com/excel/passingandreturningarrays.htm

Application.run("myFunct", fixParam1, fixParam2, myArray)

所以我推断myFunct 接受这样的参数：fixParam1, fixParam2, [var1], [var2], ... 括号表示可选参数。所以你可能有许多可选参数。

选项 1 所以创建一个包含所有参数的数组并像这样调用它：

Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), _
    myArray(2), myArray(3), myArray(4), myArray(5))

希望被调用的函数可以处理空白输入。

选项 2 如果myFunct 无法处理额外的参数，您可能需要执行以下操作：

Select Case argCount
    Case 1
        Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0))
    Case 2
        Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1))
    Case 3
        Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), myArray(2))
    Case 4
        Call Application.Run("MyFunct", fixParam1, fixParam2, myArray(0), myArray(1), myArray(2), myArray(3))
End Select

不漂亮但有效。

Answer 3

所以很简单。试试这个函数和子来测试：

Function OneLine(ByVal f As Variant, ParamArray V() As Variant) As Variant
    Dim i As Long, ValToReturn As Variant
    For i = 0 To UBound(V, 1)
        V(i) = f
        If IsNumeric(V(i)) Then ValToReturn = ValToReturn + V(I)
    Next I
    OneLine = ValToReturn
End Function

Sub TestOnLineFunction()
    Dim X, a, b, c, d, e, f, g, h, i, j, k, TMP
    Dim Y(1 To 7, 8 To 12)

    x = 125
    Y(5, 10) = "Anything you want"
    Call OneLine(X, a, b, c, d, e)
    MsgBox d ' will show 125
    Call OneLine(Y, a, b, c, d, e, f, g, h, i, j, k)
    MsgBox h(5, 10) ' will show string:"Anything you want"
    'if You want to use Application.Run, do the same, but in this
    'case will not take V variables ByRef because Run method is always taking ByVal
    'So Sub do what is it doing but Function should return something in this case
    X = 888
    TMP = Application.Run("OneLine", X, a, b, c, d, e, f, g, h, i)
    MsgBox TMP
End Sub

函数OneLine 将设置F 变量后所有传递的值等于F 变量。 这个 F 变量可以是任何值，甚至可以是多维数组。您可以在 F 之后传递任意数量的可用变量，但始终作为 Variant 类型。 V 将始终通过ByRef。如您所见，OneLine 函数无法返回任何内容，因此您需要 Call 它，它将更改此 ParamArray V 中的所有变量。 如果你想使用 Application.Run 方法做同样的事情，但是这样函数应该返回一些东西，因为这个 Run 方法总是使用变量 ByVal。因此，如您所见，在这种情况下使用 Run 方法是没有意义的。如果您运行 Subroutine，行为将是相同的。 Sub 会做它正在做的事情，它会接受尽可能多的变量，但你应该记住 Application.Run 有 30 个变量的限制。