Microsoft Excel

трюкиприёмырешения

Печать таблиц
19.04.2013 3526

Печать содержимого ячейки в верхнем или нижнем колонтитуле таблицы Excel

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

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

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

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

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

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

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

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

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

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

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


Top