조건에 맞는 모든 자료 출력하기

Step 1: 결과 Table과 Source Table

단가를 선택하면 아래 왼쪽의 <결과 Table>에 해당 단가의 자료가 모두 나타납니다(예: 단가 10000을 선택한 경우). 오른쪽은 원본인 <Source Table>입니다.

결과 Table

Source Table

지금까지 강좌를 충실히… 까지도 아니고 대충대충 따라하신 분들이라면 이런 문제는 눈감고도 만드실 수 있으리라 생각이 됩니다. ^^;

Step 2: SearchData 프로시저

Sub SearchData()
    Dim rngStart As Range
    Dim rngTarget As Range
    Dim rngCell As Range
    Dim rngPrice As Range
    Dim r As Integer

    Set rngStart = Range("Start")
    '//검색결과를 뿌려 줄 셀에 Start라는 이름을 미리 정의해 두었습니다. 이름 상자(Name Box)에
    '//가서 확인해 보세요. 이것 말고도 몇 개의 이름이 더 정의되어 있을 것입니다.
    '//코딩을 할 때 이름을 정의해 두고 사용하는 것은 아주 좋은 방법이라고 말씀드렸지요?

    Range(rngStart, rngStart.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).ClearContents
    Range("Start").Select
    '//검색결과를 출력할 부분(여기서는 <결과 Table>부분이 되겠지요?)에 찌꺼기가 들어 있으면
    '//지워 줍니다.

    Set rngTarget = Range("Target")
    Set rngPrice = Range("Price")
    '//여기서 Target은 콤보박스의 선택 결과값을 돌려주는 셀, Price는 <Source Table> 중에서
    '//가격에 해당되는 부분에 각각 이름을 정의해 두고 사용합니다. 역시 이름 상자에 가서
    '//어떤 영역인지 확인해 보세요.

    For Each rngCell In rngTarget
        If rngCell = rngPrice Then
            rngStart.Offset(r, 0) = rngCell.Offset(0, -2)
            rngStart.Offset(r, 1) = rngCell.Offset(0, -1)
            r = r + 1
        End If
        '//이제 순환문을 돌면서 콤보박스에서 선택한 가격과 rngTarget 영역의 모든 셀 값을 비교해서
        '//같은 값이면 Start 셀에서 Offset 함수로 지정해 준 위치로 이동한 다음 결과값을 뿌려주는
        '//것입니다.

    Next rngCell
    MsgBox r & " 개의 레코드를 추출하였습니다", , "작업 완료//Exceller"

End Sub

마무리

생각보다 엄청나게 간단하지요? 간단하다고 생각하시는 분은 강좌를 잘 이해하고 넘어오신 분이라고 할 수 있고 '남이 짠 걸 볼 때는 쉬운데 막상 간단한 거라도 직접 짜보려고 하면 안된다'고 생각하시는 분은 아직 강좌를 내 것으로 완전히 소화하지 못했다고 생각하시면 됩니다. 아무리 간단한 코드라도 눈으로 대충대충 보고 넘어가시지 말고 반드시 직접 타이핑 해가며 수정해 보시기 바랍니다.

이번 시간에 설명드린 것도 간단하기는 하지만 여러분들의 활용여하에 따라서 아주 유용하게 사용할 수 있는 것이니까 꼭 내 것으로 만드시면 좋을 것입니다.

다음 시간에 또…

정리 — 조건 자료 출력 핵심

자주 묻는 질문 (FAQ)

마치며

순환문과 Offset을 활용하면 조건에 맞는 자료를 빠짐없이 추출하는 기능을 간단히 만들 수 있습니다.