Vba excel определить количество листов - Word и Excel - помощь в работе с программами

Diana

Пользователь

Сообщений: 982
Регистрация: 28.12.2012

Доброго времени суток всем на форуме!
маленький вопросик на ночь, чтобы крепче спалось
искала по всему форуму и интернету, но так и не нашла.

вопрос: как определить количество листов в книге?
например, чтобы в cells(1,1) написалось количество листов текущей книги.

понимаю, что нужно использовать Worksheets.Count, но что я с ним только не творила, не вышло… прошу помощи

спасибочки всем-всем!

-88232-

	А чего с ним творить? Число обычных листов cells(1,1)=worksheets.Count Число всех листов включая диаграммы и пр. cells(1,1)=sheets.Count

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Чего это? Public Sub www() [a1] = ThisWorkbook.Worksheets.Count End Sub В активный лист вставит… Я сам — дурнее всякого примера! …

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	хм… вот так все просто да… а я мучилась почти три часа! Спасибочки Сергей и неизвестный автор!!!

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Баиньки, Дайана. Хороших снов. Я сам — дурнее всякого примера! …

	5 сек. я же не засну, пока Диана не скажет, кто на её аватарке? (если она уже говорила, то прошу меня простить, видно я пропустил этот момент) )

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле

	{quote}{login=}{date=24.10.2010 11:57}{thema=}{post}5 сек. я же не засну, пока Диана не скажет, кто на её аватарке? (если она уже говорила, то прошу меня простить, видно я пропустил этот момент) ){/post}{/quote} …… и тут Остапа понесло………

	Классно рисует )) P.S. Эта аватарка мне намного больше нравится, чем предыдущая ))

	эх, даже порадоваться за Диану не дадут ((( Злые Вы.. уйду я от .. спать )) Спокойной ночки, Дианочка …

Diana Пользователь Сообщений: 982 Регистрация: 28.12.2012	сладких снов, молодые люди! и спасибо за помощь а на фото я как и на предыдущей

	Чувствую нужно получать Немецкую визу…

Guest Гость	#13 25.10.2010 13:18:26 Диана, на вкладке ССЫЛКИ есть такая — http://msoffice.nm.ru/faq/macros.htm ——- Сайт Павла Юрьевича Климова, практически полностью посвященный Excel. Обширный FAQ, множество примеров, доступных для бесплатного скачивания, несколько пользовательских функций VBA — есть что посмотреть! ——— Очень помогает, там такие кирпичики в здание решения:) По совету с форума там часто провожу время при поиске решений;) Игорь67

Источник

Home / VBA / How to COUNT Sheets using VBA in Excel

In Excel, if you have many sheets, you can use a VBA code to count them quickly instead of manually counting or using any formula. So, in the post, we will see different ways to do count sheets from a workbook.

Count Sheets from the Active Workbook

Following is the code that you need to use to count the sheet from the active workbook.

ThisWorkbook.Sheets.Count

In this code, first, you have the referred to the active workbook using the “ThisWorkbook” and refer to all the sheet, in the end, use the count method to count all the sheets. And if you want to count the worksheets instead of sheets, then use the following code.

ThisWorkbook.Worksheets.Count

Helpful Links: Run a Macro – Macro Recorder – Visual Basic Editor – Personal Macro Workbook

Count Sheets from a Different Workbook

You can use the name of the workbook to refer to and then count the sheets from it. Let’s say you want to count the sheets from the workbook “Book1”.

Here’s the code.

Workbooks("sample-file.xlsx").Sheets.Count

This code gives you the count of the sheets that you have in the workbook “sample-file.xlsx“. There is one thing that you need to take this workbook needs to be open.

Count Sheets from All the Open Workbooks

You might have more than one workbook that is open at the same time, and you can count all the sheets from all those workbooks.

Sub vba_loop_all_sheets()

Dim wb As Workbook
Dim i As Long

For Each wb In Application.Workbooks

  If wb.Name <> "PERSONAL.XLSB" Then

      i = i + wb.Sheets.Count

  End If

Next wb

MsgBox "Total sheets in all the open workbooks: " & i

End Sub

Count Sheets from a Closed Workbook

Now here we have a code that refers to the workbook that is saved on my system’s desktop. When I run this code it opens that workbook at the backend and counts the sheets from it and then adds that count to cell A1.

Sub vba_count_sheets()

Dim wb As Workbook

Application.DisplayAlerts = False

Set wb = Workbooks.Open("C:UsersDellDesktopsample-file.xlsx")

ThisWorkbook.Sheets(1).Range("A1").Value _
= wb.Sheets.Count

wb.Close SaveChanges:=True

Application.DisplayAlerts = True

End Sub

We have turned OFF the display alerts to open and close the file at the backend.

VBA-Урок 3. Коллекция Sheets

Данная коллекция представляет собой набор листов (Sheets) в книге (Workbooks). Давайте посмотрим, какие действия мы можем делать над листами.

Как посчитать количество листов в книге

Сначала попробуем узнать сколько листов имеет наша книга:

Данным кодом мы вызвали сообщения на экран (MsgBox), которое отобразило количество листов (Sheets.Count) в книге (Workbooks) » Test.xls«.

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

Как добавить лист в книгу

В коллекции листов также есть возможность добавлять свои листы, для этого существует метод Add. Этот метод имеет 4 параметра Add (Before, After, Count, Type). Все эти параметры необязательны. Первые два отвечают за место вставки листа. Далее, количество листов, вставляемых Count и тип листа Type . Типы могут быть, например, такие xlWorkSheet для расчетного листа и xlChart для диаграммы. Если местоположение не указывать, то лист будет вставляться относительно текущего листа.

Таким образом мы вставили 4 листа (Count: = 4) после листа «Лист3» .

Также можно вставить лист в самый конец книги:

Как скрыть лист

Если у Вас есть желание, то некоторые листы можно скрыть. Это бывает полезно, если у Вас есть константы или расчеты, которые Вы не хотите чтобы видели на экране в виде листов. Для этого можно использовать метод Visible. Устанавливая это свойство в TRUE или FALSE вы можете убрать или отобразить необходимый лист.

Источник

Как получить список листов книги Excel

Листам в книгах Excel можно дать имена, соответствующие содержимому. Из них было бы удобно составить оглавление, но не все знают, как это сделать. Существуют несложные способы сформировать список листов и методы, требующие усилий, например установки сторонних дополнений. С помощью инструментов Excel пользователи также могут подсчитать количество листов в крупной книге. Выясним, как получить оглавление для чтения или перехода к каждому листу, какими формулами для этого нужно воспользоваться.

Список листов с помощью формулы

Этот способ основан на использовании функции, которую нельзя найти в Менеджере. Она связана с макросами Excel 4.0. Чтобы применить формулу на практике, необходимо пройти дополнительный шаг, редко встречающийся в работе с функциями – зайти в диспетчер имен и добавить туда выражение.

Переходим на вкладку «Формулы» и кликаем по кнопке «Диспетчер имен». Опция находится в разделе «Определенные имена».

Нажимаем «Создать» в открывшемся диалоговом окне.

Записываем новое имя в верхнем поле, выбираем область «Книга» (обычно она установлена по умолчанию) и записываем в графу «Диапазон» эту формулу: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1; НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»»)
После заполнения всех полей жмем «ОК». В книге Excel пока ничего не изменится, но эти шаги помогут в будущем. Окно диспетчера имен можно закрыть.

Открываем лист, где будет расположен список. Выбираем ячейку и записываем в ней формулу с только что созданным именем: =ИНДЕКС(Список_листов;СТРОКА()). Нажмите Enter, и в ячейке появится название первого листа.

Необходимо вывести все названия листов в столбец. Для этого зажимаем маркер заполнения, который находится в правом нижнем углу выбранной ячейки, и выделяем нужное количество ячеек. В таблице-примере 4 листа столько и было выделено ячеек.

Создадим список, из которого можно перейти на каждый лист. Выберите другую пустую ячейку и вставьте эту формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

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

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

Важно! Невозможно сделать ссылку на лист с диаграммой в Excel. На экране появляется сообщение об ошибке, переход не происходит.

Как составить список листов через VBA

Существует другой способ составления списка листов из книги – можно подключить пользовательскую функцию через редактор Visual Basic. Такой метод может показаться сложным, но это не так, если воспользоваться шаблоном для добавления функции в программу.

Открываем VBA с помощью комбинации клавиш «Alt+F11». Если при нажатии F11 снижается яркость или срабатывает другая функция, установленная на эту кнопку, зажмите клавишу Fn.
Нажмите «Вставить» (Insert) на верхней панели и выберите в открывшемся меню пункт «Модуль» (Module).

Вставляем в свободное поле этот текст:

