Excel VBAソート配列関数

Question

以下に表示されている関数を記述しました。それは私がサブでそれを使用するときに機能します。私が関数を書くのは初めてです。私はこれがnoobの質問であることを知っているが、私は機能を実行するように見えない。関数を正しく呼んでいないか、関数ヘッダに変数を正しく定義していない可能性があります。

誰かが正しい方向に向いていますか？

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) 

、あなたが参照して値を通過しないことをお勧めします