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