Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet felsorolni a munkafüzet összes látható vagy elrejtett lapját?

Ha van egy nagy munkafüzete, amely tartalmaz néhány rejtett munkalapot, akkor az összes látható és rejtett lapot külön kell felsorolnia egy munkalapon, az alábbi képernyőkép szerint. Ebben a cikkben arról fogok beszélni, hogy az összes látható és rejtett lapot hogyan lehet felsorolni az Excelben.

doc list látható lapok 1

Sorolja fel az összes látható és rejtett lapot külön VBA kóddal

Sorolja fel az Excel összes látható lapját a Kutools for Excel programmal


nyíl kék jobb buborék Sorolja fel az összes látható és rejtett lapot külön VBA kóddal

A látható és elrejtett fülnevek munkalapon történő felsorolásához a következő VBA-kód kedvezhet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Sorolja fel külön-külön az összes látható és rejtett lapot:

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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, az összes látható, rejtett, nagyon rejtett lap külön-külön szerepel egy új lapban, az alábbi képernyőkép szerint:

doc list látható lapok 2


nyíl kék jobb buborék Sorolja fel az Excel összes látható lapját a Kutools for Excel programmal

Ha van Kutools az Excel számára, Annak Létrehozza a munkalapok listáját funkcióval gyorsan felsorolhatja az aktuális munkafüzet összes látható lapját, az egyes lapokra mutató hiperhivatkozásokkal.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap > Létrehozza a munkalapok listáját, lásd a képernyőképet:

2. Az Létrehozza a munkalapok listáját párbeszédablak:

(1.) Válassza ki A hiperhivatkozások listáját tartalmazza alatt a Lap index stílusok szakasz;

(2.) Adja meg a munkalap nevét a lap indexéhez.

(3.) Adja meg a munkalap index helyét.

(4.) Adja meg, hogy hány oszlopban szeretné megjeleníteni a munkalap nevét a lap indexében.

doc list látható lapok 4

3. Kattintson a gombra Ok gombra, az összes látható lap egy új lapra lett felsorolva, kizárva a rejtett lapokat, lásd a képernyőképet:

doc list látható lapok 5

Kattintson a Letöltés és ingyenes próbaverzió Kutools for Excel Now!


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (2)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Da error el codigo que aparece ahi el correcto sorozat: 

Alnévlapok ()

Dim x mindaddig
Dim y As Long
Dim z As Long
Dim ws munkalapként
Dim shtCnt As Integer
Dim i mint egész

x = 1
y = 1
z = 1
shtCnt = ActiveWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = Hamis
Sheets.Add After:=Sheets(Sheets.Count)
Ha i = 1 To shtCnt
Ha Sheets(i).Visible = xlSheetHidden Akkor
Cells(x, 2) = Lapok(i).Név
x = x + 1
Ha véget
Ha Sheets(i).Visible = xlSheetVisible Akkor
Cells(y, 1) = Lapok(i).Név
y = y + 1
Ha véget
Ha Sheets(i).Visible = xlSheetVeryHidden Akkor
Cells(z, 3) = Lapok(i).Név
z = z + 1
Ha véget
Következő i
Application.ScreenUpdating = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Solange!
Köszönjük lelkes megjegyzését, az Ön által megadott kód és a cikkben szereplő kód is jól működik. Még egyszer köszönjük!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi