Excel VBA質問箱 IV

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

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


28666 / 76732 ←次へ | 前へ→

【53360】Re:回帰直線の傾きと切片を求めたい(補足)
質問  ごじら  - 08/1/5(土) 23:33 -

引用なし
パスワード
   りんさん、丁寧なレスをいただき感謝いたします。
教えていただいたコードで単回帰分析はうまくいきました。
今度は係数を増やして、重回帰分析もやってみようと思ったのですが、
問題が出てきました。
dt配列(?)のインデックスが有効範囲内にないというのです。
dtはVariant型ということですが、配列として宣言していないので、大きさがよくわかりません。
↓が私のコードです。3つ目のMsgboxでエラーになります。
何かアドバイスをいただけると幸いです。よろしくお願いいたします。

Private Sub CommandButton1_Click()

Dim rx(3) As Range
Dim ry As Range
Dim dt As Variant

With Application.ActiveSheet
Set ry = Range(Cells(1, 1), Cells(5, 1)) 'Y
Set rx(1) = Range(Cells(1, 2), Cells(5, 2)) 'X1
Set rx(2) = Range(Cells(1, 3), Cells(5, 3)) 'X2
End With

With Application.WorksheetFunction
 dt = .LinEst(ry, rx(1), rx(2))
End With

MsgBox "x1 = " & dt(1)
MsgBox "x2 = " & dt(2)
MsgBox "切片 = " & dt(3) '''ここでエラーが出る

Set rx(1) = Nothing
Set rx(2) = 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 お礼

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