本文介绍了多维数组作为函数参数的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我试图找到一种方式来传递一个多维数组到我的功能在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更多推荐
多维数组作为函数参数
发布评论