Option Explicit
Sub dhGetHyperLinkAddress()
Dim h As Hyperlink
'활성 시트의 하이퍼링크를 순환합니다
For Each h In ActiveSheet.Hyperlinks
If TypeName(h.Parent) = "Range" Then
'해당 하이퍼링크가 워크시트의 범위에 연결되어 있다며
'해당 셀에 하이퍼링크의 주소를 출력하되, mailto:는 삭제합니다
h.Parent.Value = Application.WorksheetFunction.Substitute(h.Address, "mailto:", "")
Else
End If
Next h
End Sub
'Tip & Tech' 카테고리의 다른 글
| 80x15 Brilliant Button Maker (0) | 2006/10/01 |
|---|---|
| 싸이월드 "미니" 미니홈피 - PDA접속화면 (4) | 2006/10/01 |
| 셀에서 mailto 제거하기 (0) | 2006/09/07 |
| 동영상 재생과 함께 설치되는 악성 코드 막기 (2) | 2006/08/26 |
| M/M(Man Month) 이해 (0) | 2006/08/14 |
| 지상파 DMB 구입 보류 (2) | 2006/08/05 |
