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

Создать оглавление книги — наиболее запрашиваемый макрос. Нам часто приходится работать с файлами, которые имеют много вкладок. Таблица с содержанием определенно помогает. Этот макрос не только создает список имен рабочих таблиц в книге, но он также показывает гиперссылки, так что вы можете легко перейти к листу простым нажатием кнопки. 

На первый взгляд данный макрос выглядит сложным. Тем не менее, рассмотрим несколько простых действий, как это происходит.

Макрос выполняет следующие шаги:

1. Удаляет предыдущий лист Оглавление
2. Создает новый лист Оглавление с таблицей 
3. Захватывает имя каждого листа и вставляет его в оглавление 
4. Добавляет гиперссылку к каждой записи в оглавлении 

1. Шаг 1 объявляет целую переменную с именем I, которая будет выступать в качестве счетчика, который перебирает листы. В этой процедуре мы используем счетчик (наша переменная I). Основная причина в том, что мы не только должны следить за листами, но мы также должны суметь ввести имя каждого листа на новую строку в таблицу оглавления. Идея заключается в том, что, счетчик проходит через листы, он также служит для перемещения курсора вниз в таблице содержания, каждая новая запись идет на новую строку. 

2. Шаг 2, по существу пытается удалить любой предыдущий лист под названием «Оглавление». Шаг 2 должен начаться с On Error Resume Next — обработчика ошибок. Если возникает ошибка — происходит удаление листа «Оглавление» с использованием метода DisplayAlerts. Наконец, мы сбрасываем обработчик ошибок, снова введя On Error GoTo 0. 

3. На шаге 3 добавляем новый лист в книгу, используя аргумент, чтобы поместить новый лист в качестве первого листа. Затем переименовываем лист. При добавлении нового рабочего листа, он автоматически становится активным. Поскольку этот новый лист имеет фокус на протяжении всей процедуры, любые ссылки на ActiveSheet в этом коде, обращаются к таблице на листе «Оглавление». 

4. Шаг 4 запускает счетчик I и происходит подсчет всех листов в книге. Когда будет достигнуто максимальное количество листов, макрокоманда закончится. 

5. Шаг 5 выбирает соответствующую строку в таблице Оглавление. То есть, если счетчик на 1, он выбирает первую строку в таблице Оглавление. Если счетчик I находится в 2, она выбирает вторую строку, и так далее. Мы можем сделать это с помощью элемента Cells. Элемент Cells обеспечивает чрезвычайно удобный способ выбора диапазонов с помощью кода. Для этого требуется только относительные позиции строки и столбца в качестве параметров. Таким образом, клетки (1,1) приводит к строке 1, столбец 1 (или ячейку A1). Ячейка (5, 3) приводит к 5-й строке, столбце 3 (или ячейка C5). Числовые параметры в элементе Cells особенно удобны, когда вы хотите, чтобы цикл шел через серию строк или столбцов, используя увеличивающееся номер индекса. 

6. Шаг 6 использует метод Hyperlinks.Add, чтобы добавить имя листа и гиперссылки к выбранной ячейке. Параметры метода Hyperlinks.Add необходимы для построения гиперссылок. 

7. Последний шаг в макросе возвращает к началу цикла приращения счетчика I к следующему. Когда счетчик достигает числа I макрокоманда заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.