Intersect 메서드에 대하여

Step 1: 노란색 셀을 선택해 보세요

강좌를 보시는 분 중에 엑셀이나 VBA 말고도 손재간이 있다고 자타가 인정하는 분이 계시리라 생각합니다. 어디 그런 분은 아래의 테이블 중에서 노란 색으로 색칠한 부분을 한번 선택해 보세요. 재주가 있거든… ^^

누구 선택에 성공하신 분 계신가요? 워크시트 전체를 범위로 지정하면 되지 않겠느냐구요? 어디 한번 해 보세요! 노란색 셀만 선택하면 달아나고 달아나고… 아마 잘 선택이 안될 것입니다.

이것이 바로 Intersect 메서드를 이용한 것입니다.

Step 2: 만드는 순서

(1) 먼저, 노란색 셀 영역을 지정한 다음 범위명을 지정해 줍니다. 범위명을 어떻게 지정하느냐구요?(이런 분이 있다면 큰 일인데… 농담입니다!) Ctrl 키를 사용하여 범위를 다 지정하신 다음 '삽입-이름-정의' 메뉴에서 적당한 이름을 정해 주시면 됩니다. 또는 수식 입력줄 왼편에 있는 이름 상자(Name Box)에 바로 이름을 입력하고 엔터키를 누르셔도 됩니다.

여기서는 'NoTouchArea'라고 이름을 정의하였습니다. 건들지 말라는 뜻에서…

(2) 그런 다음에 시트 탭을 오른쪽 마우스 버튼으로 누르고 '코드 보기' 메뉴를 선택합니다.

(3) '프로젝트 탐색기'에서 Sheet1(Preface) 오브젝트를 더블 클릭하면 오른쪽에 코드 창이 나타날 것입니다. 코드 창 상단에 있는 드롭다운 버튼을 클릭하여 워크시트 오브젝트의 SelectionChange 이벤트를 선택합니다.

아이엑셀러

(4) 아래와 같이 코드를 작성합니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'''SelectionChange 이벤트는 여러분이 워크시트 내의 어떤 셀(또는 영역)을 선택할 때마다
'''발생하는 이벤트입니다. SelectionChange 이벤트 핸들러 프로시저는 기본적으로 Target,
'''즉 현재 선택된 셀(영역)을 프로시저의 인수로 함께 전달합니다.

    Dim rngSelect As Range
    On Error Resume Next
    Set rngSelect = Intersect(Target, [NoTouchArea])
    '''문제의 Intersect 메서드가 드디어 나왔군요! Intersect는 '교차하다, 횡단하다, 가로지르다'
    '''라는 의미를 지니고 있습니다. 사전적인 의미에서도 무슨 역할을 하는 메서드인지 짐작이
    '''가시지요?

    '''학교 다닐 때 수학 시간에 맨 처음 배우게 되는 단원이… '집합'입니다.
    '''집합은 또 부분집합, 교집합, 합집합 등으로 나눌 수 있는데 이 중에서 교집합이 바로
    '''Intersect 메서드에 의해 구해지는 영역인 것입니다. 먼 소린지 이해가 안 가신다구요?
    '''아래 그림을 보세요(참 친절하기도 하다!). A라는 집합과 B라는 집합이 있다고 할 때
    '''서로 중복되는 영역(C)이 존재합니다. 서로 겹쳐지는 이 영역을 구해주는 것이 Intersect
    '''메서드입니다.

    If Not rngSelect Is Nothing Then Target.Next.Select
    '''rngSelect가 Nothing 이라는 것은 위의 그림과 같이 서로 겹쳐지는 영역이 없다는 뜻이겠지요?
    '''그런데 앞에 Not 이라는 단어가 붙어 있으므로 중복되는 영역이 있을 경우, 그 다음 셀을
    '''선택하라는 의미입니다.

End Sub

SelectionChange 이벤트는 여러분이 워크시트 내의 어떤 셀(또는 영역)을 선택할 때마다 발생하는 이벤트입니다. SelectionChange 이벤트 핸들러 프로시저는 기본적으로 Target, 즉 현재 선택된 셀(영역)을 프로시저의 인수로 함께 전달합니다.

Step 3: 문제의 Intersect 메서드

문제의 Intersect 메서드가 드디어 나왔군요! Intersect는 '교차하다, 횡단하다, 가로지르다'라는 의미를 지니고 있습니다. 사전적인 의미에서도 무슨 역할을 하는 메서드인지 짐작이 가시지요? 학교 다닐 때 수학 시간에 맨 처음 배우게 되는 단원이… '집합'입니다. 집합은 또 부분집합, 교집합, 합집합 등으로 나눌 수 있는데 이 중에서 교집합이 바로 Intersect 메서드에 의해 구해지는 영역인 것입니다. 먼 소린지 이해가 안 가신다구요? 아래 그림을 보세요(참 친절하기도 하다!). A라는 집합과 B라는 집합이 있다고 할 때 서로 중복되는 영역(C)이 존재합니다. 서로 겹쳐지는 이 영역을 구해주는 것이 Intersect 메서드입니다.

rngSelect가 Nothing 이라는 것은 위의 그림과 같이 서로 겹쳐지는 영역이 없다는 뜻이겠지요? 그런데 앞에 Not 이라는 단어가 붙어 있으므로 중복되는 영역이 있을 경우, 그 다음 셀을 선택하라는 의미입니다.

응용해 보시면 재미난 것을 많이 만드실 수 있을 것입니다.

다음 시간에 또…

정리 — Intersect 메서드 핵심

자주 묻는 질문 (FAQ)

마치며

Intersect 메서드는 잘 활용하면 여러 경우에 응용할 수 있는 아주 재미있는 메서드입니다.