項目

　関数の引数に配列を指定する

概要

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

方法

Option Compare Database
Option Explicit

'--------------------------------------
'ParamArrayTest関数呼出
'--------------------------------------
Function CallParamArrayTest()

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

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

    '①呼出
    ParamArrayTest1 a

    '②呼出
    ParamArrayTest2 a

End Function

'---------------------------------------------
'①関数の引数に配列を指定する(バリアント型)
'---------------------------------------------
Function ParamArrayTest1(arrayPram As Variant)

    Dim i   As Long

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

End Function

'---------------------------------------------
'②関数の引数に配列を指定する(Long型)
'---------------------------------------------
Function ParamArrayTest2(arrayPram() As Long)

    Dim i   As Long

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

End Function