사각형그리기Ⅱ

Step 1: 변수선언 (Dim)

먼저 사각형그리기 코드의 앞부분입니다.

    Dim intX As Integer
    Dim intY As Integer
    Dim rngAdd As Range

Dim OOO As Integer/Object 이런 것들이 도대체 무엇인지 의문이 들지요? Dim은 Dimension의 줄임말로 '변수선언'이라고 합니다. 프로그래밍을 배울 때 가장 신경쓰이지만 또한 가장 중요한 것이 바로 이 변수선언 입니다. 변수란 무엇이고 이것을 선언한다는 것은 무엇인가? 백문이 불여일견! 직접 확인해 보도록 하지요.

B55, B56 셀에 적당한 숫자(예: 50, 35)를 각각 입력한 후 버튼을 누르세요.(너무 큰 수는 말고!)

답이 탁 나왔지요? 다른 값으로 바꾸어 넣고 다시 위의 버튼을 눌러 보세요. 마찬가지로 답이 나오지요? 위의 버튼은 아래의 코드를 실행시켜 주는 것입니다.

Sub 변수란무엇인가()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer

    i = Sheets("Sheet1").Range("b55").Value
    j = Sheets("Sheet1").Range("b56").Value
    k = i * j
    Sheets("Sheet1").Range("b57") = k
End Sub

위의 예에서 보듯이 변수라는 것은 "수시로 변화하는 어떤 값을 담아두는 그릇"이라고 할 수 있습니다. 그런데 이 그릇에는 싸이즈가 정해져 있고 각 싸이즈별로 많은 종류의 그릇, 즉 변수가 준비되어 있습니다. 슬슬 신경질이 날라구 하지요? 변수도 잘 모르겠는데 한 종류의 변수만 있는 게 아니고 종류별로 있다니!!!

쉽게 설명하자면... 여러분의 집 주방에 있는 그릇들을 한번 떠올려 보세요. 밥을 담는 밥그릇, 국을 담는 국그릇, 반찬 그릇, 간장 종지, 큰 대접 등등등… 얼마나 많은 그릇이 있습니까? 간장을 국그릇에 부어놓고 먹는 사람은 없겠지요.

변수도 마찬가지입니다. 각 상황에 맞는 그릇들을 모두 준비해 두었기 때문에 종류가 많은 것이지요.

B55, B56 셀에 큰 숫자를 한번 넣고 "변수란 도대체 무엇인가" 코드를 다시 한번 실행시켜 보세요.

"오버플로(Overflow)"라는 에러 메시지가 나타나지요?

이것은 준비한 그릇싸이즈보다 더 큰 값이 들어오니까 넘쳐서 나타나는 에러입니다. Dim OOO As Integer에서 Integer 대신에 Double이라고 고쳐 넣고 다시 실행시켜 보시기 바랍니다. 이제는 아무리 큰 값을 넣어도 제대로 실행이 되지요? 이것이 바로 변수의 타입, 즉 종류인 것입니다.

그러면 또 이런 의문이 또 들지요? "그렇다면 처음 시작할 때 부터 큰 변수타입을 선언하면 될텐데 무엇 때문에 작은 변수를 선언하나요?"

라면하나 끓이는 데 가마솥 걸어놓고 끓이는 사람은 없겠지요? 이유는 바로 비경제적이기 때문입니다. 컴퓨터에서 그릇은 메모리와 직결됩니다. 즉 큰 그릇을 많이 준비하면 할수록 시스템의 성능 저하로 연결될 수 있기 때문이지요. 변수에 대해서는 여기까지만 이해하시고 넘어가도록 합니다. 앞으로 계속해서 귀가 아프도록, 아니 눈이 아프도록 반복될 테니까요.

Step 2: 셀 위치를 변수에 담기

    Set rngAdd = ActiveSheet.Range("e5")

다음으로 ActiveSheet라는 것은 말 그대로 Active 즉, 현재 시트라는 뜻이므로 현재 시트의 e5 셀의 위치를 rngAdd라는 변수에 담아둡니다.

Step 3: For ~ Next 구문

    For intX = 20 To 120 Step 10
        For intY = 20 To 120 Step 10
            ActiveSheet.Rectangles.Add(rngAdd.Left + intY, _
                rngAdd.Top + intX, 8, 8).Select
            Selection.Interior.ColorIndex = Int(Rnd * 56) + 1
        Next intY
    Next intX

중요한 For … Next 구문이 나왔네요.

For I = 1 To 100
    …… 어쩌구 저쩌구 ……
Next

라고 하게 되면 "…… 어쩌구 저쩌구 …… "라는 명령을 1에서 100 즉 100번 수행하라는 것입니다.

만약 For … Next라는 구문이 없다면 어떻게 될까요? "…… 어쩌구 저쩌구 …… "라는 문장을 100번 적어주어야 겠지요?

Step 4: 프로시저 마무리

    Range("d4").Select

d4셀을 Select 즉 선택하고 프로시저를 종료합니다.

전체 코드를 이어 붙이면 다음과 같습니다.

Sub MakeRectangles1()
    Dim intX As Integer
    Dim intY As Integer
    Dim rngAdd As Range

    Set rngAdd = ActiveSheet.Range("e5")

    For intX = 20 To 120 Step 10
        For intY = 20 To 120 Step 10
            ActiveSheet.Rectangles.Add(rngAdd.Left + intY, _
                rngAdd.Top + intX, 8, 8).Select
            Selection.Interior.ColorIndex = Int(Rnd * 56) + 1
        Next intY
    Next intX

    Range("d4").Select
End Sub

마무리

실제 코드는 몇 줄 안되는데 이것 저것 설명을 드리다 보니 좀 복잡하게 되어 버렸네요. 위의 내용들 중에서 정작 중요한 것은 검게 색칠된 부분들입니다.

프로그래밍은 반복입니다. 중요한 몇 개의 구문을 가지고 이렇게도 해보고 저렇게도 해보고 하면서 이해하게 되는 것이니까 처음에 잘 이해가 안된다고 해서 "난 안돼!!!" 하지 마시기를…

오늘은 여기까지…

정리 — 변수와 반복문 요약

자주 묻는 질문 (FAQ)

마치며

프로그래밍은 반복입니다. 처음에 잘 이해가 안 된다고 해서 "난 안돼!!!" 하지 마시기 바랍니다.