0

エクセルのVBAの分散共分散行列でエラーが出ます。
コードは下記の通りですが、分散共分散行列:の部分で
「実行時エラー　'91': オブジェクト変数または　With　ブロック変数が設定されていません。」
とエラーが出ます Sub TEST7()

Dim A(10, 10): Dim S(100): Dim Y(100, 100): Dim B(3, 5) As Signature

GoSub 読み込み
GoSub 平均値
GoSub 平均偏差データ
GoSub 分散共分散行列
GoSub 書き出し
End

N = 5

P = 3
'===================================================
' S U B R O U T I N E
'===================================================

'==========================================読み込み

読み込み:

Dim data As Range

Do
Set data = Application.InputBox(prompt:="データ行列のセル範囲を入力:", Title:="データ行列", Type:=8)

N = data.Rows.Count
P = data.Columns.Count
If N > 0 And P > 0 Then
Exit Do
End If
MsgBox "範囲を指定してください"
Loop

'==================読み込みデータの割り振り=======================

For I = 1 To N

For J = 1 To P


A(I, J) = Cells(1 + I, 1 + J)

Cells(1 + I, 6 + J) = A(I, J)


Next J

Next I

Return

'==========平均値
平均値:

For I = 1 To N

For J = 1 To P

S(J) = S(J) + A(I, J)

Cells(7, 6 + J) = S(J)

Cells(8, 6 + J) = S(J) / N

Cells(7, 6) = "合計"

Cells(8, 6) = "平均"


Next J

Next I

Return

'============平均偏差データ=============
平均偏差データ:

'Cells(8,7) = "平均偏差データの二乗"


For I = 1 To N

For J = 1 To P

Y(I, J) = A(I, J) - S(J) / N

Cells(10 + I, 6 + J) = Y(I, J)

Cells(11, 6) = "平均偏差"

'B(I,J) = B(I,J) + C(I,J)^2
'Cells(8 + I,6 + J) = B(I,J)

Next J

Next I

Return

'====================分散共分散行列==================

分散共分散行列:


For I = 1 To N

For K = 1 To P

For J = 1 To P

B(I, K) = B(I, K) + Y(J, K) * Y(J, I)

Next J

B(I, K) = B(I, K) / 5

Cells(17 + I, 6 + K) = B(I, K)

Next K

Next I

Return
後略


コードは下記の通りですが、分散共分散行列:の部分の
B(I, K) = B(I, K) + Y(J, K)
でエラーが出ます。
「実行時エラー　'91': オブジェクト変数または　With　ブロック変数が設定されていません。」
と表示されます。どこが悪いでしょうか、お願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋 6234日前