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時，您可以看到結果包含一個元素的變體數組。