VBA 프로그램 - 구구단

구구단을 계산 하는 프로그램 입니다 가로 방향으로 1 에서 9 까지 표시 합니다. 세로 방향으로 1 에서 9 까지 표시 합니다.가로 세로를 곱하여 구구단을 완료 합니다 프로그램 소스  가호 세로 숫자 표시, 구구단 결과 값 표시

Sub V_number()
    Dim i As Long
    For i = 1 To 9
       Cells(i, 1) = i
   Next i
End Sub

Sub H_number()
   Dim i As Long
   For i = 1 To 9
     Cells(1, i) = i
   Next i
End Sub

Sub gugudan()
Dim i As Long
Dim j As Long
 For i = 1 To 9
   For j = 1 To 9
     Cells(i, j) = i * j
   Next j
Next i
End Sub

프로그램 결과