多维数组作为函数参数

问题描述

我试图找到一种方式来传递一个多维数组到我的功能在VBA。我试图谷歌，但没有发现任何东西来帮助我对我的方式。

I'm trying to find a way to pass a multi-dimensional array to my Function in VBA. I tried google but didn't find anything to help me on my way.

这是我的尝试：

Public Function getData(Query()() As String) As Integer

但是，这仅导致从环境的直接错误说，它预计分隔符或'）'。

But that only resulted in a direct error from the enviroment saying it expects a delimiter or ')'.

推荐答案

您不能。

查询（）（）为String 不是有效的前pression 的VBA中。

Query()() as String is not a valid expression in VBA.

这是你将如何创建VBA和如何二维数组编写接受它的函数

This is how you would create a 2D array in VBA and how to write a function that accept it

Sub Main()

    Dim arr(0 To 1, 0 To 1) As String
    arr(0, 0) = "element 0,0"
    arr(1, 0) = "element 1,0"
    arr(0, 1) = "element 0,1"
    arr(1, 1) = "element 1,1"

    Call GetData(arr)

End Sub


Function GetData(myArray() As String) As Integer

End Function

和一个3D +版本

Sub Main()

    Dim arr(0 To 1, 0 To 1, 0 To 1) As String
    arr(0, 0, 0) = "element 0,0,0"
    arr(1, 0, 0) = "element 1,0,0"
    arr(0, 1, 0) = "element 0,1,0"
    arr(0, 1, 1) = "element 0,1,1"
    arr(0, 0, 1) = "element 0,0,1"
    arr(1, 0, 0) = "element 1,0,0"
    arr(1, 1, 0) = "element 1,1,0"
    arr(1, 0, 1) = "element 1,0,1"
    arr(1, 1, 1) = "element 1,1,1"

    Call GetData(arr)

End Sub


Function GetData(myArray() As String) As Integer

End Function

这篇关于多维数组作为函数参数的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！