Excel VBA 정렬 배열 함수

Question

아래 표시된 함수를 작성했습니다. Sub에서 사용할 때 작동합니다. 처음으로 함수를 작성하려고합니다. 나는 이것이 멍청한 질문이라는 것을 알고 있지만, 나는 그 기능을 실행할 수없는 것처럼 보입니다. 함수를 올바르게 호출하지 않거나 함수 헤더에 변수를 올바르게 정의하지 않은 것일 수도 있습니다.

누구든지 올바른 방향으로 나를 가리킬 수 있습니까?

Function SortArray(ArrayToSort As String) 
    Dim x As Long, y As Long 
    Dim TempTxt1 As String 
    Dim TempTxt2 As String 

    For x = LBound(ArrayToSort) To UBound(ArrayToSort) 
     For y = x To UBound(ArrayToSort) 
      If UCase(ArrayToSort(y)) < UCase(ArrayToSort(x)) Then 
       TempTxt1 = ArrayToSort(x) 
       TempTxt2 = ArrayToSort(y) 
       ArrayToSort(x) = TempTxt2 
       ArrayToSort(y) = TempTxt1 
      End If 
     Next y 
    Next x 
End Function 


Sub CreateUniquesList() 
    Dim References() As String 
    ... 
    SortArray (References) 
    ... 
End Sub 

Answer 1

매개 변수가 배열 보통

Function SortArray(ArrayToSort() As String) 
    'your code 
End Function 

Sub CreateUniquesList() 
    Dim References() As String 
    '... 
    SortArray References 'lose the parentheses 
    '... 
End Sub 

Answer 2

있는지 확인하기 위해 괄호를 추가 (내가 항상 말하고 싶지만하지만 5 참조를 게시 할 것입니다 누군가가 항상 아니다 방법을 보여줍니다) 함수가 반환하는 값. 함수 정의에는 다음과 같이 반환 할 변수 유형이 포함되어야합니다.

Function SortArray(ArrayToSort As String) as variant 

변형은 결과로 정렬 된 배열을 포함합니다.

나서 함수의 끝에는

Next x 
SortArray = ArrayToSort 
End Function 

같이, 결과의 함수 자체의 값을 설정하고, 호출하는 경우와 같이 함수에 변수 동일한 세트 in

References = SortArray References 

그리고 그렇게해야합니다. 나는 또한 당신이 심판하여 값을 전달하지 않는 것이 좋습니다 것

, 그래서

Function SortArray(byval ArrayToSort As String) 

원래 배열 실제로 혼란에 기능을하지 (보통) 때문.