Макрос показать все скрытые листы в excel - Word и Excel

Пользователям известно, что в этой программе нет отдельной команды, чтобы в один клик показать все скрытые листы в Excel.

Скрыть сразу несколько листов можно очень быстро:

Выделить их с зажатой клавишей Ctrl (если листы идут не подряд) или Shift (если скрываемые листы расположены подряд),
Щелкнуть правой кнопкой мыши на одном из выделенных листов и выбрать команду Скрыть.

Но если вы захотите так же быстро показать скрытые листы в Excel — у вас не получится это сделать стандартным способом.

Отобразить скрытые листы в Excel можно следующим образом: щелкнуть правой кнопкой мыши на ярлычке одного из листов и выбрать команду Показать.

После этого откроется список скрытых листов — но показать скрытые листе таким способом можно только по одному. В этом окне не работают клавиши Ctrl и Shift.

Но что если у вас много скрытых листов? Каждый раз отображать скрытые листы в Excel по одному — муторно. Как обычно, в Excel всегда можно найти обходный путь, а данном случае даже два — с использованием макроса и без использования, для тех, кто макросов боится.

Чтобы показать все скрытые листы в excel с использованием макроса, нужно:

1. Перейти в редактор Visual Basic на вкладке меню Разработчик.

2. Если эта вкладка не видна на ленте, то ее можно отобразить перейдя на вкладку меню Файл — Параметры — Настроить ленту — установить “галку” возле пункта Разработчик.

3. В окне редактора Visual Basic нужно выбрать команду меню Insert — Module

4. В открывшемся окне модуля написать следующий код (можно просто скопировать отсюда).

Sub UnhideAllSheets()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

Далее нажать сохранить (дискета) и закрыть редактор Visual Basic.

Теперь этот макрос доступен на вкладке Разработчик — Макросы.

Если нажать на кнопку Выполнить, выделив название макроса, то отобразятся все скрытые листы.

Однако, каждый раз вызывать макрос таким способом не совсем удобно.

Есть крутой лайфхак, как можно добавить этот макрос на панель быстрого доступа. После выполнения всех этапов, описанных в статье по ссылке ниже, данный макрос на панели доступа будет закреплен за определенной кнопкой, нажав на которую, можно отобразить скрытые листы.

Минус этого способа: отображаются сразу все скрытые листы, даже если для работы вам нужны только некоторые.

Плюс этого способа: если в файле добавляются новые скрытые листы, то не нужно делать дополнительных действий, чтобы отобразить скрытые листы — макрос отобразит их все, включая листы, которые были добавлены уже после записи макроса.

Способ 2. Отобразить все скрытые листы — без использования макроса

Есть еще один хитрый способ показать скрытые листы — при помощи представлений.

Инструмент Представления находится на вкладке Вид — блок Режим просмотра книги.

Чтобы добавить представление, которое будет показывать нужные вам скрытые листы в Excel, нужно сначала вручную показать эти листы (сделать не скрытыми).

После того, как вы показали все скрытые листы, в окне представлений нужно нажать кнопку Добавить.

Далее нужно задать представлению любое имя, например “Все листы”.

Теперь скроем листы и попробуем их показать при помощи созданного представления.

Откроем вкладку Вид — Представления — Выберем созданное представление — Применить.

Минус этого способа: если добавить в файл новые скрытые листы — нужно будет перезаписать представление.

Плюс этого способа: можно регулировать, какие именно листы показывать, а какие нет. Возможно создать несколько представлений, чтобы показывать разные наборы скрытых листов в excel.

В этой статье мы узнали, как показать скрытые листы в Excel.

Вам может быть интересно:

Источник

ГЛАВНАЯ

ТРЕНИНГИ

   Быстрый старт
   Расширенный Excel
   Мастер Формул
   Прогнозирование
   Визуализация
   Макросы на VBA

КНИГИ

   Готовые решения
   Мастер Формул
   Скульптор данных

ВИДЕОУРОКИ

ПРИЕМЫ

   Бизнес-анализ
   Выпадающие списки
   Даты и время
   Диаграммы
   Диапазоны
   Дубликаты
   Защита данных
   Интернет, email
   Книги, листы
   Макросы
   Сводные таблицы
   Текст
   Форматирование
   Функции
   Всякое
PLEX

   Коротко
   Подробно
   Версии
   Вопрос-Ответ
   Скачать
   Купить

