워크북에서 모든 표시된 시트 또는 숨겨진 시트를 나열하려면 어떻게 해야 하나요?

숨겨진 워크시트를 포함하는 큰 워크북이 있고, 아래 스크린샷과 같이 워크시트에 표시된 모든 시트와 숨겨진 시트를 각각 나열해야 한다고 가정해 보겠습니다. 이 문서에서는 Excel에서 모든 표시된 시트와 숨겨진 시트를 나열하는 방법에 대해 설명하겠습니다.

VBA 코드로 모든 표시된 시트와 숨겨진 시트를 분리하여 나열하기

Kutools for Excel을 사용하여 Excel에서 모든 표시된 시트 나열하기

VBA 코드로 모든 표시된 시트와 숨겨진 시트를 분리하여 나열하기

워크시트에 표시된 탭 이름과 숨겨진 탭 이름을 나열하려면 다음 VBA 코드가 도움이 될 수 있습니다. 아래 단계를 따라 주세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 모든 표시된 시트와 숨겨진 시트를 분리하여 나열하기:

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 아래 스크린샷과 같이 새 시트에 모든 표시된 시트, 숨겨진 시트, 매우 숨겨진 시트가 각각 나열됩니다.

Kutools for Excel을 사용하여 Excel에서 모든 표시된 시트 나열하기

Kutools for Excel이 있다면, 링크 테이블 생성 기능을 사용하여 현재 워크북의 모든 표시된 시트를 각 탭으로 연결되는 하이퍼링크와 함께 빠르게 나열할 수 있습니다.

Kutools for Excel 설치 후, 다음과 같이 진행하세요:

1. Kutools Plus > 워크시트 > 링크 테이블 생성을 클릭합니다. 스크린샷 참고:

2. 링크 테이블 생성 대화 상자에서:

(1.) 스타일 섹션에서 하이퍼링크 생성 옵션을 선택합니다.

(2.) 시트 인덱스에 대한 워크시트 이름을 입력합니다.

(3.) 워크시트 인덱스의 위치를 지정합니다.

(4.) 시트 인덱스에서 워크시트 이름을 표시할 열 수를 지정합니다.

3. 그런 다음 확인 버튼을 클릭하면, 숨겨진 시트를 제외한 모든 표시된 시트가 새 시트에 나열됩니다. 스크린샷 참고: