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

На рис. 191.1 показан лист с некоторыми значениями. Ячейка А1 содержит обычную формулу, которая вычисляет сумму значений. Цель состоит в том, чтобы отобразить значение ячейки А1 в центре верхнего колонтитула страницы.

Рис. 191.1. Необходимо показать содержимое ячейки А1 в верхнем колонтитуле страницы

Чтобы создать макрос, выполните следующие действия.

1. Убедитесь, что окно рабочей книги не развернуто.
2. Щелкните правой кнопкой мыши на вкладке листа и выберите команду Исходный текст. Появится пустой модуль кода в редакторе Visual Basic. В левой части щелкните на объекте ЭтаКнига, чтобы добавить для него код.
3. Введите следующий макрос:

1 2 3 4 5

Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .CenterHeader = Sheets("Лист1").Range("A1").Text End With End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .CenterHeader = Sheets("Лист1").Range("A1").Text End With End Sub

Макрос выполняется в том случае, если книга печатается. Макрос копирует содержимое ячейки А1 (листа Лист1) в центральный верхний колонтитул. Вы можете, конечно, настроить имя листа или адрес диапазона так, чтобы колонтитул отображал содержимое другой ячейки.

Чтобы разместить содержимое ячейки в различных местах верхнего и нижнего колонтитулов, замените CenterHeader одним из следующих названий:

• LeftHeader;
• RightHeader;
• LeftFooter;
• CenterFooter;
• RightFooter.

К сожалению, Excel 2010 не выводит новый верхний или нижний колонтитул, когда книга предварительно просматривается.

Если у вашей книги расширение XLSX, вам необходимо повторно сохранить ее с расширением XLSM. В противном случае Excel отбросит макрос.