VBA中的Excel WorksheetFunction.Trend函数

Question

我在Excel单元格中具有公式= TREND（{4000,20000}，{0,32}，B15）。

在VBA功能中使用此功能的正确方法是什么？

我不断收到运行时错误1004：每当Itry沿以下方向变化时，都无法获取WorksheetFunction类的Trend属性：

WorksheetFunction.Trend（“ {4000,20000}”，“ {0,32}”，“ B15”）

谢谢。

Answer 1

我无法让您的公式在Excel单元格中工作（#REF错误）。 已知x不必与已知y具有相同数量的值吗？ 这工作

?application.WorksheetFunction.Trend(array(4000,20000),array(0.30,0.32),Range("B15").Value)(1)

我正在使用数组函数为前两个参数创建数组。 我为第二个参数补足了另一个值。 然后整个过程返回一个数组，因此最后的(1)将返回该数组的第一个元素。

您可以使用类似这样的子检查结果

Sub TestTrend()

    Dim aY(1 To 2) As Double
    Dim aX(1 To 2) As Double
    Dim vResult As Variant

    Range("B15").Value = 0.35

    aY(1) = 4000: aY(2) = 20000
    aX(1) = 0.3: aX(2) = 0.32

    vResult = Application.WorksheetFunction.Trend(aY, aX, Range("B15").Value)

    Stop

End Sub

当您查看-Locals时，您可以看到结果包含一个元素的变体数组。