如何使用Excel VBA獲取多項式回歸系數？

Question

我有兩列，比如x和f(x) 。 我想在Excel VBA中進行多項式回歸后得到二次方程的系數。

我是Excel VBA的新手，不知道該怎么做。

例如-

XY
-1 -1
0 3
1 2.5
2 5
3 4
5 2
7 5
9 4

等式f(x)=a*x^2+b*x+c的系數將是

a= -.008571
b= 0.99555
c= 1.648439. 

我使用THIS網站獲得了系數

Answer 1

在使用代碼方面，請使用LINEST ，如下所示

Sub Quaddy()
Dim X
X = Application.Evaluate("=linest(b1:B8,A1:A8^{1,2})")
MsgBox "Equation is y=" & Format(X(1), "0.###") & "x2+" & Format(X(2), "0.###") & "x+" & Format(X(3), "0.###")
End Sub

這顯示在下面的Excel圖表中