[EXCEL] 구구단 3단을 출력하는 매크로

구구단 3단을 출력하는 매크로

Sub PrintMultiplicationTable3()
    Dim i As Integer
    For i = 1 To 9
        Cells(i, 1).Value = "3 x " & i & " = " & 3 * i
    Next i
End Sub

 

 

사용자가 입력한 단을 출력하는 매크로

Sub PrintMultiplicationTable()
    Dim dan As Integer
    Dim i As Integer

    ' 사용자에게 단을 입력받음
    dan = InputBox("출력할 구구단의 단을 입력하세요:", "구구단 출력")

    ' 입력받은 단의 구구단을 A1부터 A9까지 출력
    For i = 1 To 9
        Cells(i, 1).Value = dan & " x " & i & " = " & dan * i
    Next i
End Sub

 

 

 

매크로 실행 방법

• Alt + F11 키를 눌러 VBA 에디터를 열고, 삽입 > 모듈을 선택해 새로운 모듈을 추가함.
• 위 두 개의 코드를 복사하여 모듈에 붙여넣음.
• F5 키를 눌러 매크로를 실행하거나, Excel로 돌아가 Alt + F8 키를 눌러 매크로 목록에서 PrintMultiplicationTable3 또는 PrintMultiplicationTable을 선택하여 실행함.

 

 

이 매크로는 각각 A1부터 A9까지의 셀에 구구단 3단 또는 사용자가 입력한 단의 구구단을 출력함.