無効な次の制御変数の参照エラー

Question

私はコードを書いていますが、無効な次の制御変数の参照エラーが発生します。なぜそれがわかりません。これは私のコードです：

Answer 1

あなたのi変数とj変数が間違った方法です。正しい変数に正しいインデントがあることを確認する必要があります。お役に立てれば！

Sub Network() 

Dim Net(1 To 8) As Double 
Dim Total(1 To 8) As Double 
Dim i As Integer 


For i = 1 To 8 
    For j = 1 To 5 

     Net(j) = Worksheets("Summary").Cells((i * 7) + 12, 9).Value 

    Next j 
Next i 



For j = 1 To 5 

    Total(j) = WorksheetFunction.Sum(Net(j)) 

Next j 

For j = 1 To 5 

    Worksheets("Summary").Cells(73, 8 + j) = Total(j) 

Next j 


End Sub