엑셀vba) ParamArray : 인수 갯수 제한 없는 배열 함수로 넘기기
Sub test()AnyNumberArgs "Jamie", 10, 26, 32, 15, 22, 24, 16AnyNumberArgs "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 intIEnd Sub
2014. 3. 7.