Windows

2016年4月7日 at 6:59 PM

Accsss VBAで、配列変数をPublicで定義したい

Access VBAに限らず、VBAで配列変数をPublicで定義することは出来ません。

しかし、Private(Dim)では定義することが出来るので、Publicなプロシージャとして公開してしまえば同じようなことが出来ます。

 

●呼び出し元

Sub PassArg()
    Dim i As Long
    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 Long
    Dim Msg As String
    
    For j = LBound(myArg) To UBound(myArg)
        Msg = Msg & myArg(j) & vbCrLf
    Next j
    
    MsgBox Msg
End Sub


 

Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>



こちらの関連記事もオススメ!