Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28745 / 76807

←次へ　｜　前へ→


	【53356】Re:回帰直線の傾きと切片を求めたい

りん

- 08/1/5(土) 8:33 -


	引用なし

	パスワード

おはようございます。

>エクセルマクロでワークシート上のデータから回帰直線の傾きと切片を求めたいと
思っています。
>a = WorksheetFunction.LinEst(Range("A1:A5"), Range("B1:B5"), True, False)

LINESTワークシート関数のヘルプによると、
　傾き:　INDEX(LINEST(既知の y,既知の x),1)
　y切片:INDEX(LINEST(既知の y,既知の x),2)
ということなので、それをそのままVBAで表現すると、

Sub test()
　 Dim rx As Range, ry As Range
　 With Application.ActiveSheet
　　　Set rx = Range("B1:B5") 'X
　　　Set ry = Range("A1:A5") 'Y
　 End With
　 'INDEX、LINESTともにWorksheetFunctionで使用可能
　 With Application.WorksheetFunction
　　　MsgBox .Index(.LinEst(ry, rx), 1), vbInformation, "傾き"
　　　MsgBox .Index(.LinEst(ry, rx), 2), vbInformation, "ｙ切片"
　 End With
　 Set rx = Nothing: Set ry = Nothing
End Sub

こんな感じです。

10 hits

▼

【53349】回帰直線の傾きと切片を求めたい ごじら 08/1/4(金) 23:40