Excel VBA質問箱 IV

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

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


28669 / 76732 ←次へ | 前へ→

【53357】Re:回帰直線の傾きと切片を求めたい(補足)
発言  りん E-MAIL  - 08/1/5(土) 9:15 -

引用なし
パスワード
   さっきの補足というか、おまけというか。

>>エクセルマクロでワークシート上のデータから回帰直線の傾きと切片を求めたいと
>>思っています。
>>a = WorksheetFunction.LinEst(Range("A1:A5"), Range("B1:B5"), True, False)
>LINESTワークシート関数のヘルプによると、
> 傾き: INDEX(LINEST(既知の y,既知の x),1)
> y切片:INDEX(LINEST(既知の y,既知の x),2)
>ということなので、それをそのままVBAで表現すると・・・

下のようにLinEst関数の戻り値をVariant変数で受けると、INDEXは使わなくてもいいです。
Sub test()
  Dim rx As Range, ry As Range, dt As Variant
  With Application.ActiveSheet
   Set rx = Range("B1:B5") 'X
   Set ry = Range("A1:A5") 'Y
  End With
  'Variant(Array)で受け取る
  With Application.WorksheetFunction
   dt = .LinEst(ry, rx)
  End With
  '結果
  MsgBox dt(1), vbInformation, "傾き"
  MsgBox dt(2), vbInformation, "y切片"
  '
  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 お礼

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