ПРОЕКТЫ

ОНЛАЙН-КУРСЫ

ФОРУМ

   Excel
   Работа
   PLEX

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

Техническая поддержка сайта

ООО «Планета Эксел»

ИНН 7735603520

ОГРН 1147746834949

ИП Павлов Николай Владимирович
ИНН 633015842586
ОГРНИП 310633031600071

Источник

Как отобразить все скрытые листы сразу?

Май 1, 2015 / Написал / 1 Comment

Если вы работаете с большим файлом и множеством листов, то для удобства вы скрываете нерабочие листы или листы справочники. Верно? Но иногда нужно срочно отобразить все скрытые листы. Известно, чтобы отобразить лист необходимо нажать на список листов или ярлык одного листа правой кнопкой мыши — Отобразить — Выбрать лист для отображения.

А если таких листов 10, а если 70 (у меня один раз было такое)? Как вернуть все скрытые листы сразу и быстро?

Содержание

Для того чтобы отобразить все скрытые листы, существует полезный макрос (как написать макрос)
Как отобразить все скрытые листы если они пропали?
Похожие статьи

Для того чтобы отобразить все скрытые листы, существует полезный макрос (как написать макрос)

sub ShowShts()
 dim a
 for each a in worksheets
 a.visible=true
 next
end sub

Нажмите alt+F11 в открывшемся окне, вставьте текст выше. Закройте окно. Вы создали макрос. Вызвать созданный макрос можно нажав alt+F8 и выбрав нужный макрос из открывшегося окна.

Как отобразить все скрытые листы если они пропали?

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

Если и так ярлыков нет, тогда заходите: Меню Сервис — Параметры Excel — Дополнительно — Раздел Показывать параметры книги — Показывать ярлычки листов. Поставьте галочку!

P.S. Не забывайте, что переключаться между листами можно клавишами Ctrl + Page up и Ctrl + Page down, это очень удобно.

Выделить несколько листов можно зажав кнопку Ctrl и кликнув по каждому из нужных листов книги. А выделить подряд несколько листов, можно выделив первый лист, зажать кнопку Shift и выделить последний лист. В таком случае все листы между ними выделяются (такой способ может относиться и к файлам в папках). После чего нажмите на листы правой кнопкой мыши — Скрыть.

Так же читайте интересную статью, «как сделать очень скрытый лист«.

Источник

В этой статье представлены несколько способов шаг за шагом показать все скрытые листы и рабочие листы в Excel.

Показывать все скрытые листы по одному в Excel
Показать все скрытые листы с помощью кода VBA
Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши
Показать все скрытые листы с помощью функции «Переключить видимость скрытых листов»
Показать все очень скрытые рабочие листы с помощью Kutools for Excel

Показывать все скрытые листы по одному в Excel

Мы можем применить Показать функция для одновременного отображения скрытых листов в Excel. Пожалуйста, сделайте следующее:

1. Нажмите Главная > Формат > Скрыть и показать > Показать. Смотрите скриншот:
Внимание: Вы также можете щелкнуть правой кнопкой мыши любое имя листа на панели вкладок Лист и выбрать Unhide из контекстного меню.

2. Теперь все скрытые листы перечислены в Unhide диалоговое окно. Выберите лист, который вы хотите показать, и нажмите кнопку OK кнопку.

3. Затем отображается выбранный скрытый лист. Повторите шаг 2 выше, чтобы показать все скрытые листы один за другим.

Внимание: Показать все скрытые листы не так просто, как могло бы быть, хотя есть сотни скрытых листов, которые нужно показать. Возможно, вам придется щелкнуть мышью сотни раз, чтобы повторить операции. Если вы хотите получить более простой способ, сделайте его в соответствии с процедурами, которые предоставляют следующие методы.

Переключить видимость скрытых листов — один щелчок, чтобы показать все скрытые листы, и один щелчок, чтобы восстановить скрытые.

С помощью удобной кнопки переключения Worksheets предоставляемые Kutools for Excel, вы можете одним щелчком мыши отобразить все скрытые рабочие листы в активной книге и щелкнуть его еще раз, чтобы сделать все скрытые рабочие листы невидимыми.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Показать все скрытые листы с помощью кода VBA

Следующий короткий код VBA также может помочь вам отобразить все скрытые листы одновременно.

1. Удерживайте Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.

