로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2009.09.01 16:14
질문을 하시는 문체를 보아하니.. 기본적인 매크로는 활용하실 수 있을 것 같아, 코드만 작성해드립니다.
바꾸고자 하시는 셀 영역을 선택하시고 아래의 매크로 실행시켜주세요.
아래 코드를 참고하세요.
Option Explicit
Sub changeURL()
Dim strOld As String Dim strNew As String Dim r As Range strOld = "zbxe" strNew = "park" On Error Resume Next For Each r In Selection r.Hyperlinks.Item(1).Address = Replace(r.Hyperlinks.Item(1).Address, strOld, strNew) Next r
End Sub
새 창으로
선택한 기호
질문을 하시는 문체를 보아하니.. 기본적인 매크로는 활용하실 수 있을 것 같아, 코드만 작성해드립니다.
바꾸고자 하시는 셀 영역을 선택하시고 아래의 매크로 실행시켜주세요.
아래 코드를 참고하세요.
Option Explicit
Sub changeURL()
Dim strOld As String
Dim strNew As String
Dim r As Range
strOld = "zbxe"
strNew = "park"
On Error Resume Next
For Each r In Selection
r.Hyperlinks.Item(1).Address = Replace(r.Hyperlinks.Item(1).Address, strOld, strNew)
Next r
End Sub