엑셀vba) ParamArray : 인수 갯수 제한 없는 배열 함수로 넘기기

Sub test()

AnyNumberArgs "Jamie", 10, 26, 32, 15, 22, 24, 16

AnyNumberArgs "Kelly", "High", "Low", "Average", "High"

End Sub

Sub AnyNumberArgs(strName As String, ParamArray intScores() As Variant)

    Dim intI As Integer

    Debug.Print strName; "  Scores"

    ' UBound 함수를 사용하여 배열의 상한값을 결정합니다.

    For intI = 0 To UBound(intScores())

        Debug.Print "    "; intScores(intI)

    Next intI

End Sub