Как да скриете таблици в Excel (Всичко на едно място)

Гледайте видео - Как да скриете всички листове в Excel

В случай, че предпочитате да четете урок пред гледане на видео, по -долу е подробен писмен урок за скриване на листове в Excel.

Когато работите с данни, които са разпределени в множество работни листове в Excel, може да искате да скриете няколко работни листа. Това може да бъде, за да се избегне претрупването или да не се показват някои данни на вашия клиент/мениджър, като се скрият някои работни листове и се запазят само полезните.

А в някои случаи може да имате работна книга, която има някои скрити листове и искате да скриете някои или всички тези работни листове.

В този урок ще ви покажа някои методи за разкриване на работни листове в Excel (ръчно, както и автоматично с помощта на VBA). Ще ви покажа и как избирателно да разкривате работни листове въз основа на името или условието.

Така че нека започнем!

Скриване на листове ръчно

Ако имате само няколко работни листа, които са скрити, можете ръчно да покажете някои или всички тези работни листове.

Да предположим, че имате работна книга на Excel, която има 10 скрити работни листа.

По -долу са стъпките за ръчно показване на работни листове (една по една):

1. Щракнете с десния бутон върху някой от съществуващия раздел на работен лист
2. Щракнете върху опцията Unhide. Това ще отвори диалоговия прозорец Unhide, който изброява всички скрити работни листове
3. В диалоговия прозорец „Покажи“ кликнете върху работния лист, който да скриете (можете да изберете само един по един).
4. Щракнете върху OK.

Горните стъпки ще покажат избрания работен лист.

Забележка: За съжаление, няма вградена функционалност в Excel за бързо разкриване на всички скрити работни листове (или начин да изберете повече от един работен лист и да го скриете). Засега трябва да използвате диалоговия прозорец за показване, където можете да изберете само един работен лист, който да се покаже.

Можете да скриете групово работните листове, но не и да ги скриете групово

Ако искате да скриете работни листове, можете да изберете няколко работни листа едновременно (задръжте клавиша за управление и щракнете върху името на раздела на работния лист), щракнете с десния бутон и щракнете върху опцията Скриване.

За съжаление, няма вградена функционалност в Excel за бързо разкриване на всички скрити работни листове (или начин да изберете повече от един работен лист и да го скриете). Засега трябва да използвате диалоговия прозорец за показване, където можете да изберете само един работен лист, който да се покаже.

Въпреки че няма вградена функционалност за грубо разкриване, можете лесно да направите това с прост VBA макро код.

Показване на всички листове наведнъж

С VBA можете лесно да разкриете групови работни листове.

Например, ако имате 10 скрити работни листа, можете да създадете прост VBA код, за да разкриете всички работни листове, или можете да го скриете въз основа на условие (като например показване само на тези, в които има конкретен префикс или година в името).

Забележка: Методите, обхванати в този урок, не изискват да запазвате работна книга на Excel във формат, разрешен за макроси (.XLSM), за да използвате VBA кода.

Използване на Незабавен прозорец

VB Editor в Excel има непосредствен прозорец, където можете да въведете ред код и незабавно да го изпълните веднага.

По -долу са описани стъпките за използване на горния ред код за скриване на листове през непосредствения прозорец:

1. Щракнете с десния бутон върху някой от видимите листове в работната книга
2. Кликнете върху Преглед на кода. Това ще отвори VB Editor.
3. Щракнете върху опцията Изглед в менюто и след това върху прозореца Незабавно. Това ще направи прозореца Незабавен да се появи в редактора на VB (ако вече не е там).
4. В прозореца Незабавно копирайте и поставете следния ред код: За всеки лист в тази работна книга. Листове: Sheet.Visible = Вярно: Следващ лист
5. Поставете курсора в края на реда
6. Натиснете клавиша Enter

Това е!

Горните стъпки незабавно ще разкрият всички листове в работната книга.

След като приключите, можете да затворите VB Editor.

Най -хубавото в това е, че можете да направите това във всяка работна книга. Не е нужно да се притеснявате за запазването на работната книга във формат, поддържащ макроси. Просто изпълнете ред код и незабавно разкрийте всички листове в работната книга.

Позволете ми също така бързо да обясня кода по -долу VBA, който сме използвали в непосредствения прозорец за разкриване на листове:

За всеки лист в тази работна книга. Листове: Sheet.Visible = Вярно: Следващ лист

Горният код използва цикъл For VBA, за да премине през всички листове в работната книга и да зададе видимото свойство на TRUE. След като видимото свойство на всички листове се промени, кодът ще приключи.

Двоеточието (:), използвано в горния код, е еквивалентно на прекъсване на ред. Въпреки че изглежда като един ред код, той има три части, които са разделени от две двоеточия.

