Sub F15_01()
Dim I, J As Integer
For I = 2 To 9
For J = 1 To 9
Worksheets(“Sheet1”).Cells(J + 1, I + 1).Value = I * J
Next
Next
End Sub
이번에는 FOR문이 두 번 등장했다.
첫 번째 자동증가변수 I를 활용한 FOR문은 구구단 2단에서 9단까지의 반복이고 J를 활용한 FOR문은 각 구구단에 곱해지는 수를 반복해주는 구문이 된다.
I가 한 번 반복될 때마다 J는 9번이 반복되는 것이다.
매우 중요한 원리이니 꼭 기억하자.
입력되는 셀의 위치도 I와 J를 활용하여 각각 행과 열에 위치하였다.
결과값도 역시 I와 J의 곱을 출력한다.