엑셀 vba 구구단표, 가로 연속하여 숫자 넣기, 세로 연속하여 숫자 넣기

 

엑사남 3강 Study

엑셀 파일 다운로드

cells(i,1),cells(1,i), cells(i,j), 구구단.xlsm

0.04MB

Sub V_number() Dim i As Long          For i = 1 To 9         Cells(i, 1) = i             'A1~A9까지 차례대로             '1~9까지 입력     Next End Sub

Sub H_number() Dim i As Long          For i = 1 To 9         Cells(1, i) = i             'A1~I1까지 차례대로             '1~9까지 입력     Next End Sub

Sub Clear_all() Range("a1:i9") = "" End Sub

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