Ugrás a tartalomra

Hogyan lehet elrejteni az összes munkalapot, kivéve a megadott vagy az aktív Excel-t?

A munkafüzet tisztasága és könnyen kezelhetősége érdekében érdemes az Excel összes munkalapját elrejteni, a jelenlegi aktív kivételével. Ebben a cikkben két módszert mutatunk be az összes munkalap elrejtésére, de az Excelben megadottak vagy aktívak.

Az összes munkalap elrejtése, kivéve a megadottat az Excelben, VBA kóddal
Az összes munkalap elrejtése az aktív munkalapon kívül a Kutools for Excel segítségével (csak néhány kattintás)


Az összes munkalap elrejtése, kivéve a megadottat az Excelben, VBA kóddal


Az összes munkalapot elrejtheti az Excelben, a megadott kivételével, VBA kóddal. Kérjük, tegye a következőket.

1. Az aktuálisan megnyitott munkafüzetben lépjen a csak megjeleníteni kívánt munkalapra, majd nyomja meg az gombot más + F11 egyszerre nyissa meg a Microsoft Visual Basic alkalmazás ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazás ablakban kattintson betétlap > Modulok. Lásd a képernyőképet:

3. Ezután másolja és illessze be az alábbi VBA kódot a Code editorba.

VBA kód: az összes lap elrejtése, kivéve a megadottat

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. megnyomni a F5 gombot a kód futtatásához.

5. A kód futtatása után megjelenik egy párbeszédpanel, amelyben az aktív lap neve látható Választék négyzetet, majd kattintson a gombra OK gombot.

Ezután az összes munkalap azonnal elrejtésre kerül, a munkafüzet aktuális kivételével.

Megjegyzések: A rejtett munkalapok megjelenítéséhez másolja és illessze be a következő VBA kódot a modulba, majd nyomja meg az F5 billentyűt a kód futtatásához.

VBA kód: rejtett munkalapok megjelenítése

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Az összes munkalap elrejtése, kivéve az aktívat a Kutools for Excel segítségével (csak egy kattintás)

Az összes lapot a megadott vagy az aktív kivételével egyetlen kattintással elrejtheti az Excel programban.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Lépjen be a megadott lapra, amelyet csak az aktuális munkafüzetben szeretne megjeleníteni.

2. Ezután kattintson Kutools > Mutat elrejt > A kijelöletlen táblák elrejtése.

Ezután az aktuális munkafüzet összes lapja el lesz rejtve, az aktív kivételével.

Megjegyzések: Ha az összes rejtett munkalapot meg szeretné jeleníteni, kattintson a gombra Kutools > Megjelenítése / elrejtése > Az összes lap elrejtése. Lásd a képernyőképet:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations