엑셀에 주소 추가하여 하이퍼링크 생성하기

TC에 번호만 쓰고나서 레드마인 하이퍼링크를 걸고 싶어 궁리해봄

* 스크립트 생성

Alt + F11 > 삽입 > 모듈

아래 코드 붙여넣기 

[IP] 부분 수정

Sub create_HLink()

Dim C As Range

For Each C In Selection

If Not IsEmpty(C) Then

C.Hyperlinks.Delete

s1 = "http://[IP]/issues/"

s2 = C.Value

C.Value = s1 & C.Value

ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value

C.Value = s2

End If

Next C

End Sub

* 스크립트 실행

셀 선택 후 Alt + F8

* 문서 저장