シート上でSplit関数っぽく振舞うユーザー定義関数を作ってみた　の続き

昨日は、シート上でSplit関数っぽく振舞うユーザー定義関数を作ってみた。
infoment.hatenablog.com

すると、ExcelVBAerさんから次のようなコメントを寄せていただいた。
（いつもありがとうございます）。

ユーザ定義関数として使ってるので、
現状では不具合は無いと思いますが、
index を関数の中で調整してるので、
Byval にしておいた方が無難ですかね～

確かに、仰る通りだ。
そこで、これを含めた修正を行うと共に、使い処について少し考えてみた。
f:id:Infoment:20190605191430p:plain

まずご指摘の件について、確かにコード内で値を-１している。

index = index - 1

シート上で使うのなら問題ないが、念のためByVal（値渡し）にしておこう。
※ByRef（参照渡し）とした場合、呼び出し元まで変わってしまうリスクがある。
www.k1simplify.com

ついでに、indexで0を指定した場合、つまり「0個目は何？」に対しては、「何個に区切れるか？」を戻り値にするとしよう。

Function SubSplit(expression As String, _
         Optional delimiter As String = ",", _
         Optional ByVal index As Long = 0) As String

    Dim arr As Variant
        arr = Split(expression, delimiter)

        ' 配列が０始まりのため。
        index = index - 1

        If UBound(arr) < index Then
            SubSplit = "要素の上限を上回っています。"
        ElseIf index = -1 Then
            SubSplit = UBound(arr) + 1
        ElseIf index < -1 Then
            SubSplit = "要素の下限を下回っています。"
        Else
            SubSplit = arr(index)
        End If
End Function