: S/W

엑셀에서 하이퍼링크 자동으로 생성/제거하는 방법 - 매크로 기능을 이용하여

CDL 2009. 8. 24. 17:24

# 하이퍼링크 생성 방법
: 아래 소스와 같이 'create_HLink' 매크로 생성 후, URL 정보가 있는 셀을 범위지정하고 'create_HLink' 매크로 실행
Sub create_HLink()
   
  Dim C As Range
   
  For Each C In Selection
    If Not IsEmpty(C) Then
      C.Hyperlinks.Delete
      ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value
    End If
  Next C
   
End Sub



# 하이퍼링크 제거 방법
: 아래 소스와 같이 'delete_HLink' 매크로 생성 후, URL 정보가 있는 셀을 범위 지정하고 'delete_HLink' 매크로 실행
Sub delete_HLink()

  Selection.Hyperlinks.Delete

End Sub