Передача массивов в функции или подпроцедуры

Question

У меня есть быстрый вопрос относительно кодирования в vba, я пытаюсь написать алгоритм сортировки в vba.

Однако мне не удается передать целочисленный массив в функцию. Есть ли способ передать массив в функцию? Я считаю, что передать его, как вариант, это правильный способ сделать это.

Также есть способ получить возвращаемое значение функции для передачи как массива?

Answer 1

По Chip Pearson's examples Вы можете передать массив в качестве параметра

Function SumArray(Arr() As Long) As Long 
    ''''''''''''''''''''''''''''''''''''''''''' 
    ' SumArray 
    ' This sums the elements of Arr and returns 
    ' the total. 
    ''''''''''''''''''''''''''''''''''''''''''' 
    Dim N As Long 
    Dim Total As Long 
    For N = LBound(Arr) To UBound(Arr) 
     Total = Total + Arr(N) 
    Next N 
    SumArray = Total 
End Function 

также возвращает массив в качестве результата функции, например.

Function LoadNumbers(Low As Long, High As Long) As Long() 
    ''''''''''''''''''''''''''''''''''''''' 
    ' Returns an array of Longs, containing 
    ' the numbers from Low to High. The 
    ' number of elements in the returned 
    ' array will vary depending on the 
    ' values of Low and High. 
    '''''''''''''''''''''''''''''''''''''''' 
    Dim ResultArray() As Long 
    Dim Ndx As Long 
    Dim Val As Long 
    ''''''''''''''''''''''''''''''''''''''''' 
    ' Ensure Low <= High 
    ''''''''''''''''''''''''''''''''''''''''' 
    If Low > High Then 
     Exit Function 
    End If 
    ''''''''''''''''''''''''''''''''''''''''' 
    ' Resize the array 
    ''''''''''''''''''''''''''''''''''''''''' 
    ReDim ResultArray(1 To (High - Low + 1)) 
    '''''''''''''''''''''''''''''''''''''''' 
    ' Fill the array with values. 
    '''''''''''''''''''''''''''''''''''''''' 
    Val = Low 
    For Ndx = LBound(ResultArray) To UBound(ResultArray) 
     ResultArray(Ndx) = Val 
     Val = Val + 1 
    Next Ndx 

    LoadNumbers = ResultArray() 

End Function 

Далее информация/примеры www.cpearson.com