gkld

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-1-27 21:57 | 只看該作者

請問有辦法使用vba來作線性回歸嗎？

如果我有A、B欄資料

想要去作一線性回歸，有辦法使用vba辦到嗎？？請各位高手釋疑

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-1-27 23:54 | 只看該作者

如果我有A、B欄資料

想要去作一線性回歸，有辦法使用vba辦到嗎？？請各位高手釋疑
gkld 發表於 2013-1-27 21:57

EXCEL有自帶線性回歸公式LINEST
如下圖,自動找出
A7和B7
A7 的2 等於Y=1+2X的 2
B7 的1 等於Y=1+2X的 1

留意LINEST是陣列公式, 要選上兩個格,然後輸公式, 最後不要只按ENTER,要按CTRL+SHIFT+ENTER

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

gkld

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

3^#

發表於 2013-1-28 00:19 | 只看該作者

感謝樓上回覆…

我曉得excel有自建函數功能有，但是我如果要在vba裡面使用，或是找出回歸的方程式

不知道該怎麼寫出來

TOP

gkld

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

4^#

發表於 2013-1-28 00:27 | 只看該作者

我用appliction.linest，只能跑出上例中的 2值出來

所以才會有此一問，如何用vba寫出來，感謝~

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2013-1-28 07:11 | 只看該作者

我用appliction.linest，只能跑出上例中的 2值出來

所以才會有此一問，如何用vba寫出來，感謝~
gkld 發表於 2013-1-28 00:27

比較單純一點就是照 Kimbal 版大的用法:

Sub Test()
[A8].Formula = "=ROUND(LINEST(B2:B5,A2:A5),0)"
[B8].Formula = "=ROUND(LINEST(A2:A5,B2:B5),0)"
End Sub

複製代碼

TOP

gkld

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

6^#

發表於 2013-1-28 19:13 | 只看該作者

回復 5# c_c_lai
c_c_lai大：
不好意思…我看不太懂你的解答
您的解答
[A8].Formula = "=ROUND(LINEST(B2:B5,A2:A5),0)"
可以求出回歸後的斜率
可是
[B8].Formula = "=ROUND(LINEST(A2:A5,B2:B5),0)"
這行程式碼…好像算不出截距來

能不能請你再指點迷津？？感謝啊

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

7^#

發表於 2013-1-28 23:31 | 只看該作者

本帖最後由 kimbal 於 2013-1-28 23:41 編輯

感謝樓上回覆…

我曉得excel有自建函數功能有，但是我如果要在vba裡面使用，或是找出回歸的方程式

不 ...
gkld 發表於 2013-1-28 00:19

不太清楚你想要的是什麼, 小弟試試向幾個方向答 (小弟只懂統計學皮毛,如有錯誤請多多包涵)

I. 如果是想找出人看的方程式,可以用圖表的"趨勢線"功能

步驟1.先建個圖表,然後右擊加上趨勢線

步驟2. 第1頁,我只懂第1個和這個 :D

步驟3.打勾"顯示公式"

完成, VBA的話可以用這句找出公式
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.text

用同樣方法,可以得出2次方程公式

II. 如果是想EXCEL自己找出個X的Y值 (直線方程)
如X是10的話Y是什麼
=FORECAST(10,A2:A6,B2:B6)

Excel VBA
application.Worksheetfunction.Forecast(10,RANGE("B2:B5"),RANGE("A2:A5"))

如果不是直線的話可以參考一下這裡:
http://www.statr.cn/?p=82

vba 只是作輔助用途,真正的功能是在excel本身

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

gkld

中學生 Rank: 2

帖子: 44
主題: 7
精華: 0
積分: 51
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2012-11-18
最後登錄: 2022-8-6

論壇贊助勳章

8^#

發表於 2013-1-30 18:17 | 只看該作者

回復 7# kimbal
感謝kimbal版大熱心解答，你說你懂皮毛，太客氣了
本來我想說用vba可以找出線性回歸方程式y=ax+b的a(斜率)及c(截距)值，這樣就可以求得我想要的y值
經版大這樣的解說
原來forecast就可以解決我的問題了~
感謝謝!!:D

TOP