VBA 별 찍기 예제

VBA 별 찍기 예제

별 찍는 알고리즘은 실제 업무에서 쓸일이 없어보이긴 하지만 

제어문을 배우는 괜찮은 방법중 하나인 것 같다.

위와 같은 별을 엑셀로 찍어볼 것이다.

소소코드는 매우 간단한다.

Sub printStar()

    

    number_of_stars = 10

    

    For i = 1 To number_of_stars

        For j = 1 To i

            Range("a" & i).Value = Range("a" & i).Value + "*"

        Next

    Next

    

End Sub

end.