Sub UnhideAllSheets()
	Dim ws As Worksheet

	For Each ws In ActiveWorkbook.Worksheets
		ws.Visible = xlSheetVisible
	Next ws

End Sub

3, нажмите F5 ключ для запуска этого макроса. И скрытые листы отобразятся сразу.

Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши

Kutools for ExcelАвтора Показать все скрытые листы Функция может помочь вам легко отобразить все скрытые листы одним щелчком мыши.

Нажмите Кутулс > Показать / Скрыть > Показать все скрытые листы, см. снимок экрана:

Тогда все скрытые листы будут показаны сразу. Смотрите скриншот:

Внимание: Число, отображаемое после функции, указывает общее количество скрытых листов в вашей книге. Если скрытого рабочего листа нет, функция станет серой, и ее нельзя будет щелкнуть.

С помощью этого удобного Показать все скрытые листы вы можете отобразить все скрытые листы одним щелчком мыши в Excel. Получите бесплатную пробную версию!

Показать все скрытые листы с помощью функции «Переключить видимость скрытых листов»

Kutools for Excel также предоставляет удобный Worksheets (Переключить видимость скрытых листов), чтобы отображать или скрывать все скрытые листы одним щелчком мыши в активной книге.

Под Кутулс вкладку, нажмите Рабочий лист кнопку, чтобы отобразить все скрытые листы, и нажмите кнопку Worksheets еще раз, чтобы восстановить скрытый статус.

Worksheets переключает видимость рабочих листов. Один щелчок, чтобы отобразить все скрытые листы, и другой щелчок, чтобы скрыть их снова. Получите бесплатную пробную версию!

Показать все очень скрытые рабочие листы с помощью Kutools for Excel

Иногда вышеуказанные методы не могут отобразить скрытые рабочие листы. Это потому, что эти рабочие листы очень скрыты. В этой ситуации вы можете применить функцию «Скрыть/показать рабочие книги и листы». Kutools for Excel чтобы быстро показать их.

1. Нажмите Кутулс > Показать спрятать > Скрыть / отобразить книги и таблицы.

2. В диалоговом окне «Скрыть / отобразить рабочие книги и листы» щелкните, чтобы выбрать активную книгу, и щелкните значок Показать все в Листы раздел. Смотрите скриншот.

Теперь все скрытые листы, включая очень скрытые, отображаются массово. Пожалуйста, закройте диалог, как вам нужно.

Скрыть / отобразить книги и таблицы скрыть или отобразить сразу несколько открывающихся книг и их рабочих листов сразу, в том числе очень скрытые. Получите бесплатную пробную версию!

Отобразить все скрытые рабочие листы с помощью Kutools for Excel одним щелчком мыши

Статьи по теме

Скрыть другие листы
Скрыть другие книги
Показать все скрытые книги
Показать скрытые диапазоны (столбцы и строки)

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

Как отобразить все листы книги

На чтение 2 мин. Просмотров 2.3k.

Что делает макрос: Если Вам когда-либо приходилось отобразить все листы, скрытые в Excel файле, то Вы понимаете, сколько времени занимает этот процесс. К примеру, чтобы отобразить 4 листа, Вам нужно нажать четыре раза для отображения каждого листа. Это не так страшно, если листов не много, а как быть, если скрыты сразу 10 и более листов? На помощь приходит этот макрос.

Содержание

Как макрос работает
Код макроса
Как работает этот код
Как это использовать

Как макрос работает

Этот макрос с помощью цикла пробегает по всем рабочим листам и делает их видимыми.

Код макроса

Sub OtobrazitVseListi()
'Шаг 1: Объявляем переменные
Dim ws As Worksheet
'Шаг 2: Запускаем цикл через все рабочие листы
For Each ws In ActiveWorkbook.Worksheets
'Шаг 3: Устанавливаем свойство Видимый
ws.Visible = xlSheetVisible
'Шаг 4: Переходим к следующему листу
Next ws
End Sub

Как работает этот код

Объявляем переменную WS, которая будет хранить имя каждого листа.
На шаге 2 макрос начинает цикл по всем рабочим листам в этой книге.
Шаг 3 изменяет значение свойства на xlSheetVisible.
Затем он возвращаемся назад, чтобы получить следующий рабочий лист.

Как это использовать

Активируйте редактор Visual Basic, нажав ALT + F11.
Щелкните правой кнопкой мыши personal.xlb в окне Project.
Введите или вставьте код во вновь созданном модуле.

Источник