Содержание книги

Можно оформить содержание книги в виде обновляющегося состава листов. Это особенно актуально, если в рабочей книге Excel число листов насчитывает не один десяток. Навигация по листам начинает становится проблемой. И столько кнопок уже не будет помещаться на титульном листе.

Выходом может быть создание чего-то похожего на оглавление документа - интерактивного списка листов с гиперссылками на них на отдельном (можно на титульном) листе. Для этого необходимо использовать редактор Visual Basic for Applications (VBA).

Откроем редактор Visual Basic, нажав ALT+F11 или через вкладку Разработчик. В открывшемся окне редактора создаем новый пустой модуль (меню Insert - Module) и скопируем туда текст этого макроса (процедуры, программы):

S ub Содержание()

Dim sheet As Worksheet

Dim cell As Range

With ActiveWorkbook

For Each sheet In ActiveWorkbook.Worksheets

Set cell = Worksheets(1).Cells(sheet.Index, 1)

.Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1" ' одна строка

cell.Formula = sheet.Name

Next

End With

End Sub

Закроем редактор Visual Basic и вернемся в Excel. На титульный лист книги в районе ячейки А1 наносим кнопку из элементов управления формы (РазработчикВставить), и присваиваем ей макрос Содержание. Щелчок по кнопке Обновить содержание запустит его на выполнение. Макрос создаст на первом листе книги список гиперссылок с названиями листов (рис.справа). Щелчок по любой из них откроет нужный лист.

Первым указан титульный лист, именно поэтому его название можно закрыть кнопкой. Каждый щелчок обновит состав оглавления (после добавления или переименования листов).

Для удобства можно создать также и обратные ссылки на всех листах книги, которые будут возвращать назад на титульный лист (в оглавление). Чтобы не заниматься ручным созданием гиперссылок и копированием их потом на каждый лист (как было сделано с кнопкой Возврат), можно использовать другой метод. Выделяем все листы в книге, куда хотим добавить обратную ссылку (для массового выделения листов можно использовать SHIFT и/или CTRL)  и в любую подходящую ячейку вводим функцию:

=ГИПЕРССЫЛКА("[Книга1.xls]титул!A1";"Назад в оглавление")

Эта функция создаст в текущей ячейке на всех выделенных листах гиперссылку с текстом "Назад в оглавление", щелчок по которой будет возвращать пользователя к листу титул. Имя файла Книга1 надо заменить на свое название книги и поместить в квадратные скобки.

Б ыстрый переход между листами (если их много) можно осуществлять также следующими способами:

1. Горячие клавиши. Сочетания Ctrl+PgUp и Ctrl+PgDown позволят быстро пролистывать книгу вперед-назад.

2. Переход мышью: надо щелкнуть правой кнопкой мыши по кнопкам прокрутки, находящимся слева от ярлычков листов, и выбрать щелчком мыши нужный лист (рис.справа). Перечень листов открывается в виде оглавления – не хуже, чем в описанном выше содержании, для которого был создан макрос.

ПЗ-5. Вычисление данных различными способами.

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