Hur listar jag alla synliga eller dolda ark från arbetsboken?
Om du har en stor arbetsbok som innehåller några dolda kalkylblad måste du nu lista alla synliga och dolda ark separat i ett kalkylblad enligt följande skärmbild. Den här artikeln kommer jag att prata om hur man listar alla synliga och dolda ark i Excel.
Lista alla synliga och dolda ark separat med VBA-kod
Lista alla synliga ark i Excel med Kutools för Excel
Lista alla synliga och dolda ark separat med VBA-kod
För att lista de synliga och dolda flikarna i ett kalkylblad kan följande VBA-kod göra dig en tjänst, vänligen gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Lista alla synliga och dolda ark separat:
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. Tryck sedan på F5 nyckel för att köra den här koden, alla synliga, dolda, mycket dolda ark listas i ett nytt ark separat enligt följande skärmdump:
Lista alla synliga ark i Excel med Kutools för Excel
Om du har Kutools för Excel, med dess Skapa lista över arknamn funktionen kan du snabbt lista alla synliga ark i aktuell arbetsbok med hyperlänkar till varje flik.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör så här:
1. Klicka Kutools Plus > Arbetsblad > Skapa lista över arknamn, se skärmdump:
2. I Skapa lista över arknamn dialog ruta:
(1.) Välj Innehåller en lista med hyperlänkar under Bladindexstilar sektion;
(2.) Ange ett kalkylbladsnamn för arkindex.
(3.) Ange platsen för kalkylbladets index.
(4.) Ange hur många kolumner du vill visa kalkylbladsnamnen i arkindexet.
3. Och klicka sedan på Ok knappen, alla synliga ark har listats i ett nytt ark exklusive de dolda arken, se skärmdump:
Klicka på Ladda ner och testa gratis Kutools för Excel nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