Далее можно закрыть окно Visual Basic, потому что этот инструмент больше не понадобится, а функция уже добавлена в программу.

Открываем лист для списка и вводим формулу в начальную ячейку. Теперь не нужно длинное выражение, чтобы создать список листов. Новая формула выглядит так: =SheetList(СТРОКА()).
Нажимаем Enter и получаем название листа в ячейке. Маркером заполнения создаем список.

Для гиперссылок придется использовать ту же длинную формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Надстройки для составления списка листов

Надстройки – это дополнения для Microsoft Excel, которые создаются продвинутыми пользователями. Компания Microsoft рассказывает на официальном сайте о возможности подключить надстройки, но не предлагает скачать дополнения, поэтому обычно их загружают из других источников.

Всегда проверяйте загрузки на вредоносные элементы с помощью антивирусной программы.

Существуют платные и бесплатные надстройки. Сегодня рассмотрим набор дополнений для Excel 2007-2019 под названием «Ёxcel». Разработчик распространяет файл на своем сайте за добровольное пожертвование. Установите надстройку по инструкции – после этого можно приступать к составлению списка.

Открываем лист, где будет размещен список, и нажимаем левой кнопкой мыши на начальную ячейку будущего перечисления.
На вкладке надстройки находим кнопку «Листы». Кликаем по ней, чтобы открылось меню, и выбираем пункт «Получить список листов книги». Скриншот создателя надстройки:

Выбираем, какие листы показать в списке. Для простейшего перечисления названий листов кликаем по пункту «Простой список» и жмем на кнопку с галочкой в левом нижнем углу диалогового окна.
На экране появится список листов. Если выставить настройки сложнее, то внешний вид списка немного изменится.

Как подсчитать количество листов в книге

Иногда в книгах Excel появляется много листов, например если документ относится к крупному проекту. Выяснить, сколько в файле страниц, можно с помощью функции ЛИСТЫ.

Обратите внимание! Функция работает только в версиях Microsoft Excel от 2013.

Выбираем пустую ячейку и записываем в ней формулу: =ЛИСТЫ(). Не обязательно заполнять аргумент «Ссылка», если нужно посчитать листы в одной книге.

Жмем Enter и получаем числовое значение.

Если все листы переименованы, и нужно узнать их номера, воспользуйтесь функцией ЛИСТ. Эта формула также доступна с 2013-й версии. У функции ЛИСТ один аргумент – «Значение». Если аргумент не заполнен, после нажатия клавиши Enter в ячейке появится номер того же листа, где была введена формула. Простое выражение с ЛИСТ выглядит так: =ЛИСТ().

Источник

Как получить список листов книги Excel

Список листов с помощью формулы

Переходим на вкладку «Формулы» и кликаем по кнопке «Диспетчер имен». Опция находится в разделе «Определенные имена».

Нажимаем «Создать» в открывшемся диалоговом окне.

Записываем новое имя в верхнем поле, выбираем область «Книга» (обычно она установлена по умолчанию) и записываем в графу «Диапазон» эту формулу: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1; НАЙТИ(“]”;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));””)
После заполнения всех полей жмем «ОК». В книге Excel пока ничего не изменится, но эти шаги помогут в будущем. Окно диспетчера имен можно закрыть.

Открываем лист, где будет расположен список. Выбираем ячейку и записываем в ней формулу с только что созданным именем: =ИНДЕКС(Список_листов;СТРОКА()). Нажмите Enter, и в ячейке появится название первого листа.

Необходимо вывести все названия листов в столбец. Для этого зажимаем маркер заполнения, который находится в правом нижнем углу выбранной ячейки, и выделяем нужное количество ячеек. В таблице-примере 4 листа столько и было выделено ячеек.

