Как быстро определить количество скрытых листов в Excel?
Если у вас большая рабочая книга с сотнями листов, и некоторые из них скрыты, то для удовлетворения особых потребностей может понадобиться узнать количество скрытых листов. Как это сделать, не пересчитывая их по одному? Сейчас я покажу два способа, которые позволят мгновенно получить нужное число.
Подсчёт скрытых листов с помощью VBA
Подсчёт скрытых/видимых листов с помощью Kutools для Excel
Удаление скрытых листов или Отобразить все листы с помощью Kutools для Excel
Подсчёт скрытых листов с помощью VBA
Я приведу код VBA, который выводит диалоговое окно с количеством скрытых листов в рабочей книге.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Выберите пункт Вставка > Модуль и вставьте приведённый ниже код в новое окно Модуля.
VBA: подсчёт скрытых листов
Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
"Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub3. Нажмите клавишу F5, чтобы запустить код. После этого появится диалоговое окно с количеством скрытых и видимых листов.
Подсчёт скрытых/видимых листов с помощью Kutools для Excel
Если вы не знакомы с VBA, установите бесплатно Kutools для Excel — и одним взглядом увидите общее количество листов, а также сколько из них скрыто и сколько видимо.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Щёлкните Kutools > Навигация, чтобы отобразить панель. См. снимок экрана:
2. Затем нажмите кнопку Рабочая книга и Лист, чтобы отобразить список книг и листов. В нижней части панели вы увидите общее количество листов, а также сколько из них скрыто и сколько видимо.
Совет: Если панель «Навигация» больше не нужна, щёлкните ещё раз Kutools > Навигация, чтобы скрыть её.
Удаление скрытых листов или отображение всех скрытых листов с помощью Kutools для Excel
С помощью Kutools для Excel вы также можете удалить все скрытые листы одним щелчком.
1. Чтобы отобразить все листы, просто щёлкните Kutools > Показать и скрыть > Отобразить все листы.
2. Чтобы удалить все скрытые листы, просто щёлкните KUTOOLS PLUS > Лист > Удалить все скрытые листы. См. снимок экрана:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек