引数の数が変わってしまう場合に配列はどう扱う2

マクロ 85_b回

コードの中でどんな変数を使うか

８５回からの続きです。
コードの中でどんな変数を使ったらいいかということを考えていきます。

この記事は動画で視聴することができます。UDFの引数の数が変わってもParamArrayと動的配列で大丈夫

（サンプルファイルは、こちらです。引数が不定でもParamArrayで大丈夫、ParamArrayでユーザーファンクション、サンプル100回）

配列の個数が可変の時の引数と変数の設定

1. 例えばこの3つのセルに入っている全体のレンジを配列として受け取りたい。
あるいは、セルが２つだったり4つだったりといろいろあることが想定されます。

2. そこで、ここではかたまりと考えて配列のひとつgroupedという変数を使います。

3. その中の１個１個はひとつの中のピースとして、変数pieceを使います。

4. そしてつかうのは、For文の中でFor Each piece In groupedのように使います。

5. 他に動的配列newArrayも使います。

Function ketugou(delimiter As String, ignore_empty As Boolean, _
   ParamArray joinText() As Variant)
    Dim grouped As Variant, piece As Variant, i As Long
    Dim newArray() As Variant
    
End Function

For文のネスト

6. 中身のコードですが、変数iの初期値を＝0とします。変数iを使用したFor文を入れましょう。

For Each piece In grouped
    If Not ignore_empty Or Not IsEmpty(piece) Then
        ReDim Preserve newArray(i)
        newArray(i) = piece
        i = i + 1
    End If
Next piece

7.このFor文はさらにFor文でネストします。外側のFor文では、引数で受け取ったjoinTextの中のgroupedを見ていくということになります。

8. そして、joinTextの中のgroupedがRangeかどうかの判定をして、Rangeならば内側のFor文で処理をします。

9. 次に内側のFor文では、受け取ったgroupedの中のpieceを空であるかどうかの判定をして空でないなら、newArrayに渡してやります。
空でない＝文字列がある
If Not ignore_empty Or Not IsEmpty(piece) Then

 Function ketugou(delimiter As String, ignore_empty As Boolean, _
   ParamArray joinText() As Variant)
    Dim grouped As Variant, piece As Variant, i As Long
    Dim newArray() As Variant
    i = 0
    For Each grouped In joinText
        If TypeName(grouped) = "Range" Then
            For Each piece In grouped
                If Not ignore_empty Or Not IsEmpty(piece) Then
                    ReDim Preserve newArray(i)
                    newArray(i) = piece
                    i = i + 1
                End If
            Next piece
’　まだ
    Next grouped

’　まだ
End Function