콤보박스에 하이퍼링크 연결하기

Step 1: 결과 미리 보기

아주 재미있는 질문을 주셨네요. ^^ "컨트롤 도구모음"에 있는 "콤보박스"를 사용해서 한번 만들어 보았습니다. 아래의 콤보박스에서 원하는 항목을 선택해 보세요.

시트에는 "영역 이동"과 "Site 이동"이라는 이름의 콤보박스 두 개가 있으며, 첫 번째 콤보박스는 시트의 영역 1~7로, 두 번째 콤보박스는 지정한 홈페이지로 이동합니다.

바로 이렇게 되도록 해 달라는 요청이시지요?

Step 2: 콤보박스로 시트 내 영역 이동하기

1. 콤보박스에 책갈피 연결하기("영역 이동" 부분)

(1) "컨트롤 도구 상자"에서 "콤보상자" 아이콘을 클릭한 다음, 콤보박스를 워크시트 상에 하나 그려 넣습니다.(양식 도구모음의 콤보상자가 아닙니다. 주의!!!)

(2) "디자인 모드" 아이콘을 한번 클릭해 주고 콤보박스를 선택하면 (그림 1)처럼 콤보박스 컨트롤 주변에 핸들이 생깁니다. 이 상태에서 "속성" 아이콘을 클릭하면 "속성" 창이 나타납니다.

아이엑셀러

(그림 1)

아이엑셀러

(그림 2)

(3) 여기서 ListFillRange 속성 부분을 보면 H23:H29라는 값이 들어 있습니다. 이 영역에 가 보시면 영역1, 영역 2, 영역 3,… 등의 값이 들어 있습니다. 값을 입력한 다음 글자 색을 흰색으로 지정했기 때문에 눈에 보이지 않을 따름이지요. 그렇지만 콤보박스를 클릭하게 되면 그 값들이 나타나지요.

그러고 보니 ListFillRange 속성은 "양식 도구모음"의 콤보 박스 속성에서 "입력 범위"와 같은 역할을 수행하지요?

(4) "디자인 모드"가 선택되어져 있는 상태에서 콤보박스를 더블클릭하면 VB Editor의 코드입력창이 나타납니다. 만약 더블클릭을 했는데 코드창이 나타나지 않고 드롭다운 목록이 나타나면 (그림 2)의 "디자인 모드" 아이콘을 다시 한번 클릭하세요. 코드입력 창의 이벤트 선택 목록에서 Click 이벤트를 선택하고 아래와 같은 코드를 작성합니다.

Private Sub ComboBox1_Click()
    Dim i As Integer
    i = ComboBox1.ListIndex
    '//콤보박스에서 몇 번째 항목이 선택되었는지 그 값을 변수 I에 저장합니다.

    Select Case i
    '//어떤 항목이 선택되었느냐에 따라 해당 위치로 이동하기 위해 분기문을 사용했습니다.
    '//쓸데없이(?) 길게 코딩을 했습니다만 GoTo Method를 계속 반복해 주었을 뿐입니다.

        Case 0
            Application.Goto Range("Range1"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 1
            Application.Goto Range("Range2"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 2
            Application.Goto Range("Range3"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 3
            Application.Goto Range("Range4"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 4
            Application.Goto Range("Range5"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 5
            Application.Goto Range("Range6"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
        Case 6
            Application.Goto Range("Range7"), False
            MsgBox "영역" & i + 1 & "(으)로 이동하였습니다", , "이동 완료//Exceller"
    End Select
End Sub

Range1~Range7은 시트의 각 영역("여기는 [영역 n]입니다.")에 미리 정의해 둔 이름입니다.

Step 3: 콤보박스로 홈페이지 이동하기

아주 간단하지요? 이번에는 콤보박스의 특정 항목을 선택하면 해당 홈페이지로 이동하는 방법에 대해 알아봅니다.

2. 콤보박스에 책갈피 연결하기("Site 이동" 부분)

(1) ~ (3)까지의 과정은 위의 것과 같으니까 참고하시고… 코드는 조금 다릅니다.

Private Sub ComboBox2_Click()
    Dim i As Integer
    i = ComboBox2.ListIndex
    '//마찬가지로 콤보박스에서 몇번째 항목이 선택되었는지를 변수에 담습니다.

    '//특별하게 설명드릴 부분은 없는 것 같네요. ActiveWorkbook.followhyperlink …
    '//이렇게 해 주면 지정한 홈페이지로 이동하게 됩니다. 그리고 NewWindow 속성은 홈페이지를
    '//열 때 별도의 창을 하나 만들어서 오픈합니다.

    With ActiveWorkbook
        Select Case i
                Case 0
                    .FollowHyperlink Address:="http://www.iexceller.com", NewWindow:=True
                Case 1
                    .FollowHyperlink Address:="http://www.microsoft.com", NewWindow:=True
                Case 2
                    .FollowHyperlink Address:="http://www.pacific.com", NewWindow:=True
                Case 3
                    .FollowHyperlink Address:="http://www.officetutor.com", NewWindow:=True
                Case 4
                    .FollowHyperlink Address:="http://www.laneige.co.kr", NewWindow:=True
        End Select
    End With
End Sub

마무리

많이 응용하셔서 더 재미있는 것들을 만들어 보시기 바랍니다.

다음 시간에…

정리 — 콤보박스 하이퍼링크 핵심

자주 묻는 질문 (FAQ)

마치며

콤보박스와 이벤트 프로시저를 활용하면 메뉴처럼 동작하는 하이퍼링크를 만들 수 있습니다.