자동 필터 응용 예제

Step 1: 어떤 질문이었을까요?

이런 문제는 자동 필터보다 고급 필터를 사용하시면 VBA로 코딩을 할 필요도 없을 것 같기도 합니다만, 일단 출제 의도(?)에 충실하여 해결해 보도록 하지요.

아래의 노란색 셀을 클릭하면 선택된 담당별로 Source 시트에 필터링 됩니다. 각 셀을 클릭하여 확인해 보세요.

(다른 것은 잘 모르겠고…) 희안한 것이 하나 있습니다. 어떻게 셀을 클릭했는데 매크로가 실행이 되는 것일까요? 아주 오래 전 강좌에서 소개를 드린 기억이 나는데… 이것은 약간의 트릭을 사용한 것입니다.

즉, 셀에 직접 매크로를 연결시킬 수는 없으므로 셀 크기와 정확히 일치하도록 도형(사각형)을 삽입한 다음 여기에 매크로를 연결한 것입니다. 각 담당명을 마우스 오른쪽 버튼으로 클릭하고 '매크로 지정' 명령을 선택해 보면 다음과 같이 매크로가 연결되어 있음을 알 수 있습니다.

아이엑셀러

Step 2: 코드 살펴보기

작성된 코드를 살펴보도록 하지요.

Sub Master()
    Dim strX As String
    strX = ActiveSheet.Rectangles(Application.Caller).TopLeftCell.Value
    ' Application.Caller 속성을 이용하여 선택된 사각형 아래에 있는 담당이름을 파악합니다.

    Filter strX
    ' Filter라는 외부 프로시저를 호출합니다. 이 때 Caller 속성을 이용하여 알아낸 담당이름을
    ' 함께 건네 줍니다.

End Sub

Master 프로시저에서 호출한 외부 프로시저(Filter)의 내용은 이렇습니다.

Sub Filter(strX As String)
' Master 프로시저로부터 넘겨받은 변수를 가져와서 실행합니다. 만약 B26 셀이 선택되었다면
' 매개변수 strX에는 '김담당'이라는 문자값이 저장되어 있을 것입니다.

    Dim rngStart As Range
    Dim rngSource As Range

    Set rngStart = Range("Start")
    Set rngSource = rngStart.CurrentRegion

    Application.Goto rngStart, False
    Selection.AutoFilter
    rngSource.AutoFilter Field:=1, Criteria1:=strX
    ' 자동 필터를 설정할 때 필터 기준으로 strX 변수값을 이용합니다.

    MsgBox strX & " 을 기준으로 필터링 하였습니다"

End Sub

코드는 간단하지만 응용해 보시면 재미있는 것을 많이 만드실 수 있을 것입니다.

다음 시간에…

정리 — 클릭 자동 필터 코드 핵심

자주 묻는 질문 (FAQ)

마치며

코드는 간단하지만 도형과 Application.Caller를 응용하면 재미있는 것을 많이 만들 수 있습니다. 여러분의 업무에 맞게 응용해 보세요.