Как подсчитать количество видимых листов в рабочей книге?
В большой рабочей книге с несколькими листами некоторые листы видимы, а некоторые скрыты. В некоторых случаях может понадобиться подсчитать общее количество видимых листов книги. Как быстро выполнить такой подсчёт? Ниже приведены несколько приёмов для быстрого определения количества видимых листов в рабочей книге.
Подсчёт количества видимых листов только с помощью VBA
Подсчёт количества видимых листов/скрытых листов/всех листов с помощью Kutools для Excel 
Подсчёт количества видимых листов только с помощью VBA
В Excel вместо того чтобы вручную считать видимые листы по одному, можно воспользоваться VBA для быстрого определения их количества.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, затем выберите Вставка > Модуль, чтобы создать новый модуль.
2. Вставьте приведённый ниже код VBA в окно модуля.
VBA: Подсчёт количества видимых листов рабочей книги
Sub VisibleSheetsCount()
'UpdatebyKutoolsforExcel20150909
Dim xSht As Variant
Dim I As Long
For Each xSht In ActiveWorkbook.Sheets
If xSht.Visible Then I = I + 1
Next
MsgBox I & " sheets are visible", , "Kutools for Excel"
End Sub
3. Нажмите кнопку Выполнить. Появится диалоговое окно с указанием количества видимых листов.
Подсчёт количества видимых листов/скрытых листов/всех листов с помощью Kutools для Excel
Если вы не знакомы с VBA, воспользуйтесь функцией Навигация из Kutools для Excel, чтобы быстро увидеть количество видимых, скрытых и всех листов.
1. Откройте рабочую книгу, в которой нужно подсчитать количество видимых листов, и нажмите Kutools > Навигация. См. снимок экрана:
2. Затем на левой стороне текущего листа появится панель Навигация. Нажмите вкладку Рабочая книга и Лист, чтобы перейти в раздел Рабочая книга и Лист. В нижней части панели отображается количество видимых листов, скрытых листов и всех листов (включая как видимые, так и скрытые). См. снимок экрана:
Чтобы скрыть Навигацию, просто нажмите Kutools > Навигация, чтобы отключить её.
Kutools для Excel’s Навигация обладает расширенными возможностями: с её помощью вы можете просматривать список листов, список имён ячеек, список заголовков столбцов, а также добавлять диапазоны, изображения и формулы в качестве автотекстов. Кроме того, вы можете выполнять поиск и замену слов по всем выбранным листам.Нажмите здесь, чтобы узнать больше о Навигации.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек