간이식단표 만들기

Step 1: 엑셀은 무엇일까요?

주변의 사람들에게 "엑셀이 무어냐?"라고 물어보면, 대개의 사람들이 그럽니다.

엑셀이 방대한 숫자 데이터를 계산하기 위한 용도로 처음에 만들어졌고 그 방면으로 많은 진화를 해 온 것은 부인할 수 없는 사실입니다만, 수치계산을 위한 전용 프로그램은 절대로 아닙니다.

엑셀은 (업무를 포함한) 강력한 정보분석 도구인 동시에 경영전략 도구입니다. (꼭 Microsoft사 홍보담당 같은 소리로 들리실 수도 있겠습니다만, Exceller는 개인적으로 Microsoft사와는 아무런 관련이 없음을 다시 한번 밝힙니다. ^^)

흔히들 經營이라고 하면 커다란 회사와 방대한 조직을 연상하게 됩니다. 하지만 경영이란 것이 꼭 기업체를 운영하고 관리하는 것만은 아닙니다. 주어진 자원을 어떻게 하면 적재적소에 배분하여 최적의 효율을 얻을 수 있을까를 연구하고 실행에 옮기는 것은 모두 '경영'이라 부를 수 있을 것입니다.

그런 의미에서… 우리 몸을 잘 관리하는 것도 경영입니다. 자신의 몸을 건강한 상태로 잘 관리하는 분은 훌륭한 경영자로서의 자질을 충분히 가지고 있다고 생각하셔도 좋겠습니다.

오늘 질문주신 분의 경우처럼, 가족의 건강을 위해 주어진 예산으로 식단을 어떻게 구성할까 고민하는 것도 경영이라 할 수 있겠지요(경영학도들께 혼날 소리를 하는 지도 모르겠군요. 하지만 잘 이해해 주시리라 믿고… ^^*).

Step 2: 요리책 데이터와 콤보 상자

'요리책' 시트에는 그림과 같은 데이터가 들어 있습니다.

아이엑셀러

여기서 음식이름을 선택하면 그 음식의 재료가 한번에 좌르륵 나오도록 해 달라는 주문이신 듯 합니다. 아래 콤보 박스에서 음식을 선택해 보세요. 콤보 박스로 선택한 음식의 번호는 INDEX 함수로 음식 이름으로 바꾸어 표시됩니다.

코딩에 들어가기에 앞서, 워크시트의 특정 영역에 몇 개의 이름을 미리 정의해 두었습니다. 어느 부분에 어떤 이름이 정의되어 있는지 '삽입-이름-정의' 메뉴를 이용하여 살펴보세요.

Step 3: 코드 살펴보기

그럼. 콤보 박스에 연결된 코드를 살펴볼까요?

Sub FoodSource()

    Dim rngCell As Range
    Dim rngFood As Range
    Dim i As Integer

    Set rngFood = Range("음식")
    ' C78 셀에 미리 '음식'이라는 이름을 정의해 두었습니다.

    With rngFood
        Range(.Offset(1, 0), .Offset(2, 0)).EntireRow.ClearContents
        ' 데이터를 출력할 곳을 깨끗이 정리합니다.

    End With

    For Each rngCell In Worksheets("요리책").Range("음식이름")
    ' 이제 '요리책' 워크시트의 A열에 있는 각 셀과 콤보 박스를 통해 선택된 음식이름(rngFood)을
    ' 차례차례 비교해 나갑니다.

        With rngFood
            If IsEmpty(rngFood) Then
            ' 사실 이 부분은 거의 필요가 없으나 지우기 귀찮아서 그냥 둡니다. ^^
            ' 원래 유효하지 않은 음식이름이 선택된 경우에 대한 에러 처리를 위해 만든 것입니다.
            ' 코드를 알아서 적절히 수정하시기 바랍니다.

                .EntireRow.ClearContents
                Exit For
            ElseIf rngFood = rngCell Then
            ' 여기서부터가 바로 우리가 작업하고자 하는 부분입니다.
            ' 요리책 시트의 A열에 있는 음식이름과 콤보 상자를 통해 선택된 음식이름을 비교하여
            ' 같으면 해당 데이터를 차례대로 정해진 위치로 불러오는 것입니다.
            ' 코드 자체는 전혀 어려운 부분이 없습니다.

                .Offset(1, -2) = "재료이름"
                .Offset(2, -2) = "수량"
                .Offset(1, i - 1) = rngCell.Offset(0, 1)
                .Offset(2, i - 1) = rngCell.Offset(0, 2) & rngCell.Offset(0, 3)
                i = i + 1
            End If
        End With
    Next rngCell

End Sub

생각보다 아주 간단하지요? Range 오브젝트에 대한 기초만 있다면 A piece of cake!, 누워서 떡먹기 보다 쉽습니다. ^^ VBA 입문강좌에서 설명드리고 있는 Range 오브젝트 관련 강좌들을 다시 한번 정리해 두시고 많이 응용해 보시기 바랍니다.

다음에 또…

정리 — 간이 식단표 코드 핵심

자주 묻는 질문 (FAQ)

마치며

Range 개체의 기초만 알면 누워서 떡 먹기보다 쉬운 코드입니다. VBA 입문 강좌의 Range 오브젝트 관련 내용을 정리해 두고 많이 응용해 보세요.