Ինչպե՞ս թվարկել աշխատանքային գրքից բոլոր տեսանելի կամ թաքնված թերթերը:

Եթե ​​ունեք մեծ աշխատանքային գրքույկ, որը պարունակում է որոշ թաքնված աշխատաթերթեր, ապա այժմ անհրաժեշտ է ցուցակում թվարկել բոլոր տեսանելի և թաքնված թերթերը, ինչպես ցույց է տրված հետևյալ նկարը: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես ցուցակագրել բոլոր տեսանելի և թաքնված թերթերը Excel- ում:

Առանձնացրեք բոլոր տեսանելի և թաքնված թերթերը առանձին ՝ 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 Այս ծածկագիրն աշխատեցնելու բանալին, բոլոր տեսանելի, թաքնված, շատ թաքնված թերթերը նշված են նոր թերթում, ինչպես ցույց է տրված հետևյալ նկարը.

Excel- ում Kutools- ի հետ ցուցակեք բոլոր տեսանելի թերթերը Excel- ում

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ստեղծեք թերթիկների անունների ցուցակ առանձնահատկությունը, դուք կարող եք արագ թվարկել ընթացիկ աշխատանքային գրքի բոլոր տեսանելի թերթերը ՝ յուրաքանչյուր ներդիրին հիպերհղումներով:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.

1: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Ստեղծեք թերթիկների անունների ցուցակ, տես նկարի նկարը.

2, Մեջ Ստեղծեք թերթիկների անունների ցուցակ երկխոսության տուփ:

(1.) Ընտրեք Պարունակում է հիպերհղումների ցուցակ տակ Թերթի ինդեքսի ոճերը Բաժին;

(2.) Թերթի ինդեքսի համար մուտքագրեք աշխատանքային թերթի անուն:

(3.) Նշեք աշխատանքային թերթի ինդեքսի գտնվելու վայրը:

(4.) Նշեք, թե քանի սյունակ եք ցանկանում ցույց տալ թերթի ցուցիչում աշխատաթերթի անունները:

3. Եվ այնուհետեւ կտտացրեք Ok կոճակը, բոլոր տեսանելի թերթերը ցուցակագրվել են նոր թերթիկի մեջ, բացառելով թաքնված թերթերը, տես նկարի նկարը.

Կտտացրեք ներբեռնման և անվճար փորձարկման Kutools- ի համար Excel- ը հիմա: