В сложных книгах, содержащих множество рабочих листов, нередко требуется список различных рабочих листов. Когда у вас есть список, вы можете распечатать его или использовать в других целях, например, для создания оглавления своей книги. Следующий макрос GetSheets быстро извлекает имена листов в текущей книге. Он помещает их на текущий лист, начиная с ячейки A1, а затем двигаясь вниз.

Sub GetSheets()

Dim j As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For j = 1 To NumSheets         Cells(j, 1) = Sheets(j).Name     Next j End Sub

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

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

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (12181) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для более старого интерфейса меню Excel здесь: link: / excel-Printing_a_Worksheet_List [Печать списка рабочих листов].