項目

　関数の戻り値を配列にする

概要

　自作関数の戻り値を配列にします。戻り値の型にバリアント型を指定する方法と
　型を指定する方法があります。

方法

Option Compare Database
Option Explicit

'--------------------------------------
'ReturnArrayValueTest関数呼出
'--------------------------------------
Function CallReturnArrayValueTest()

    Dim rt  As Variant
    Dim i   As Long

    '①関数呼出++++++++++++++++++++++++++++++++++++
    rt = ReturnArrayValueTest1

    Debug.Print "■①結果■"

    'イミディエイトウィンドウへ出力
    For i = LBound(rt) To UBound(rt)
        Debug.Print rt(i)
    Next i

    '②関数呼出++++++++++++++++++++++++++++++++++++
    rt = ReturnArrayValueTest2

    Debug.Print "■②結果■"

    'イミディエイトウィンドウへ出力
    For i = LBound(rt) To UBound(rt)
        Debug.Print rt(i)
    Next i

End Function

'---------------------------------------------
'①関数の戻り値を配列にする（バリアント型）
'---------------------------------------------
Function ReturnArrayValueTest1() As Variant

    Dim a(9)    As Long '配列宣言
    Dim i       As Long

    '配列に値を設定
    For i = 0 To 9
        a(i) = i
    Next i

    ReturnArrayValueTest1 = a

End Function

'---------------------------------------------
'②関数の戻り値を配列にする（Long型）
'---------------------------------------------
Function ReturnArrayValueTest2() As Long()

    Dim a(9)    As Long '配列宣言
    Dim i       As Long

    '配列に値を設定
    For i = 0 To 9
        a(i) = i
    Next i

    ReturnArrayValueTest2 = a

End Function