一つの要素を配列の最後に追加する

Sub [](ByRef mAry, ByVal mVal)

    If IsArray(mAry) Then
        Dim counter : counter = UBound(mAry) + 1
        ReDim Preserve mAry(counter)
        mAry(counter) = mVal
    Else
        mAry = Array(mVal)
    End If

End Sub

• GitHubで表示

パラメータ

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

戻り値

値を返しません。

説明

渡された変数を mAry の最後に加えます。

• GitHubで編集