통합 문서에서 표시되거나 숨겨진 모든 시트를 나열하는 방법은 무엇입니까?

숨겨진 워크 시트가 포함 된 큰 통합 문서가있는 경우 다음 스크린 샷과 같이 모든 표시 및 숨겨진 시트를 워크 시트에 별도로 나열해야합니다. 이 기사에서는 Excel에서 모든 표시 및 숨겨진 시트를 나열하는 방법에 대해 설명합니다.

문서 목록 보이는 시트 1

VBA 코드로 모든 표시 및 숨겨진 시트를 개별적으로 나열

Excel 용 Kutools를 사용하여 Excel에서 보이는 모든 시트 나열

VBA 코드로 모든 표시 및 숨겨진 시트를 개별적으로 나열

워크 시트에 표시되고 숨겨진 탭 이름을 나열하려면 다음 VBA 코드가 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 이 코드를 실행하기위한 키, 모든 가시적, 숨겨진, 매우 숨겨진 시트는 다음 스크린 샷과 같이 새 시트에 별도로 나열됩니다.

문서 목록 보이는 시트 2

Excel 용 Kutools를 사용하여 Excel에서 보이는 모든 시트 나열

당신이 있으면 Excel 용 Kutools그와 시트 이름 목록 만들기 기능을 사용하면 각 탭에 대한 하이퍼 링크를 사용하여 현재 통합 문서의 모든 보이는 시트를 빠르게 나열 할 수 있습니다.

Excel 용 Kutools : 300 개 이상의 편리한 Excel 추가 기능으로 30 일 동안 제한없이 무료로 사용해 볼 수 있습니다..

다운로드로 이동
30 일 무료 평가판 매수
페이팔 / 마이커머스

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴즈 플러스 > 워크 시트 > 시트 이름 목록 만들기, 스크린 샷 참조 :

2. 에서 시트 이름 목록 만들기 대화 상자 :

(1.) 선택 하이퍼 링크 목록을 포함합니다. 아래 시트 인덱스 스타일 섹션;

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

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

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

문서 목록 보이는 시트 4

3. 그런 다음 Ok 버튼을 클릭하면 모든 보이는 시트가 새 시트에 나열되어 숨겨진 시트를 제외하고 스크린 샷을 참조하십시오.

문서 목록 보이는 시트 5

지금 Excel 용 Kutools 다운로드 및 무료 평가판을 클릭하십시오!

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

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

자세히보기 ... 무료 다운로드... 매수...

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...

코멘트 (2)

아직 평가가 없습니다. 가장 먼저 평가하세요!

Solange

약 1 년 전

#36983

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Da error el codigo que aparece ahi el correcto seria:

서브 네임시트()

희미한 x 길이
희미하게 y만큼
길이만큼 희미한 z
워크시트로 Dim ws
Dim shtCnt를 정수로
Dim i As 정수

X = 1
y = 1.
z = 1
shtCnt = ActiveWorkbook.Sheets.Count
오류에 대한 다음 재개
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
i = 1의 경우 shtCnt로
Sheets(i).Visible = xlSheetHidden이면
셀(x, 2) = 시트(i).이름
엑스 = 엑스 + 1
END IF
Sheets(i).Visible = xlSheetVisible이면
셀(y, 1) = 시트(i).이름
y = y + 1
END IF
Sheets(i).Visible = xlSheetVeryHidden이면
셀(z, 3) = 시트(i).이름
지 = 지 + 1
END IF
다음 i
Application.ScreenUpdating = True
최종 하위

스카이양 Solange

약 1 년 전

#36984

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 솔란지,
귀하의 열성적인 의견에 감사드립니다. 귀하가 제공한 코드와 이 기사의 코드는 모두 잘 작동합니다. 다시 한 번 감사드립니다!

보고서

아직 코멘트가 없습니다

여러분의 의견을 남겨

게스트로 게시

로그인

이름 (필수)

이메일 (필수)

이 게시물 평가 :

다시 쓰기

0 등장 인물

나는에 동의 약관 및 조건