如何在Access VBA代码中调用这两个函数FORECAST.ETS和FORECAST.ETS.CONFINT

Question

我想通过在Access中的VBA代码中调用以下引用来使用FORECAST.ETS和FORECAST.ETS.CONFINT：

{ Excel.WorksheetFunction.Forecast.ETS(...)

Excel.WorksheetFunction.Forecast.ETS.CONFINT(...) }

然而，我得到的编译器错误是“参数不是可选的”。我在顶部菜单栏中偶然发现了Tools -> References，但找不到相应的引用供我检查使用。Excel.WorksheetFunction.Forecast工作正常，但找不到Excel.WorksheetFunction.Forecast.ETS和Excel.WorksheetFunction.Forecast.ETS.CONFINT。

有没有人知道在引用列表中点击哪个(或哪些)引用才能调用这两个函数？

谢谢。

Answer 1

根据this和this等众多其他来源的说法，Ets函数最早是在Excel2016中引入的，因此在早期版本的Excel中不可用。

在Excel2016中，我们引入了原生ETS功能。这包括一组新函数，如FORECAST.ETS和用于其他统计信息的其他支持函数。您的数据集不需要完美，因为函数将容纳多达30%的缺失数据。

对于2016年，我可以使用Evaluate。

Option Compare Database
Option Explicit
Public Sub test()
    Dim app As Excel.Application
    Set app = New Excel.Application
    Debug.Print app.Evaluate("FORECAST.ETS(42125,{1,2,3,4},{42005,42036,42064,42095})")
    app.Quit
End Sub

Option Compare Database
Option Explicit
Public Sub test()
    Dim app As Excel.Application
    Set app = New Excel.Application
    Debug.Print app.Evaluate("FORECAST.ETS.CONFINT(42125,{100,250,390,450},{42005,42036,42064,42095}, 95%)")
    app.Quit
End Sub

​

​