他のプロシージャに配列を引数として渡す
 配列を他のプロシージャとして利用するには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

Excel97,2000



戻る


Excel Word Access VBA! モーグ