配列を他のプロシージャとして利用するにはPublic変数やモジュールレベル変数
を利用するほか、引数として渡すことが可能です。
以下のサンプルでは受けてのプロシージャで・・・
プロシージャ名(配列()AS データ型)
として他プロシージャの引数に配列を渡します。PassArgプロシージャを実行し、
このなかで呼び出されるRecArgプロシージャで配列の内容を確認します。
’■渡す側(呼び出し元)■
Sub PassArg()
Dim i As Integer
Dim MyArray(3) As String
For i = LBound(MyArray) To UBound(MyArray)
MyArray(i) = "値" & i
Next i
Call RecArg(MyArray)
End Sub
’■受け手■
Sub RecArg(MyArg() As String)
Dim j As Integer
Dim Msg As String
For j = LBound(MyArg) To UBound(MyArg)
Msg = Msg & MyArg(j) & vbCrLf
Next j
MsgBox Msg
End Sub
|