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.
Sorolja fel az összes látható és rejtett lapot külön VBA kóddal
Sorolja fel az összes látható lapot az Excelben a Kutools for Excel segítségével
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:
Sorolja fel az összes látható lapot az Excelben a Kutools for Excel segítségével
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.
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:
Kattintson a Letöltés és ingyenes próba Kutools for Excel gombra most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!
