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

여러 워크시트가 포함된 워크북이 있고 각 시트로 이동할 수 있는 클릭 가능한 하이퍼링크와 함께 모든 시트 이름을 자동으로 나열하고자 한다고 상상해 보세요. 이 튜토리얼에서는 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 플러스」 > 「워크시트」 > 「링크 테이블 생성」을 클릭하세요。 스크린샷 참조：

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」라는 새 시트 이름에 각각의 시트로 이동하는 하이퍼링크와 함께 나열됩니다。 아래 스크린샷 참조：

관련 문서