Создадим список, из которого можно перейти на каждый лист. Выберите другую пустую ячейку и вставьте эту формулу: =ГИПЕРССЫЛКА(“#”&A1&”!A1″;””&A1).

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

Как составить список листов через VBA

Открываем VBA с помощью комбинации клавиш «Alt+F11». Если при нажатии F11 снижается яркость или срабатывает другая функция, установленная на эту кнопку, зажмите клавишу Fn.
Нажмите «Вставить» (Insert) на верхней панели и выберите в открывшемся меню пункт «Модуль» (Module).

Вставляем в свободное поле этот текст:

Далее можно закрыть окно Visual Basic, потому что этот инструмент больше не понадобится, а функция уже добавлена в программу.

Открываем лист для списка и вводим формулу в начальную ячейку. Теперь не нужно длинное выражение, чтобы создать список листов. Новая формула выглядит так: =SheetList(СТРОКА()).
Нажимаем Enter и получаем название листа в ячейке. Маркером заполнения создаем список.

Для гиперссылок придется использовать ту же длинную формулу: =ГИПЕРССЫЛКА(“#”&A1&”!A1″;””&A1).

Надстройки для составления списка листов

Открываем лист, где будет размещен список, и нажимаем левой кнопкой мыши на начальную ячейку будущего перечисления.
На вкладке надстройки находим кнопку «Листы». Кликаем по ней, чтобы открылось меню, и выбираем пункт «Получить список листов книги». Скриншот создателя надстройки:

Выбираем, какие листы показать в списке. Для простейшего перечисления названий листов кликаем по пункту «Простой список» и жмем на кнопку с галочкой в левом нижнем углу диалогового окна.
На экране появится список листов. Если выставить настройки сложнее, то внешний вид списка немного изменится.

Как подсчитать количество листов в книге

Выбираем пустую ячейку и записываем в ней формулу: =ЛИСТЫ(). Не обязательно заполнять аргумент «Ссылка», если нужно посчитать листы в одной книге.

Жмем Enter и получаем числовое значение.

Источник

Помогаю со студенческими работами здесь

Изменить масштаб всех листов в книге
Люди, здравствуйте.

Как изменить масштаб всех листов в книге?
For Each wsh In wb.Worksheets
…

Как получить число листов в книге?
Пожалуйста объясните чайнику, как получить число листов в книге?
Заранее огромное спасибо!!!!

Сравнение листов в книге, и копирование значений
Помогите пожалуйста.

Есть книга с 3 листами, нужно провести сравнение и копирование. Сравнение…

Cколько листов в книге, удалить строки
Здравствуйте! Помогите, пожалуйста с проблемой.
1) Пользователь растаскивает информацию по листам…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Как посчитать количество листов в рабочей тетради?

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

Подсчитайте количество листов в книге Функция ЛИСТЫ

Подсчитайте количество листов в книге с помощью команды Определить имя

Подсчитайте количество листов в книге с кодом VBA

Отображение количества листов в книге с помощью области навигации

Подсчитайте количество листов в книге, создав список листов

Подсчитайте количество листов в книге Функция ЛИСТЫ

Если ваша версия Excel 2013 или более поздняя, вы можете использовать функцию ЛИСТЫ, чтобы получить общее количество листов текущей книги.

Выберите пустую ячейку, затем введите =ЛИСТЫ() в него, нажмите клавишу Enter, чтобы получить количество листов.

Подсчитайте количество листов в книге с помощью команды Определить имя

В Excel вы можете сначала применить формулу к функции «Определить имя», а затем подсчитать количество листов.

1. Запустите книгу, в которой вы хотите подсчитать количество листов.

2. Нажмите Формула > Определить имя, см. снимок экрана:

3. И в Новое имя диалоговом окне укажите имя в поле Имя и фамилия текстовое поле, а затем введите эту формулу = ПОЛУЧИТЬ.РАБОТУ (1) & T (СЕЙЧАС ()) до Относится к текстовое поле, см. снимок экрана:

4. Затем нажмите OK чтобы закрыть это диалоговое окно и вернуться на рабочий лист, введите эту формулу = СЧЁТ (ИНДЕКС (Таблицы; 0))(CountSheets в этой формуле — это имя, которое вы определили на шаге 3, вы можете изменить его по своему усмотрению.) в пустую ячейку, см. снимок экрана:

5. И нажмите Enter key, вы получите количество ваших листов в текущей книге.

Подсчитайте количество листов в книге с кодом VBA

Если вы думаете, что приведенные выше формулы сложно запомнить, вот простой код VBA также может вам помочь.

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

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

Код VBA: подсчитайте количество листов в книге

Public Sub CountWorkSheets()
'Update 20140326
MsgBox "The total number sheets of this workbook: " & Application.Sheets.Count
End Sub

3, Затем нажмите F5 нажмите клавишу для выполнения этого кода, и появится окно с подсказкой, в котором будет указано общее количество листов, как показано на следующем снимке экрана:

Показать количество листов в книге с помощью области навигации

Если у вас есть Kutools for Excel установлен, вы, очевидно, можете просмотреть количество листов в книге с помощью Навигация панель.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс > Навигация для Панель навигации в левой части рабочего листа. Смотрите скриншот:

2. Затем нажмите Рабочая тетрадь и таблицы вкладка, а затем вы можете просмотреть общее количество листов в активной книге, отображаемое в нижней части панели, также вы можете просмотреть количество видимых и скрытых листов книги. Смотрите скриншот:

Работы С Нами Навигация панели, вы можете переключаться между листами, отображать все заголовки столбцов, имена диапазонов, добавлять автоматические тексты и т. д. Щелкните здесь, чтобы узнать подробности.

Панель навигации — Список и подсчет всех листов

Подсчитайте количество листов в книге, создав список листов

Если вы считаете, что вышеперечисленные методы неудобны, я могу предложить вам обходной путь.

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

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Включите книгу, на которой нужно подсчитать листы, и нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов. Смотрите скриншот:

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

3. Нажмите Ok, то создается рабочий лист со всеми именами листов перед всеми листами, и вам просто нужно выбрать эти имена листов и просмотреть результат подсчета в Статус bar.

Фактически, эти имена листов можно связать, вы можете щелкнуть одно имя листа, а затем быстро установить ссылку на соответствующий лист. И с Создать список имен листов, вы можете создавать связанные кнопки имен листов, проверяя Содержит кнопки и макросы вариант. Щелкните здесь, чтобы узнать больше о создании списка имен листов.

Создать список имен листов

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

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

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

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

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

Источник

На чтение 5 мин Опубликовано 26.01.2021

Содержание

Список листов с помощью формулы
Как составить список листов через VBA
Надстройки для составления списка листов
Как подсчитать количество листов в книге

Список листов с помощью формулы

Переходим на вкладку «Формулы» и кликаем по кнопке «Диспетчер имен». Опция находится в разделе «Определенные имена».

Нажимаем «Создать» в открывшемся диалоговом окне.

Записываем новое имя в верхнем поле, выбираем область «Книга» (обычно она установлена по умолчанию) и записываем в графу «Диапазон» эту формулу: =ЗАМЕНИТЬ(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1);1; НАЙТИ(«]»;ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1));»»)
После заполнения всех полей жмем «ОК». В книге Excel пока ничего не изменится, но эти шаги помогут в будущем. Окно диспетчера имен можно закрыть.

