동명이인 검색하기

Step 1: 예제 데이터와 이름 정의

주소록 데이터가 아래와 같이 입력되어 있다고 가정합니다. 이름이 있는 B30:B43 영역에는 미리 List라는 이름을 정의해 둡니다.

이런 식으로 얼마든지 가능합니다. 코드를 볼까요?

Step 2: btnOK_Click 프로시저

Private Sub btnOK_Click()
    Dim rngCell As Range
    Dim r As Integer
    r = 1

    For Each rngCell In Range("List")
    '//이름들이 있는 B30:B43까지의 영역에 List라는 이름을 미리 정의해 두고 사용합니다.

        If rngCell = txtName Then
        '//rngCell의 값과 텍스트 박스를 통해 입력받은 값이 서로 같은지를 비교해서 같을 경우
        '//아래 구문을 실행합니다.

            If r > 1 Then
                If MsgBox("동명이인이 있습니다. 계속 검색할까요?", vbYesNo, _
                    "동명이인 발견//Exceller") = vbNo Then Exit Sub
                '//r이 1보다 크다는 것은 같은 값(이름)이 하나 이상이라는 의미이겠지요? 따라서
                '//그럴 경우에는 메시지 박스를 띄우고 사용자가 계속 검색하고자 할 경우에만
                '//다음 작업을 수행합니다.

            End If
            lblPhone = rngCell.Offset(0, 1)
            lblAddress = rngCell.Offset(0, 2)
            lblCompany = rngCell.Offset(0, 3)
            lblGrade = rngCell.Offset(0, 4)
            r = r + 1
        End If
    Next rngCell

End Sub

엄청 간단하지요? 많이 응용하셔서 여러분 자신만의 주소록을 만들어 보도록 하세요. 만들어서 Exceller에게 보내주시면 등록해 드리겠습니다.

마무리

어느덧 내일모레면 올 한해도 가는군요. 아마 이번 강좌가 2000년의 마지막 강좌가 될 것 같습니다. 한해동안 강좌를 보시느라 수고들 많으셨습니다. 주말, 연휴 잘 쉬시고 새로운 마음으로 2001년 새해에 뵙도록 하겠습니다.

Happy New Year!!!

정리 — 동명이인 검색 핵심

자주 묻는 질문 (FAQ)

마치며

간단한 순환문과 카운터만으로 동명이인을 알려 주는 검색 기능을 만들 수 있습니다.