수백개의 엑셀 URL에 하이퍼 링크 활성화 하기

네이버 카페에서 커뮤니티를 운영하고 있습니다.

제 카페는 아니고 맡아서 하고 있는데 이번에 진행한 이벤트에 많은 분들이 참여해주셔서 일일히 작성해주신 게시글을 확인해서 정성스럽게 잘 작성된 글을 추려내고 당첨자를 선정해야 하는데요.

원활한 운영을 위해 파이썬으로 게시글을 크롤링해서 엑셀로 저장했습니다.

게시판명과 제목, 닉네임과 아이디, 게시글이 작성된 날짜와 조회수, 그리고 게시글 주소 url을 크롤링 했는데 문제가 있더라구요.

그것은 하이퍼 링크가 적용되지 않았다는 거....

'이걸 어떻게 활성화 해야 하나...' 하면서 하나하나 클릭하고 엔터 치면서 하이퍼 링크 적용시키고 있었는데 아니야 뭔가 있을거야 하고 검색을 해봤는데 엑셀에서 하이퍼 링크 일괄 적용하는 것이 있었네요 !

역시.. 그래야지..

먼저 기본 설정으로 1) 링크 작성시 링크를 걸게 할 수가 있고, 2) 기존 작성되어 있는 링크에 하이퍼 링크를 걸 수가 있습니다.

 

1. 링크 작성 시 하이퍼링크 바로 적용

엑셀에서 왼쪽 상단에 "파일"을 클릭하시면 아래와 같은 창이 뜹니다. 

그리고 "옵션"을 선택해주시면 팝업창이 뜨는데요.

여기에서 "언어 교정" 클릭 후 "자동 고침 옵션"을 클릭해주세요.

작은 창이 하나 더 뜰텐데요. "입력할 때 자동 서식"을 클릭하시고 "인터넷과 네트워크 경로를 하이퍼링크로 설정"이라는 옵션에 체크(√ )표시가 되어 있는지 확인해주시면 됩니다.

 

2. 기존 작성되어 있는 링크에 하이퍼 링크 일괄 적용

하이퍼 링크를 걸어야 할 엑셀 수가 몇 개 되지 않는다면 셀을 더블 클릭 후 엔터를 치거나 "F2"를 누르고 엔터를 칠 수 있습니다. 그런데 이게 수 백, 수 천개라면 현타 옵니다.. ㅋㅋ

(200번 엔터 치다가 쥐날 뻔하고 현타와서 검색해봄....)

키보드에서 "alt + F11"을 눌러보시면 창이 하나 뜹니다(하단 이미지 참고).

VBA = Visual Basic for Applications 입니다.

역시 엑셀은 단축키죠?

왼쪽 alt > i > m 을 순서대로 쳐주시면 모듈을 삽입할 수 있는 코드 입력창이 뜹니다(하단 이미지 참고).

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

 

이제 Module1으로 위 코드가 저장이 되었습니다.

이제 실행을 해보겠습니다.

먼저 링크를 선택해주시구요.

"alt + F8"을 눌러주시면 매크로 창이 실행됩니다.

"실행"을 눌러주니 한 번에 하이퍼 링크가 적용되었습니다.

대박..

빨리 일을 마무리 하고 들어가봐야 겠습니다 :)

네이버 카페 운영자님들 전체 게시글 크롤링, 아이디 추출 필요하시면 댓글로 문의주세요 !