배열을 이용한 엑셀 구구단

사용 내용

2차원 배열

반복문(for)

Cells: CellI(행 번호, 열번호)를 기본으로하며 위치를 찾는데 사용 Range로 범위를 지정후 사용시 해당 지점부터 시작

소스코드 사진

Sub 다중배열()

Dim dbarr(1 To 9, 1 To 9) As Integer //1~9단이 들어갈 배열 선언 (2차원 배열)

Dim i As Integer  

Dim j As Integer

For i = 1 To 9 // <- 9단까지 반복해야되니 1~9

    For j = 1 To 9 //<-- 1~9까지 곱해야 되니 1~9

    dbarr(i, j) = i * j

    Range("A2:i10").Cells(i, j).Value = dbarr(i, j)  //<- A:2i10 범위내에 배열(i,j)를 배치해라!

    Next j

Next i

결과물

추가 사항

 - 공식도 나오면 좋을거 같다.

 - 자동으로 꾸며지는 것도 좋을거같다!