UserForm에 Hyperlink 삽입하기

Step 1: 유저폼 만들기

(1) 먼저 VB Editor 상태에서 유저폼을 하나 삽입하고 아래와 같은 형태로 만듭니다. 여기서는 4개의 Label과 1개의 CommandButton이 사용되었습니다.

아이엑셀러

Step 2: URL 레이블 Click 이벤트

(2) URL이 입력된 Label(http://www.iExceller.com)에 lblURL이라고 이름을 준 후 더블클릭하면 Click 이벤트(lblURL_Click)가 발생하게 되는데 이 때 아래와 같은 코드를 입력합니다.

Private Sub lblURL_Click()
    Dim strURL As String
    strURL = "http://www.iexceller.com"
    On Error GoTo ET
    '//URL명이 잘못되었다든가 접속이 제대로 안 될 경우 등에 대비하여 에러 처리를 위한
    '//부분입니다. 즉 에러가 발생하였을 경우, 바로 ET 부분을 실행하도록 합니다.

    ActiveWorkbook.FollowHyperlink Address:=strURL, NewWindow:=True
    '//FollowHyperlink는 하이퍼링크를 클릭하게 되면 발생되는 이벤트입니다.
    '//Address는 접속할 URL명, NewWindow는 통합 문서에 새 창을 만들기
    '//위한 것입니다.

    Unload Me
    Exit Sub
    '//정상적으로 접속이 되었을 경우에는 유저폼을 종료하고 프로시저를 종료합니다.

ET:
    MsgBox strURL & " 홈페이지에 접속할 수 없습니다", , "접속 실패//Exceller"
End Sub

Step 3: E-Mail 레이블 Click 이벤트

(3) Shift + <F7>키를 눌러 유저폼 상태로 돌아간 다음, E-Mail 계정이 입력된 부분을 더블클릭하고 아래의 코드를 입력합니다.

Private Sub lblEMail_Click()
    Dim strEmail As String
    strEmail = "mailto:exceller@netian.com"
    '//다른 것은 위의 것과 같고 앞에 "mailto:"를 적어주고 메일 계정을 입력한
    '//것이 다릅니다.

    On Error GoTo ET

    ActiveWorkbook.FollowHyperlink Address:=strEmail, NewWindow:=True
    Unload Me
    Exit Sub
ET:
    MsgBox strEmail & " 계정에 접근할 수 없습니다", , "접속 실패//Exceller"

End Sub

마무리

오늘은 짧게 여기까지…

정리 — 유저폼 하이퍼링크 핵심

자주 묻는 질문 (FAQ)

마치며

FollowHyperlink 메서드 하나로 유저폼에서도 홈페이지와 메일 링크를 연결할 수 있습니다.