は、VBAをエクセル：関数の戻り値は奇妙な

Question

私は、セルの値がゼロ大きいですが、それが動作していない最初のセルのアドレスを返す必要がありEXCEL VBA機能を持っています。なぜ誰かがアイデアを持っていますか？

コード：

Function FindNextFilledCell(RowArray() As Integer, ColArray() As Integer) 

For i = UBound(ColArray) To 0 
    For j = UBound(RowArray) To 0 
     CellValue = cells(RowArray(j), ColArray(i)).Value 
     If CellValue > 0 Then 
      FindNextFilledCell = cells(RowArray(j), ColArray(i)).Address(False, False) 
      Exit Function 
     End If 
    Next j 
Next i 

End Function 

Answer 1

私はまだあなたがやろうとしているかを理解しようとしていますが、私は最初のエラーがであることを示唆している：

For i = UBound(ColArray) To 0 

代わりの

For i = UBound(ColArray) To 0 step -1 

このあなたが逆の順序で細胞を検索することを意図していたと仮定します。あなたがしなかった場合

For i = 0 to UBound(ColArray) 

が良いかもしれません。

私が目撃している次のエラーは、関数が返す値のタイプを定義していないということです。試してみてください：

FindNextFilledCell(RowArray() As Integer, ColArray() As Integer) As String