excel vba 中的 LINEST 函数

excel vba 中的 LINEST 函数

我正在尝试找出一组数据值的二阶方程 (Y = ax^2 + bx + c)。当我使用 excel 中的内置函数时

=LINEST(C2533:C2537,B2533:B2537^{1,2}) 

对于我选择的数据,我得到了以下结果

3.08414E-09 -0.00041244 7.351136804

但是当我在 Excel VBA 代码中尝试相同操作时,答案并不相关,有人能告诉我代码中应该修改什么吗?

Set RangeM = ("C2533:C2537")  -->Y axis
Set RangeF = ("B2533:B2537") --> Xaxis
Mpolynomials = Application.WorksheetFunction.LinEst(RangeM, RangeF, True, True)
  • :Mpolynomials(1)::变量(1 到 2):Mpolynomials(1,1):-2.88227749032385E-04:变量/双精度:Mpolynomials(1,2):6.10919130371322:变量/双精度
  • :Mpolynomials(2)::变量(1 到 2):Mpolynomials(2,1):2.49037160577299E-06:变量/双精度:Mpolynomials(2,2):0.050203149944234:变量/双精度
  • :Mpolynomials(3)::变量(1 到 2):Mpolynomials(3,1):0.999776086266518:变量/双精度:Mpolynomials(3,2):9.34516966780855E-03:变量/双精度
  • :Mpolynomials(4)::变量(1 到 2):Mpolynomials(4,1):13395.0169654829:变量/双精度:Mpolynomials(4,2):3:变量/双精度
  • :Mpolynomials(5)::变量(1 到 2):Mpolynomials(5,1):1.16981624866201:变量/双精度:Mpolynomials(5,2):2.61996588360387E-04:变量/双精度

答案1

我浏览了一下,找到了二阶方程多项式的解法

Mpolynomials = Application.WorksheetFunction.LinEst(RangeM,Application.Power(RangeF,Array(1, 2)))

这里 Mpolynomials 是一个变体

相关内容