Как программно определить количество рабочих листов в Excel?

Несколько способов программно определить количество рабочих листов в Excel:

• С помощью функции «ЛИСТЫ». ru.extendoffice.com Этот метод доступен в версиях Excel 2013 года и новее. ru.extendoffice.com Нужно выбрать пустую ячейку, ввести формулу =SHEETS() и нажать клавишу Enter. ru.extendoffice.com
• С помощью панели навигации Kutools. ru.extendoffice.com Если инструмент установлен, то количество рабочих листов в книге будет отображаться на панели в реальном времени. ru.extendoffice.com Нужно перейти на вкладку Kutools и выбрать «Навигация» в ленте. ru.extendoffice.com
• С помощью кода VBA. ru.extendoffice.com trumpexcel.com Можно написать скрипт, который покажет общее количество листов во всплывающем окне. ru.extendoffice.com trumpexcel.com Для этого нужно: ru.extendoffice.com

1. Удерживать клавиши ALT + F11, откроется окно Microsoft Visual Basic для приложений. ru.extendoffice.com
2. Щёлкнуть «Вставка» > «Модуль» и вставить код в окно Модуля. ru.extendoffice.com
3. Нажать клавишу F5 для выполнения кода, появится всплывающее окно с количеством рабочих листов. ru.extendoffice.com

Также можно использовать метод с применением формулы в функции «Определить имя». ru.extendoffice.com Для этого нужно: ru.extendoffice.com

1. Открыть книгу, в которой нужно подсчитать количество рабочих листов. ru.extendoffice.com
2. Щёлкнуть «Формулы» > «Определить имя». ru.extendoffice.com
3. В диалоговом окне «Новое имя» указать имя в текстовом поле «Имя», а затем ввести формулу =GET.WORKBOOK(1)&T(NOW()) в текстовое поле «Ссылается на». ru.extendoffice.com
4. Нажать «ОК», чтобы закрыть диалоговое окно и вернуться на рабочий лист, после чего ввести формулу =COUNTA(INDEX(CountSheets,0)) в пустую ячейку. ru.extendoffice.com
5. Нажать клавишу Enter, получится количество рабочих листов в текущей книге. ru.extendoffice.com