[사무용 엑셀 매크로] 사각형 그리기 #2 (알록달록 사각형들 그리기)

사각형 그리기 #2 알록달록 사각형들 그리기

 

일정한 크기,개수의 여러 색깔의 사각형을 그리는 코드

 

알록달록 사각형 그리기

 

풀코드

Sub 알록달록사각형()

    Set rect = ActiveSheet.Range("b2")
    
    For X = 20 To 120 Step 10
        For Y = 20 To 120 Step 10
            ActiveSheet.Rectangles.Add(rect.Left + Y, rect.Top + X, 8, 8).Select
            Selection.Interior.ColorIndex = Int(Rnd * 56)
        Next Y
    Next X
End Sub

 

코드 설명

Set rect = ActiveSheet.Range("b2")

B2로 기본 사각형의 위치를 설정

*기본 사각형의 위치를 변경하고싶으면 ("b2") 이 부분을 수정하면 됨

 

For X = 20 To 120 Step 10
    For Y = 20 To 120 Step 10
        .
        .
    Next Y
Next X

가로로 더하는 값은 20 ~ 120 까지이고, 10씩 증가하는 것으로 설정 (20,30 ... 120)

세로로 더하는 값은 20 ~ 120 까지이고, 10씩 증가하는 것으로 설정 (20,30 ... 120)

*증가하는 값을 수정하고 싶으면 Step 뒤의 값을 수정하면 됨

*더하는 값을 수정하고싶으면 X,Y 의 = A To B  에서 A,B를 수정하면 됨

 

ActiveSheet.Rectangles.Add(rect.Left + Y, rect.Top + X, 8, 8).Select

사각형.더하기(기본 사각형의 왼쪽 + 더할 Y값, 기본 사각형의 Top + 더할 X값, 사각형 폭, 사각형 높이).Select

 

Selection.Interior.ColorIndex = Int(Rnd * 56)

사각형의 색상을 정하는 구간

Rnd = 0 ~ 1사이의 숫자를 구하는 함수

Rnd * 56 = 0 ~ 56 까지의 값을 랜덤으로 도출해 낼 수 있다. 

 

Interior.ColorIndex는 아래 그림과 같이 1~56 개의 색상으로 구성되어있다.

따라서 사각형.Interior.ColorIndex = 랜덤한 숫자 

이 뜻은 랜덤한 색상을 지정하는 것이다.

 

Interior.ColorIndex 색상표

 

혹시 필요한 사람들을 위해 파일을 올려두겠다.

basicDrawRectangle2.xltm

0.03MB