一致地在VBA UDF中返回整个数组？

Question

我编写了以下简单的VBA函数，以一定的间隔计算两个量之间的线性级数，并将该级数作为数组返回：

Public Function applyLinear(startAmount As Double, stopAmount As Double, Intervals As Integer)
    Dim diff As Double
    Dim resultArr() As Double
    Dim counter As Integer    
    diff = stopAmount - startAmount
    ReDim resultArr(Intervals, 0)
    resultArr(0, 0) = startAmount
    For counter = 1 To (Intervals)
        resultArr(counter, 0) = resultArr(counter - 1, 0) + diff / Intervals
    Next ' counter
    counter = 0
    applyLinear = resultArr
End Function

不幸的是，实际输出到工作表的内容完全取决于调用上述公式的单元格数量。 （这意味着用户错误地使用该功能变得很容易笑！）

如何在所有情况下确保将整个数组输出到工作表？

编辑：更确切地说，当从单个单元格调用上述UDF时，如何使VBA输出整个数组？

编辑2：更多说明。 如果调用该函数时使用了“ intervals + 1”行，该函数将按预期工作。 但是，如果（例如）当间隔> 4时，用户意外地从4行调用该函数，则会出现问题。在这种情况下，仅将resultArr的前四个元素输出到工作表，这是一个问题，因为它没有代表整个线性进程。

Answer 1

虽然寻找到如何做我建议在上面的评论，我发现了Application.Caller功能，它允许你访问一个UDF在进入细胞的特性一些有趣的信息看这里： Excel单元格从中函数被调用

这是一种方法，基于cpearson的一些进一步指导[ http://www.cpearson.com/excel/returningarraysfromvba.aspx ]

Public Function applyLinear(startAmount As Double, stopAmount As Double, Intervals As Integer)

Dim diff As Double
Dim resultArr() As Double
Dim counter As Integer
ReDim resultArr(Intervals, 0)

If Application.Caller.Rows.Count <> Intervals + 1 Then

    applyLinear = "ERROR - MUST ENTER THIS FORMULA IN " & Intervals + 1 & " CELLS"

Else

    diff = stopAmount - startAmount
    resultArr(0, 0) = startAmount

    For counter = 1 To (Intervals)
        resultArr(counter, 0) = resultArr(counter - 1, 0) + diff / Intervals
        TotalityCheck = TotalityCheck + resultArr(counter, 0) 'builds in by the end of the loop the total array value
    Next ' counter


    applyLinear = resultArr
End If

End Function

尽管现在您已经使用了Application.Caller函数，但您可以通过取消用户输入间隔数的需求来简化操作，而是将间隔数定义为应用程序。 caller.rows-1，如下所示：

Public Function applyLinear(startAmount As Double, stopAmount As Double)

Dim diff As Double
Dim resultArr() As Double
Dim counter As Integer
Dim Intervals As Integer
ReDim resultArr(Intervals, 0)

Intervals = Application.Caller.Rows.Count - 1

    diff = stopAmount - startAmount
    resultArr(0, 0) = startAmount

    For counter = 1 To (Intervals)
        resultArr(counter, 0) = resultArr(counter - 1, 0) + diff / Intervals
        TotalityCheck = TotalityCheck + resultArr(counter, 0) 'builds in by the end of the loop the total array value
    Next ' counter


    applyLinear = resultArr


End Function