如何使用数组值作为函数参数

Question

我想将数组的值传递给接受这些参数的函数。当我根据提供的代码执行此操作时，我收到一条错误消息，告诉我：“ByRef 参数类型不匹配”我知道我的数组被声明为变体，但我传递给它的值来自函数的适当数据类型接受基于 VarType(arrValues(1 - 3)) 那么代码应该怎么改？

这是我稍后将使用的代码的简化版本，其中函数将实际返回一些有用的东西，并将接收更多参数。

Sub CallFunctionWithArray()
    Dim arrValues(1 To 3) As Variant

    arrValues(1) = "One"
    arrValues(2) = 19 - 11 - 2019
    arrValues(3) = 25

    Call ReturnValuesOfArray(arrValues(1), arrValues(2), arrValues(3))

End Sub

Function ReturnValuesOfArray(ValueOne As String, ValueTwo As Date, ValueThree As Integer)
    Debug.Print ValueOne
    Debug.Print ValueTwo
    Debug.Print ValueThree
End Function

在这种情况下，希望代码运行并将传递的数组的值打印到直接窗口。

Answer 1

我不确定您想要实现什么，但对于您发布的代码，您需要在函数标题中添加 ByVal 关键字，就像这样

Function ReturnValuesOfArray(ByVal ValueOne As String, ByVal ValueTwo As Date, ByVal ValueThree As Integer)
    Debug.Print ValueOne
    Debug.Print ValueTwo
    Debug.Print ValueThree
End Function

Answer 2

您构建您的数组并将其作为 Variant 传递..
看看这里：

Private Sub Test()
Dim s(2) As String
s(0) = "X"
s(1) = "Y"
s(2) = "Z"
displayArr s

End Sub
Private Sub displayArr(ArrayInput As Variant)
For i = LBound(ArrayInput) To UBound(ArrayInput)
Debug.Print ArrayInput(i)
Next
End Sub