色で並べ替えて別の場所に出力

Question

Excelでvba関数を作成して、セルの色で列を並べ替えて別の場所に結果を出力しようとしています。私が現在持っているものは、現在私にエラーを与えています

Function SortColor(colorSearchRange As Range, colorToSearch As Range, outputRange As Range) 
Dim colorValue As Integer 
Dim coloredItems(150) As String 
Dim index As Integer 

colorValue = colorToSearch.Interior.ColorIndex 
index = 0 
Set cell = colorSearchRange 
For Each cell In colorSearchRange 
    If cell.Interior.ColorIndex = colorValue Then 
     coloredItems(index) = cell.Value 
     index = index + 1 
    End If 
Next cell 

Range(outputRange & UBound(coloredItems) + 1) = WorksheetFunction.Transpose(coloredItems) 

End Function 

私はビジュアルベーシックで初めてです。どのようなタイプの助けでも大歓迎です。 cellがFor Each cell In colorSearchRangeループ

最終的にあなたのFunction ISN」は各繰り返しで設定されようとしていることから、あなたは、Set cell = colorSearchRangeを必要としないも

outputRange.Resize(index) = WorksheetFunction.Transpose(coloredItems) 

：

Answer 1

は、あなたのようなものを使用する必要があります何も返さないので、あなたはそれを作ることができますSub

上記の結果は次のようになります：

Sub SortColor(colorSearchRange As Range, colorToSearch As Range, outputRange As Range) 
    Dim colorValue As Long, index As Long 
    Dim coloredItems() As String 
    Dim cell As Range 

    ReDim coloredItems(1 To colorSearchRange.Rows.Count) As String 'dim your array to the maxiumum possible for the passed range 
    colorValue = colorToSearch.Interior.ColorIndex 
    For Each cell In colorSearchRange 
     If cell.Interior.ColorIndex = colorValue Then 
      index = index + 1 
      coloredItems(index) = cell.Value 
     End If 
    Next cell 
    outputRange.Resize(index) = WorksheetFunction.Transpose(coloredItems) 
End Sub