HYPERLINK 설정 & 이름 복사하기

Step 1: 이름 옆 URL로 하이퍼링크 걸기

아래 버튼을 클릭하면 InputBox가 나타나는데 여기서 해당 영역(위의 표에서 빨간 점선 네모 부분)을 지정해 보세요.

바로 이렇게 되도록 해 달라는 요청이시지요? 코드를 살펴볼까요? 몇 줄 되지도 않는 아주 간단한 코드입니다.

Step 2: MakeHyperlink 프로시저

Sub MakeHyperlink()
    Dim rngCell As Range
    Dim rngTarget As Range
    Dim Msg As String
    On Error GoTo ET
    '//에러가 발생할 경우 에러 트래핑 구문인 ET로 갑니다.

    Set rngTarget = Application.InputBox("하이퍼링크를 설정할 영역을 지정하세요",  _
        "대상영역 지정//By Exceller", Type:=8)
    '//InputBox를 사용해서 사용자가 지정한 대상영역을 받아옵니다. 값이 아닌 Range를
    '//받기 위해서 그냥 InputBox 함수가 아니라 Application.InputBox라고 해 주었습니다.
    '//이 둘의 차이점은 아시지요? ^^

    For Each rngCell In rngTarget
        rngCell.Hyperlinks.Add anchor:=rngCell, Address:=rngCell.Offset(0, 1).Value
        '//사용자가 지정한 영역이 유효한 영역이면 For ~ Next 순환문을 돌면서
        '//하이퍼링크를 설정합니다. 지정한 영역의 바로 옆 셀의 값을 사용하므로
        '//…,Address:=rngCell.Offset(0,1)이 되는 것입니다.

    Next rngCell
    Exit Sub
ET:
    Msg = "유효하지 않은 영역입니다!" & vbCr
    Msg = Msg & "영역을 다시 확인하세요"
    MsgBox Msg, , "영역 설정 오류//By Exceller"
End Sub

Step 3: 이름 정의를 다른 파일로 복사하기

오늘은 짧게 여기까지…만 하려니까 좀 허전하지요? 질문 하나를 더 소개해 드리지요.

현재 파일의 특정 영역에 이름을 정의해 두고 사용하였는데 이것을 다른 파일로 복사를 할 경우, 종전의 이름을 그대로 사용하고 싶다는 질문이시군요.

작업 중인 파일의 여러 범위에다 이름을 정의해 두었는데 이것을 다른 파일에서 사용하고자 할 경우, 각각의 범위를 일일이 다시 지정한다는 것은 비효율적인 일이라 할 수 있겠지요? 또한 VBA를 배운 사람의 태도도 아닐 것입니다. ^^

이런 경우, 아래의 코드를 응용해서 사용해 보시기 바랍니다. 이것은 현재 워크북에 정의되어 있는 이름들을 MyXls.xls라는 파일에 한꺼번에 샤악 복사하는 코드입니다. 코드가 간단하니까 별도의 설명은 필요없으리라 생각됩니다.

Sub CopyCurrentNames()
    Dim MyName As Name
    '//다른 것은 설명드릴 것도 없고, Name 개체를 하나 정의해 두고 순환문을 돌면서
    '//순차적으로 접근해가며 사용하는 방법을 주의깊게 살펴보시기 바랍니다.

    For Each MyName In ActiveWorkbook.Names
        Workbooks("MyXls.xls").Names.Add Name:=MyName.Name, RefersTo:=MyName.Value
    Next MyName
End Sub

마무리

다음 시간에…

정리 — 하이퍼링크와 이름 복사 핵심

자주 묻는 질문 (FAQ)

마치며

몇 줄의 코드로 하이퍼링크를 일괄 설정하고 이름 정의도 한꺼번에 옮길 수 있습니다.