|
りんさん、丁寧なレスをいただき感謝いたします。
教えていただいたコードで単回帰分析はうまくいきました。
今度は係数を増やして、重回帰分析もやってみようと思ったのですが、
問題が出てきました。
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
|
|