팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel에서 숨겨진 시트에 대한 하이퍼 링크를 수행하는 방법?

예를 들어, 여러 워크 시트가 들어있는 통합 문서가 있고, 첫 번째 마스터 시트에는 다른 시트에 대한 하이퍼 링크가 있습니다. 이제는 첫 번째 마스터 시트를 제외하고 모든 시트를 숨 깁니다. 이 경우 숨겨진 시트에 링크되는 하이퍼 링크를 사용할 수 없습니다. 그러나 어떻게 이러한 하이퍼 링크를 성공적으로 만들 수 있습니까? 하나의 하이퍼 링크를 클릭하면 연결된 숨겨진 시트가 다음 스크린 샷과 같이 한 번에 열립니다.

doc 숨겨진 시트 1에 대한 하이퍼 링크

하이퍼 링크를 따라 VBA 코드로 숨겨진 시트 열기

하이퍼 링크를 따라 숨겨진 시트를 연 다음 VBA 코드로 다시 숨 깁니다.


모든 워크 시트 이름을 나열하고 각 시트에 링크하십시오.

Excel 용 Kutools's 시트 이름 목록 만들기 유틸리티를 사용하면 필요에 따라 하이퍼 링크 또는 매크로 버튼을 사용하여 새 시트에 모든 워크 시트 이름을 빠르게 나열 할 수 있습니다.

하이퍼 링크가있는 워크 시트 이름 매크로 버튼이있는 워크 시트 이름
doc-list-worksheet-names2  2 doc-list-worksheet-names2  2 doc-list-worksheet-names2

하이퍼 링크를 따라 VBA 코드로 숨겨진 시트 열기


다음 VBA 코드는 상대 하이퍼 링크를 클릭 할 때 숨겨진 워크 시트를 여는 데 도움이 될 수 있습니다.

1. 숨겨진 시트에 대한 하이퍼 링크를 따르려는 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서 튀어 나온 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 모듈에 붙여 넣으십시오.

VBA 코드 : 하이퍼 링크를 따라 숨겨진 시트 열기 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    On Error Resume Next
    If Target.Column = 1 Then
        Sheets(Target.Value).Visible = xlSheetVisible
        Sheets(Target.Value).Select
    End If
    Application.ScreenUpdating = True
End Sub

doc 숨겨진 시트 2에 대한 하이퍼 링크

주의 사항: 위의 코드에서 숫자 1 이번에 If Target.Column = 1 Then 스크립트는 하이퍼 링크가 포함 된 열 번호를 나타내므로 필요에 맞게 변경하십시오.

2. 그런 다음이 코드 창을 저장하고 닫습니다. 이제 특정 숨겨진 시트로 연결되는 하이퍼 링크를 클릭하면 숨겨진 시트가 한 번에 열립니다.


하이퍼 링크를 따라 숨겨진 시트를 연 다음 VBA 코드로 다시 숨 깁니다.

경우에 따라 숨겨진 시트를 열려면 하이퍼 링크를 따라 가야하며, 마스터 시트로 돌아 가면 열린 시트가 다시 숨겨 지도록해야합니다. 아래의 VBA 코드는 여러분에게 호의적입니다.

1. 숨겨진 시트에 대한 하이퍼 링크를 따르려는 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 컨텍스트 메뉴에서 튀어 나온 응용 프로그램 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 모듈에 붙여 넣으십시오.

VBA 코드 : 하이퍼 링크를 따라 가면 숨겨진 시트를 다시 숨길 수 있습니다.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   'Updateby Extendoffice 20161109
    Application.ScreenUpdating = False
    Dim strLinkSheet As String
    If InStr(Target.Parent, "!") > 0 Then
        strLinkSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
    Else
        strLinkSheet = Target.Parent
    End If
    Sheets(strLinkSheet).Visible = True
    Sheets(strLinkSheet).Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    On Error Resume Next
    Sheets(ActiveCell.Value2).Visible = False
End Sub

doc 숨겨진 시트 3에 대한 하이퍼 링크

2. 그런 다음 광고 창을 닫으면 코드 창이 닫히고 하이퍼 링크를 클릭하면 링크 된 숨겨진 시트가 즉시 열립니다. 그러나 하이퍼 링크가 포함 된 마스터 시트로 돌아 가면 열린 시트가 자동으로 다시 숨겨집니다.

주의 사항:이 코드는 하이퍼 링크 텍스트와 일치하는 시트 이름에만 적용됩니다.


데모 : 하이퍼 링크를 따라 VBA 코드로 숨겨진 시트를 엽니 다.

Excel 용 Kutools: 200 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 지금 무료 평가판 다운로드 및 다운로드!


Excel 용 Kutools-최고의 사무 생산성 도구 80 % 생산성 향상

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 60 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ken · 1 years ago
    I would like to use this code but only want it to apply to column A. I have other web address links in other cells which cause a problem when running this code.
  • To post as a guest, your comment is unpublished.
    DNKP · 2 years ago
    My hyperlink "text" is number only, and it doesn't work...
  • To post as a guest, your comment is unpublished.
    Brad Guiso · 2 years ago
    I'm using the code on two different sheets. It works for one of about 40 hyperlinks on one sheet and it opens two of about 10 hyperlinks one she second, the sheets on the second which do open do go back into hiding when I return to the sheet.

    The error I get when it will not open a sheet is Run-time error"9": script out of range and the code it points me to - Sheets(strLinkSheet).Visible = True

    Any ideas as to what change is needed make the code work on all of the sheets?

    Thank you in advance.
  • To post as a guest, your comment is unpublished.
    HelzBelz · 2 years ago
    I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

    Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)
    • To post as a guest, your comment is unpublished.
      Bumi · 2 years ago
      [quote name="HelzBelz"]I have used this code on two different sheets in my workbook, and in both cases it works great, except for the first hyperlink on each page. I get "Subscript out of range error" and the debugger points to the "Sheets(strLinkSheet).Visible = True" right after the "end if".

      Anyone else see this error? It is only on the first link on the page. (my hyperlinks are in column A, and start in row 2)[/quote]
      Sheet names can't have space like "Sheet 1". I fixed my sheet names to "Sheet1" and the error stopped.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I have a sheet that is hidden that contains a hyperlink. I would like to be able go to the hidden sheet and have it close when I go back to the original sheet. I used the code but it does not work.
  • To post as a guest, your comment is unpublished.
    Regina Hardaway · 2 years ago
    I am trying to hide a sheet that has a hyperlink. I would like to be able to click on the sheet go to the hyperlink sheet and then click back to the sheet and close the hidden sheet. I have tried your instructions but it does not work. Not sure what I am doing wrong.