나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 winsco (samdashg)

추천:  2
파일:     조회:  2066
제목:   하이퍼링크 매크로
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):2010

* 아래줄에 질문을 작성하세요 >>
한 시트 열에 회사이름들이 쭉 기록되어 있고 나머지 시트에는 각회사 관련 자료가 기록되어 있는데 열에 기록되어 있는 회사이름을 클릭하면 해당회사 시트가 열리도록 매크로할 수 있는 방법 알려주세요.
 
[불량 게시물 신고]  
조삿갓그거는 매크로까지 필요 없고 그냥 하이퍼링크로 지정하면 됩니다.
1) 회사 이름이 기록된 셀을 선택한 상태에서
2) 삽입 > 하이퍼링크 메뉴 실행
3) 연결 대상으로 '현재 문서' 선택
4) 참조할 셀 입력 창에 A1(그냥 시트만 전환할 경우)
   (만일 그 시트로 전환하여 특정 셀을 바로 가고 싶으면
    그 셀의 주소를 지정함)
5) 이 문서에서 위치 선택 항목을 보면 시트들과 정의된 이름의 트리구조가 보입니다. 거기서 링크할 시트를 선택하고
6) [확인] 버튼 누르면
끝!
07-14 (00:02)
삭제 ■신고
조삿갓만약 회사 수가 아주 많아서
 이 작업을 자동으로 하고 싶다면
 다음 코드를 모듈에 입력하고 실행해 보세요.
 (단, 링크할 시트 이름이 각 셀에 입력되어 있어야 함)

Sub SetLink()
     Do Until IsEmpty(ActiveCell)
         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="" _
                     , SubAddress:="'" & ActiveCell.Value & "'!A1"
         ActiveCell.Offset(1, 0).Select
     Loop
 End Sub
07-14 (00:15)
삭제 ■신고
조삿갓코드를 이해할 수 있으면 아시겠지만,
현재 선택된 셀(ActiveCell)을 기준으로 아래로 쭈욱 진행하면서
빈 셀을 만날 때까지 하이퍼링크를 자동 삽입합니다.
즉, 매크로 실행 전에 셀 선택을 잘 하셔야 합니다.
07-14 (00:18)
삭제 ■신고
        
  

작성일 : 2018-07-13(18:31)
최종수정일 : 2018-07-13(18:31)