Открываем лист, где будет расположен список. Выбираем ячейку и записываем в ней формулу с только что созданным именем: =ИНДЕКС(Список_листов;СТРОКА()). Нажмите Enter, и в ячейке появится название первого листа.

Необходимо вывести все названия листов в столбец. Для этого зажимаем маркер заполнения, который находится в правом нижнем углу выбранной ячейки, и выделяем нужное количество ячеек. В таблице-примере 4 листа столько и было выделено ячеек.

Создадим список, из которого можно перейти на каждый лист. Выберите другую пустую ячейку и вставьте эту формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

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

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

Важно! Невозможно сделать ссылку на лист с диаграммой в Excel. На экране появляется сообщение об ошибке, переход не происходит.

Как составить список листов через VBA

Открываем VBA с помощью комбинации клавиш «Alt+F11». Если при нажатии F11 снижается яркость или срабатывает другая функция, установленная на эту кнопку, зажмите клавишу Fn.
Нажмите «Вставить» (Insert) на верхней панели и выберите в открывшемся меню пункт «Модуль» (Module).

Вставляем в свободное поле этот текст:

Function SheetList(N As Integer)

SheetList = ActiveWorkbook.Worksheets(N).Name

End Function

Далее можно закрыть окно Visual Basic, потому что этот инструмент больше не понадобится, а функция уже добавлена в программу.

