유효하지 않은 다음 제어 변수 참조 ERROR

Question

Im 코드를 작성했지만 잘못된 다음 제어 변수 참조 오류가 발생하며 그 이유를 모르겠습니다. 이것은 내 코드입니다 :

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