Ако се интересувате да научите повече за непосредствения прозорец и някои страхотни неща, които можете да направите с него, ето подробен урок за него.

Чрез добавяне на макрос към QAT (с едно щракване)

В случай, че се налага да показвате работни листове доста често, друг добър начин може да бъде да имате кода на макроса, за да разкриете листове в личната работна книга за макроси и да запазите иконата в лентата с инструменти за бърз достъп.

Това е само еднократен процес и след като го направите, след това можете да разкриете листове във всяка работна книга, като просто кликнете върху бутон в QAT.

Това е най -ефективният начин за разкриване на листове в Excel (най -полезен, когато получавате много работни книги със скрити листове и трябва да ги скриете).

Номерът тук е да запазите кода, за да разкриете листове в личната работна книга за макроси.

Лична работна книга за макроси е нещо, което винаги е отворено, когато отворите всеки Excel файл (все пак не можете да го видите). Когато запазвате макро код в работната книга за лични макроси, този код вече е винаги достъпен за вас. И когато добавите това към QAT и стартирате макрокода с едно щракване.

По -долу е кодът, който трябва да добавите към личната работна книга за макроси:

Sub UnhideAllSheets () За всеки лист в Sheets Sheet.Visible = True Next Next Sheet End Sub

По -долу са стъпките за добавяне на този код към личната работна книга за макроси:

1. Кликнете върху бутона за запис на макрос (той е в долния ляв ъгъл на приложението за работна книга на Excel)
2. В диалоговия прозорец Запис на макрос променете Макросъхранение в настройката на - Лична работна книга за макроси.
3. Щракнете върху OK. Това ще започне да записва макроса
4. Щракнете върху иконата Stop макро запис (в долния ляв ъгъл на работната книга). Това ще спре записа на макроси
5. Щракнете с десния бутон върху който и да е раздел на лист и след това щракнете върху „Преглед на кода“
6. В VB Editor щракнете двукратно върху обекта Module в работната книга Personal.XLSB
7. Премахнете съществуващия код и копирайте и поставете горния код.
8. Щракнете върху иконата Запазване в лентата с инструменти
9. Затворете Vb Editor

Горните стъпки ви позволяват да направите личната работна книга за макроси видима в редактора на VB и да поставите кода, за да разкриете листове в нея.

Сега всичко, което трябва да направите, е да добавите този код към лентата с инструменти за бърз достъп, така че да можете да го използвате по всяко време от всяка работна книга.

По -долу са описани стъпките за добавяне на този код към лентата с инструменти за бърз достъп:

1. Кликнете върху иконата Персонализиране на лентата с инструменти за бърз достъп.
2. Кликнете върху Още команди.
3. В диалоговия прозорец Опции на Excel кликнете върху падащото меню „Избор на команди от“
4. Щракнете върху Макроси. Това ще ви покаже списък с всички макроси в работната книга (включително тези в PERSONAL.XLSB)
5. Изберете кода на макроса, за да покажете листа
6. Щракнете върху бутона Добавяне
7. Щракнете върху OK.

Горните стъпки биха добавили този макро код към скриване на листове в лентата с инструменти за бърз достъп.

Сега, когато получите работна книга, която има скрити някои листове, просто трябва да кликнете върху иконата на кода в QAT и тя незабавно ще покаже всички листове наведнъж.

Показване на листове със специфичен текст в името

С VBA можете също да разкриете листове въз основа на името.

Да предположим например, че имате работна книга, която съдържа листове с години в името и искате да покажете всички тези, където годината е 2021-2022.

Можете да използвате кода по-долу, за да скриете всички листове с текст 2021-2022 в него:

Sub UnhideSheetsWithSpecificText () За всеки ws в ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 Тогава ws.Visible = xlSheetVisible End If Next ws End Sub

Горното използва цикъла For Next за преминаване през всеки работен лист в работната книга. След това условието IF then проверява името на работния лист и ако той съдържа посочения текст (който е 2021-2022 в този код), той ще промени видимото свойство, за да стане видимо.

И ако името не съдържа посочения текст, то ще го остави както е.

Можете също да промените този код, за да скриете листове въз основа на текста в името.

Например, ако искате бързо да скриете всички работни листове, където името съдържа текст „2020“ в него, можете да използвате кода по -долу:

Sub HideSheetsWithSpecificText () За всеки ws в ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 Тогава ws.Visible = xlHidden End If Next ws End Sub

Забележка: Можете да запишете този код в обикновен модул във VB Editor или да го запазите в личната работна книга за макроси. В случай, че го запишете в обикновен модул и трябва да го използвате отново по-късно, трябва да запишете работната книга като работна книга с активиран макрос (.XLSM формат).

Показване на избрани листове (въз основа на избор на потребител)

Можете също да използвате VBA, за да дадете на потребителя гъвкавост да избере дали да покаже лист или не.

