Здравствуйте.
Подскажите, пожалуйста, как элегантно передать все полученные аргументы далее (без дикости с их перечислением и проверкой на существование каждого).
Подскажите, пожалуйста, как элегантно передать все полученные аргументы далее (без дикости с их перечислением и проверкой на существование каждого).
Код |
---|
Sub f1() f2 1, 2, 3 End Sub Sub f2(ParamArray a()) ' f3 a() f3 a(0), a(1), a(2) End Sub Sub f3(ParamArray a()) Dim c Debug.Print TypeName(a), UBound(a) + 1 For Each c In a Debug.Print c Next End Sub |