엑셀 VBA는 : 계산 결과의 셀 값을 반환

Question

내가 다음 VBA 기능이 있습니다

=IndexOfColor(D15:M24,37) 

그리고 항상 "#VALUE"를 얻을 : 내 엑셀 시트에서

Function IndexOfColor(InRange As Range, ColorIndex As Long) As Excel.Range 
Dim R As Range 

Application.Volatile True 
If IsValidColorIndex(ColorIndex) = False Then 
    IndexOfColor = 0 
    Exit Function 
End If 

For Each R In InRange.Cells 
    If R.Interior.ColorIndex = ColorIndex Then 
     IndexOfColor = R 
     Exit Function 
    End If 
Next R 

IndexOfColor = 0 
End Function 

을,이를 호출합니다. 마지막까지 함수를 디버깅했습니다. 문제는 없었습니다. 이것은 단지 1 개의 결과를 반환해야하지만 (나는 범위를보고 있는데 단 하나의 색깔있는 셀이 있습니다), 배열 결과 (CTRL-SHIFT-ENTER)를 만들려고했습니다.

제안 사항?

Answer 1

이게 너가하려는거야? 세포가 소수가되지 않습니다 경우에 당신은 Long

Function IndexOfColor(InRange As Range, ColorIndex As Long) As Variant 
    Dim R As Range 

    IndexOfColor = 0 

    On Error GoTo Whoa 

    Application.Volatile True 

    If Not IsValidColorIndex(ColorIndex) = False Then 
     For Each R In InRange.Cells 
      If R.Interior.ColorIndex = ColorIndex Then 
       IndexOfColor = R.Value 
       Exit For 
      End If 
     Next R 
    End If 
Whoa: 
End Function