Jagged Arrays как параметры для vba sub

Question

Я хочу создать Sub в vba с параметром Array. Следующий код работает:

Sub phase1State(ByRef arr() As String) 

Теперь я хочу, что параметр представляет собой массив массивов, или зубчатого массива, как я могу это сделать?

Спасибо!

Answer 1

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 

Answer 2

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