Открываем лист для списка и вводим формулу в начальную ячейку. Теперь не нужно длинное выражение, чтобы создать список листов. Новая формула выглядит так: =SheetList(СТРОКА()).
Нажимаем Enter и получаем название листа в ячейке. Маркером заполнения создаем список.

Для гиперссылок придется использовать ту же длинную формулу: =ГИПЕРССЫЛКА(«#»&A1&»!A1″;»»&A1).

Надстройки для составления списка листов

Всегда проверяйте загрузки на вредоносные элементы с помощью антивирусной программы.

Открываем лист, где будет размещен список, и нажимаем левой кнопкой мыши на начальную ячейку будущего перечисления.
На вкладке надстройки находим кнопку «Листы». Кликаем по ней, чтобы открылось меню, и выбираем пункт «Получить список листов книги». Скриншот создателя надстройки:

Выбираем, какие листы показать в списке. Для простейшего перечисления названий листов кликаем по пункту «Простой список» и жмем на кнопку с галочкой в левом нижнем углу диалогового окна.
На экране появится список листов. Если выставить настройки сложнее, то внешний вид списка немного изменится.

Как подсчитать количество листов в книге

Обратите внимание! Функция работает только в версиях Microsoft Excel от 2013.

Выбираем пустую ячейку и записываем в ней формулу: =ЛИСТЫ(). Не обязательно заполнять аргумент «Ссылка», если нужно посчитать листы в одной книге.

Жмем Enter и получаем числовое значение.

Оцените качество статьи. Нам важно ваше мнение:

Источник

Данная коллекция представляет собой коллекцию листов (Sheets) в книге (WorkBook). Первое, что мы с Вами сделаем это получим количество листов в книге.

Sub Test()
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

Но под листом понимается не только клетки, но и диаграмма. Так же как и лист для расчетов диаграмма будет включена в подсчет листов. Как посмотреть имена листов. Просто. Есть свойтсво Name:

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		For x = 1 To .Sheets.Count
			MsgBox (Sheets.Item(x).Name)
		Next x
	End With
End Sub

А как же лист с формулами отличить от диаграммы ? Попробуйте так. Type вернет Вам тип. Только не знаю документированный способ это или нет.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		For x = 1 To .Sheets.Count
			MsgBox (Sheets.Item(x).Type)
			If Sheets.Item(x).Type = 3 Then
				MsgBox Sheets.Item(x).Name
		Next x
	End With
End Sub

К коллекции листов есть возможность добавлять свои листы, для этого существует метод Add. Этот метод требует 4 параметра Add(Before, After, Count, Type). Все эти параметры необязательные. Первые два отвечают за место вставки листа. Дальше количество вставляемых листов Count и тип листа. Типы могут быть, например, такие. xlWorkSheet для расчетного листа, xlChart для диаграммы. Если местоположение не указывать, то лист будет вставляться относительно текущего листа.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		Sheets.Add
	End With
End Sub

Метод Parent позволяет узнать какой книге принадлежит текущий лист.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
		MsgBox (Sheets.Parent.Name)
	End With
End Sub

Если у Вас есть желание, то некоторые листы можно убрать из обзора. Это бывает полезно, если у Вас есть константы или расчеты, которые Вы не хотите чтобы видели на экране в виде листов. Для этого можно использовать метод Visible. Устанавливая это свойство в TRUE или FALSE вы сможете убирать и показывать лист.

Sub Test()
	With Application.Workbooks.Item("Test.xls")
	.Sheets.Item("Лист5").Visible = False
	End With
End Sub

Источник

Count Sheets from the Active Workbook

Count Sheets from a Different Workbook

Count Sheets from All the Open Workbooks

Count Sheets from a Closed Workbook

More Tutorials on VBA Worksheets

VBA-Урок 3. Коллекция Sheets

Как посчитать количество листов в книге

Как добавить лист в книгу

Как скрыть лист

Как получить список листов книги Excel

Список листов с помощью формулы

Как составить список листов через VBA

Надстройки для составления списка листов

Как подсчитать количество листов в книге

Как получить список листов книги Excel

Список листов с помощью формулы

Как составить список листов через VBA

Надстройки для составления списка листов

Как подсчитать количество листов в книге

Как посчитать количество листов в рабочей тетради?

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

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

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

Список листов с помощью формулы

Как составить список листов через VBA

Надстройки для составления списка листов

Как подсчитать количество листов в книге