이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:1]](http://www.abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:111point (7%), 레벨:1/30"){kind=icon}
밥사마안녕하세요. 네이버 통해서 가입한지 하루 되는 회원입니다.
엑셀에 대한 고수 분들이 많은 것 같은데 많은 도움 주고 받았으면 좋겠습니다.
제가 드리고 싶은 질문은요.
그동안 엑셀의 웹커리 기능을 이용해서 표를 불러왔습니다. 하나의 sheet에 300개 정도되는 웹커리가 걸려있는데요.
그 300개 되는 웹커리의 URL이 최근에 바뀌어 버렸습니다ㅠㅠ
다행히 모든게 바뀐게 아니라 공통적인 부분만 바뀌어서 MS office의 바꾸기 기능을 사용하고 싶은데 되질 않더라고요.
혹시 매크로를 통해 웹커리의 주소 변경이 가능한지 여쭤보고 싶습니다.
예를 들면 http://www.abyul.com/zbxe/?mid=aMST_Exel&category=65888&listStyle=webzine&act=dispBoardWrite
에서 zbxe만 park로 바꾸고 싶은겁니다. 근데 하나의 쉬트에 있는 300개 전부를 일괄적으로 바꾸고 싶은거구요.
부탁드리겠습니다.
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
질문을 하시는 문체를 보아하니.. 기본적인 매크로는 활용하실 수 있을 것 같아, 코드만 작성해드립니다.
바꾸고자 하시는 셀 영역을 선택하시고 아래의 매크로 실행시켜주세요.
아래 코드를 참고하세요.
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