Excel VBA質問箱 IV

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

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


28676 / 76738 ←次へ | 前へ→

【53356】Re:回帰直線の傾きと切片を求めたい
回答  りん E-MAIL  - 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, "y切片"
  End With
  Set rx = Nothing: Set ry = Nothing
End Sub

こんな感じです。
2 hits

【53349】回帰直線の傾きと切片を求めたい ごじら 08/1/4(金) 23:40 質問
【53350】Re:回帰直線の傾きと切片を求めたい ponpon 08/1/5(土) 0:09 発言
【53356】Re:回帰直線の傾きと切片を求めたい りん 08/1/5(土) 8:33 回答
【53357】Re:回帰直線の傾きと切片を求めたい(補足) りん 08/1/5(土) 9:15 発言
【53360】Re:回帰直線の傾きと切片を求めたい(補足) ごじら 08/1/5(土) 23:33 質問
【53368】Re:回帰直線の傾きと切片を求めたい(補足) りん 08/1/6(日) 12:22 回答
【53374】Re:回帰直線の傾きと切片を求めたい(補足) ごじら 08/1/6(日) 18:43 お礼

28676 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free