配列を作成する

Sub toReDim(ByRef mAry, ByVal mVal)

    If isArray(mAry) Then
        ReDim Preserve mAry(mVal)
    Else
        ReDim mAry(mVal)
    End If

End Sub

引数

mAry = mixed 配列
mVal = mixed 追加する要素の数

戻り値

値を返しません。

処理

・mAryを配列にします。