2020年04月21日
VBA 配列を戻り値として受け取る
Functionから戻り値を受け取る配列は動的配列にしておく
Sub HairetsuTest()
Dim receiveNo() As Long
receiveNo() = GetNeedData()
MsgBox receiveNo(0) & vbCrLf & receiveNo(1)
End Sub
Function GetNeedData()
Dim sendNo(1) As Long
sendNo(0) = 1000
sendNo(1) = 2000
GetNeedData = sendNo()
End Function
Sub HairetsuTest()
Dim receiveNo() As Long
receiveNo() = GetNeedData()
MsgBox receiveNo(0) & vbCrLf & receiveNo(1)
End Sub
Function GetNeedData()
Dim sendNo(1) As Long
sendNo(0) = 1000
sendNo(1) = 2000
GetNeedData = sendNo()
End Function
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/9792829
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック
