저는 앞마당 단지리스트를 하이퍼링크를 걸어서 시세를 파악하는데요.
8월 중순부터 위와 같이 갑자기 사이트 오류 발생 하고 있어서 불편을 겪고 있습니다.
혹시 저처럼 고생하고 있으실 동료분들께 엑셀 매크로를 통해 조치하는 방법 공유드립니다.
차근차근 해보시면, 기존처럼 단지 클릭시 하이퍼링크로 해당 단지 바로 접속 가능 하십니다.
■ 여러셀 동시에 선택시 한꺼번에 열리는 문제가 있어, 여러셀 선택하더라도 하나만 열리는 코드로 수정합니다.
■ 코드는 아래 댓글에 넣어드렸습니다. 복붙해서 사용하시고, 하이퍼링크 걸려있는 셀영역만 수정하면됩니다.
댓글
[1번 매크로 _아래 복사해서 붙여 넣기] Sub OpenSingleURLinEdge() Dim cell As Range ' 선택한 셀 중 첫 번째만 확인 Set cell = Selection.Cells(1, 1) If cell.Hyperlinks.Count > 0 Then Shell "cmd /c start msedge """ & cell.Hyperlinks(1).Address & """", vbHide End If End Sub
[2번 매크로 _ 아래 복사해서 붙여 넣기] Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ▼▼▼ 여기를 수정하세요 ▼▼▼ ' 1. 어떤 셀을 클릭했을 때 매크로를 실행할지 정하는 부분 If Not Intersect(Target, Range("J:J")) Is Nothing Then ' 2. 어떤 매크로를 실행할지 정하는 부분 Call OpenSingleURLinEdge End If ' ▲▲▲ 여기까지 수정하세요 ▲▲▲ End Sub
