엑셀 VBA(비베)구구단 (중복 반복문 사용)

엑셀 VBA 또는 비주얼 베이직 구구단 출력으로 중복 반복문 사용방법을 연습하기에 좋은 재료다.

엑셀 시트로 출력

Sub 구구단()
Dim I As Integer
Dim J As Integer
Dim k As String
Dim result As Integer

    k = "단"
    For I = 2 To 9
        For J = 1 To 9
            result = I * J
             Cells(1, I - 1).HorizontalAlignment = xlCenter '셀 가운데 정렬
             Cells(J + 1, I - 1).HorizontalAlignment = xlCenter
            Cells(1, I - 1) = I & k
            Cells(J + 1, I - 1) = I & "x" & J & "=" & result
        Next J
    Next I
End Sub