Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/arrays/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Arrays 交错阵列作为vba子系统的参数_Arrays_Vba_Excel_Jagged Arrays - Fatal编程技术网

Arrays 交错阵列作为vba子系统的参数

Arrays 交错阵列作为vba子系统的参数,arrays,vba,excel,jagged-arrays,Arrays,Vba,Excel,Jagged Arrays,我想在vba中创建一个以数组作为参数的子对象。以下代码起作用: Sub phase1State(ByRef arr() As String) 现在,我希望这个参数是一个数组数组,或者是锯齿数组,我该怎么做呢 谢谢 这里的神奇词语是变体。变量数组可以存储和存储变量数组。并且可以作为param传递 Sub Arraycheck() ReDim Arr(3) As String Arr(1) = "1" Arr(2) = "2" Arr(3) = "3" C

我想在vba中创建一个以数组作为参数的子对象。以下代码起作用:

Sub phase1State(ByRef arr() As String) 
现在,我希望这个参数是一个数组数组,或者是锯齿数组,我该怎么做呢


谢谢

这里的神奇词语是变体。变量数组可以存储和存储变量数组。并且可以作为param传递
Sub Arraycheck()
    ReDim Arr(3) As String
    Arr(1) = "1"
    Arr(2) = "2"
    Arr(3) = "3"
    Call parameter(Arr())
End Sub
Sub parameter(getarr() As String)
    Debug.Print getarr(2)
End Sub
Sub test()
    Dim jagged As Variant
    ReDim jagged(1 To 3)
    jagged(1) = Array(1, 2, 3)
    jagged(2) = Array(4, 5, 6)
    jagged(3) = Array(7, 8, 9)
    phase1State jagged
End Sub

Sub phase1State(ByRef arrJagged As Variant)
    Debug.Print arrJagged(2)(2) ' 6
End Sub