VBA中的Excel WorksheetFunction.Trend函数

Question

我在Excel单元格中有公式=趋势({4000,20000}，{0,32}，B15)。

在VBA函数中使用这种方法的正确方法是什么？

我一直得到运行时错误1004:无法获得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

当您查看-局部变量时，可以看到结果包含一个单元素变体数组。

​

​