|
:: 게시판
:: 이전 게시판
|
- PGR21 관련된 질문 및 건의는 [건의 게시판]을 이용바랍니다.
- (2013년 3월 이전) 오래된 질문글은 [이전 질문 게시판]에 있습니다. 통합 규정을 준수해 주십시오. (2015.12.25.)
통합규정 1.3 이용안내 인용"Pgr은 '명문화된 삭제규정'이 반드시 필요하지 않은 분을 환영합니다.법 없이도 사는 사람, 남에게 상처를 주지 않으면서 같이 이야기 나눌 수 있는 분이면 좋겠습니다."
16/12/02 10:22
어.. 어느정도 엑셀 쓰신다는 기준으로 말씀드리겠습니다.
텍스트 나누기로 웹사이트 이름과 하이퍼링크 구분하세요. 하이퍼 링크가 들어있는 셀은 실제로 링크가 안걸리고 텍스트일껍니다. 그 부분 선택한 후에. 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 이걸로 매크로 지정해서 작업하시면 됩니다. 구글에서 긁어왔는데.. 구글 검색 한번 해보시면 더 자세한거 아실수 있을껍니다..
16/12/02 10:39
긁적긁적; 우선 답변 감사드립니다.. 만;
엑셀에 보이는 기능들만 겨우겨우 찾아서 쓰는 비루한 실력이라; 매크로나 이런건 어떻게 적용해야하는지;; 일단 입력되어있는 데이타들은 각 사이트의 제목에 하이퍼링크가 걸려있어 클릭하면 이동할 수 있는 상태입니다. 어찌어찌 위의 매크로 복사해다가 데이터들 블록지정해서 실행해봤더니 아무 동작이 없네요 허허;
16/12/02 11:15
어.. 좀 글로 설명하기가 어렵겠네요. 음. 마침 월급루팡 중이라 좀 설명을 드리면
일단 데이터가 A열에 세로로 다 있고 사이트명과 URL은 () 로 되어 있다고 가정하겠습니다.. 1. A열 선택후 데이터 > 텍스트 나누기 2. 구분기호로.. 선택 > 구분기호에 기타 ( 선택 3. 사이트명은 A열, URL은 B열로 나눠진다.단 URL 끝에 ) 가 붙어있다. 4. 전체 선택후 ctrl+r로 ) 선택하고 바꾸기에 빈칸 놓고 실행 > ) 제거 5. Alt+F11 로 비주얼 베이직 실행 > VBA 프로젝트 창에서 현재 시트 마우스 우클릭 > 삽입 > 모듈 6. 새창이 뜬다 > 새창에 위 칸의 잘 알수 없는 문자;; 를 Sub 부터 End Sub 까지 복사해서 붙혀넣기 > 비주얼 베이직 닫는다. 7. B열 모두 선택 > 매크로 실행 > 실행창에서 create_HLink 되어 있나 확인 > 실행 8. Profit! 이정도 겠네요. 참고로 엑셀버전에 따라 메뉴나 도구 위치가 다를 수 있습니다...
16/12/02 11:28
감사합니다!
구글링도 해보고 해서 다음과 같은 매크로를 적용했더니 Sub url추출() On Error Resume Next Dim rngCell As Range Dim InkLink As Hyperlink For Each InkLink In ActiveSheet.Hyperlinks With InkLink.Parent .Offset(0, 1) = .Hyperlinks.Item(1).Address End With Next InkLink End Sub 하이퍼링크가 추출되는 셀이 있고 안되는 셀이 있네요? 문제가 새로운 국면으로;;;
16/12/02 11:21
아 그리고 텍스트 나누기 & ) 제거 만 해도 URL이 텍스트 형태로 분리는 되어 있습니다만 클릭하면 이동하지 않습니다.
왜냐믄 형식이 TXT라서 URL 구문이 안걸리는 건데, 해당셀에서 엔터 치시면 URL로 변경되는 걸 보실수 있을껍니다. 위 매크로는 그걸 URL 로 바꿔주는 매크로고.. 핵심은 이겁니다. ActiveSheet.Hyperlinks.Add Anchor:=C, Address:=C.Value, TextToDisplay:=C.Value 현재시트에서 하이퍼링크를 add해라, 주소값는 텍스트로 보이는 데로. 이뜻입니다.. 정 매크로를 못하시겠다면 데이터량이 얼마나 되는지는 모르겠는데.. 텍스트 나누기와 ) 제거이후 URL 셀에서 F2, 엔터 F2, 엔터 F2, 엔터 F2, 엔터 막 반복하는 상 노가다법도 있습니다.. 엔터칠때 엑셀이 URL형태로 인식하니까요....
16/12/02 11:31
아 텍스트 나누기가 뭔가 했더니 제가 설명을 잘못 드렸나봐요 흐흐
저 네이버 텍스트가 입력되어있는 셀 자체에 주소 하이퍼링크가 걸려있고 괄호안에 URL이 적혀있는게 아닙니다; 그리고 어찌어찌하다보니 해결 할 수 있을 것 같습니다! 감사합니다!
|
||||||||||