多维数组作为函数参数

本文介绍了多维数组作为函数参数的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我试图找到一种方式来传递一个多维数组到我的功能在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