통합 문서에서 모든 워크시트 이름 목록을 생성하는 방법은 무엇인가요?

여러 워크시트가 포함된 통합 문서가 있고, 모든 시트 이름을 자동으로 나열하고 각 해당 시트로 이동할 수 있는 클릭 가능한 하이퍼링크를 추가하려고 한다고 상상해 보세요. 이 튜토리얼에서는 Excel에서 워크시트 이름 목록을 생성하는 빠르고 효과적인 방법을 제공합니다.

수식을 사용하여 통합 문서의 모든 워크시트 이름 목록을 동적으로 가져오기

Kutools for Excel을 사용하여 통합 문서의 모든 워크시트 이름 목록 가져오기

VBA 코드를 사용하여 통합 문서의 모든 워크시트 이름 목록 가져오기

수식을 사용하여 통합 문서의 모든 워크시트 이름 목록을 동적으로 가져오기

Excel에서는 범위 이름을 정의한 다음 수식을 적용하여 현재 통합 문서의 모든 시트 이름을 나열할 수 있습니다. 아래 단계에 따라 진행하세요:

1. "수식" > "이름 관리자"를 클릭하세요. 스크린샷 참고:

2. "이름 관리자" 대화 상자에서 "새 이름" 버튼을 클릭하세요. 스크린샷 참고:

3. 새로 열리는 "새 이름" 대화 상자에서 "이름" 텍스트 박스에 이름을 지정하고, 아래 수식을 "참조 대상" 텍스트 박스에 복사하세요. 스크린샷 참고:

=GET.WORKBOOK(1)&T(NOW())

4. 그런 다음 "확인" > "닫기"를 클릭하여 대화 상자를 닫습니다. 이제 모든 시트 이름을 나열하려는 시트로 이동하여 빈 셀에 다음 수식을 입력하세요:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

참고: 위 수식에서 "Sheetnames"는 3단계에서 생성한 범위 이름입니다.

5. 그리고 드래그 핸들을 빈 셀이 표시될 때까지 아래로 드래그하면, 현재 통합 문서의 모든 시트 이름이 아래 스크린샷과 같이 나열됩니다:

6. 각 시트에 대한 하이퍼링크를 생성하려면 아래 수식을 사용하세요:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

참고: 위 수식에서 "A2"는 시트 이름이 포함된 셀이고, "A1"은 활성 셀이 위치해야 하는 셀입니다. 예를 들어, 하이퍼링크 텍스트를 클릭하면 해당 시트의 A1 셀로 이동합니다.

7. 이제 하이퍼링크 텍스트를 클릭하면 해당 시트로 이동합니다. 아래 데모를 참조하세요:

Kutools for Excel을 사용하여 통합 문서의 모든 워크시트 이름 목록 가져오기

"Kutools for Excel"이라는 타사 추가 기능의 "링크 테이블 생성" 유틸리티를 사용하면 한 번의 클릭으로 워크시트 이름 목록을 생성하고, 각 워크시트에 하이퍼링크를 연결할 수 있습니다.

1. "Kutools Plus" > "워크시트" > "링크 테이블 생성"을 클릭하세요. 스크린샷 참고:

2. "링크 테이블 생성" 대화 상자에서 다음 설정을 지정하세요:

(1.) 원하는 "시트 인덱스 스타일"을 선택하세요. 하이퍼링크 또는 매크로 버튼을 포함한 워크시트 이름을 생성할 수 있습니다. (2.) 시트 인덱스에 대한 워크시트 이름을 입력하세요. (3.) 워크시트 인덱스의 위치를 지정하세요. (4.) 새 워크시트에서 워크시트 이름을 표시하기 위해 사용할 열 수를 지정하세요.

3. 설정을 완료한 후 "확인"을 클릭하세요. 현재 통합 문서의 새 워크시트에 모든 워크시트 이름이 링크와 함께 나열됩니다. 스크린샷 참고:

하이퍼링크가 포함된 워크시트 이름	매크로 버튼이 포함된 워크시트 이름

VBA 코드를 사용하여 통합 문서의 모든 워크시트 이름 목록 가져오기

1. "ALT" + "F11" 키를 누르면 "Microsoft Visual Basic for Applications" 창이 열립니다.

2. "삽입" > "모듈"을 클릭하고 "모듈" 창에 다음 매크로를 붙여넣으세요.

VBA: 새 워크시트에 하이퍼링크가 포함된 모든 워크시트 이름 나열하기:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. "F5" 키를 눌러 매크로를 실행합니다. 활성 통합 문서의 모든 워크시트 이름이 "Index"라는 새 워크시트에 하이퍼링크와 함께 나열됩니다. 스크린샷 참고:

관련 기사