« «
» »

引数が可変（ParamArray）

Function jointText(ParamArray 範囲())
    
    Dim i As Long
    Dim cell As Range
    Const 区切り文字 As String = "-"
    
    For i = 0 To UBound(範囲)
        If 範囲(i).Count > 1 Then
            For Each cell In 範囲(i)
                jointText = jointText & 区切り文字 & cell
            Next cell
        Else
            jointText = jointText & 区切り文字 & 範囲(i)  '2個目以降
        End If
    Next i
    jointText = Right(jointText, Len(jointText) - Len(区切り文字))
    
End Function

※省略可能なOptionalは使えない

stabucky.com
 
VBAで引数の数を可変にする | You Look Too Cool
https://stabucky.com/wp/archives/3431
VBAのユーザー定義関数で引数の数が一定でない場合があります。Function kansu(a, b, c)[/
dev-clips.com
 
不定の引数を定義するParamArrayキーワード
http://dev-clips.com/clip/vba/paramarray-keyword/
Excel ワークシート関数のSUM関数やMAX関数は可変の引数を渡すことができます。 VBA のプロシージャでも同じように不定の引数を扱う場合は ParamArrayキーワード を使用します。 今回はこの ParamArrayキーワード

This entry was posted on 日曜日, 7月 21st, 2019 at 11:43 PM and is filed under VBA. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.