Това може да стане, като се покаже поле за съобщение, което изисква от потребителя да избере дали да покаже лист или не. Ако е избран, той скрива този лист, в противен случай се премества на следващия.

По -долу е кодът, който ще направи това:

Sub UnhideSheetsUserSelection () За всеки sh в ThisWorkbook.Sheets If sh.Visible True then Result = MsgBox ("Do You Want to Unhide" & sh.Name, vbYesNo) If Result = vbYes then sh.Visible = True End If Next sh End Под

Горният код преминава през всеки лист в работната книга и проверява дали вече е видим или не. Ако е скрит, той показва полето със съобщение с името на работния лист.

Като потребител вече можете да решите дали искате да запазите този лист скрит или да го скриете.

Това може да работи добре, ако имате някои работни листове, които са скрити и искате да се обадите за всеки лист поотделно.

Забележка: Можете да запишете този код в обикновен модул във VB Editor или да го запазите в личната работна книга за макроси. В случай, че го запишете в обикновен модул и трябва да го използвате отново по-късно, трябва да запишете работната книга като работна книга с активиран макрос (.XLSM формат).

Ето урок, в който показвам как да запазите кода в обикновения модул в Excel (потърсете секцията „Къде да поставите този код“ в тази статия)

Покажете всички или избрани листове с помощта на персонализиран изглед

Това е по -малко известен метод в случай, че искате бързо да покажете всички работни листове (или някои избрани работни листове).

„Персонализиран изглед“ е функционалност в Excel, която ви позволява да създавате и запазвате изгледи, до които можете бързо да прибягвате с едно натискане на бутон.

Да предположим например, че имате работна книга на Excel с 10 работни листа. Можете да създадете изглед, където всички тези 10 листа са видими. В бъдеще, ако имате скрити някои листове и искате да се върнете към изгледа, където всички листове са били видими, можете да направите това, като изберете вече запазения персонализиран изглед.

Не се притеснявайте, няма да загубите никакви промени, направени след създаването на персонализирания изглед. Всичко, което персонализираният изглед ви прави, ви връща към изгледа на Excel, когато сте го създали. Така че, ако някои работни листове бяха видими при създаването на изгледа и сега са скрити, избирането на този персонализиран изглед ще покаже тези листове.

Предвиденото използване на персонализиран изглед е да позволи на потребителите да създават различни изгледи. Например, ако сте анализатор, можете да създадете различни изгледи за различни отдели във вашата организация. Така че можете да имате определен набор от работни листове (или клетки/редове/колони), видими за един отдел и друг набор за друг отдел. След като имате тези изгледи, вместо да променяте това ръчно, просто активирате изгледа за отдел и той ще ви покаже работни листове (или редове/колони), подходящи само за тях.

По -долу са стъпките за създаване на персонализиран изглед в Excel:

1. Открийте всички работни листове за начало
2. Щракнете върху раздела Изглед
3. Кликнете върху Персонализирани изгледи
4. В диалоговия прозорец Персонализирани изгледи щракнете върху Добавяне. Това ще отвори диалоговия прозорец Добавяне на изглед
5. Въведете всяко име за този изглед, където се виждат всички листове (или избрани листове)
6. Щракнете върху OK.

След като изгледът е създаден, можете по всяко време да помолите Excel да активира този изглед (което би направило видими всички тези листове, които са били видими, когато сте създали изгледа).

По -долу са стъпките за показване/активиране на персонализиран изглед:

1. Щракнете върху раздела Изглед
2. Кликнете върху Персонализирани изгледи
3. В диалоговия прозорец Персонализирани изгледи изберете изгледа, който искате да покажете
4. Кликнете върху бутона Показване

Това незабавно ще покаже листове и ще покаже тези, които са били видими, когато сте създали този персонализиран изглед.

Скриване на листове, които са „много скрити“

Понякога, въпреки че имате някои скрити листове в работната си книга, няма да можете да ги скриете ръчно.

Това може да се дължи на това, че тези листове не са просто скрити - те са „много скрити“.

Когато имате скрити листове в работна книга и щракнете с десния бутон върху всяко име на раздел, ще видите опцията за „Откриване“ на листове. Но ако листовете са „много скрити“ или ако няма скрити листове, няма да можете да използвате тази опция (тя ще бъде затъмнена).

Все още можете да разкриете тези „много скрити“ листове, като използвате кода VBA, който разгледахме по -горе.

Просто копирайте и поставете кода по-долу в непосредствения прозорец и натиснете enter и той незабавно ще разкрие всички листове (скрити, както и много скрити).

За всеки лист в тази работна книга. Листове: Sheet.Visible = Вярно: Следващ лист

Имам и пълен урок за това как да скрия листа и да ги направя много скрити (в случай, че се интересувате от учене)