Формула для колонтитулов

Антон

Гость

27.09.2011 10:07:00

Как можно размножить текст колонтитула с одного листа в книге на все другие (листов много). Или из определнной ячейки одного листа в колонтитулы всех других. Данные текста могут изменяться часто. (Т.е. в одном месте поменял и автоматом везде поменялось).
Думаю понятно.
Если есть разница, то отдельно для 2003 и 2007.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 27.09.2011 10:44:21 Из ячейки А1 Лист1 в средний верхний колонтитул всех листов: Sub Макрос1() Dim ws As Worksheet For Each ws In Worksheets ws.PageSetup.CenterHeader = [Лист1!A1] Next End Sub

Антон Гость	#3 27.09.2011 11:48:13 Спасибо. Здорово. Работает. А выравнивание относительно страницы только в центре или можно сделать любое? Размер и сам шрифт можно задать по А1 или ????

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#4 27.09.2011 12:12:44 .LeftHeader = .CenterHeader = .RightHeader = Редко но метко ...

Антон Гость	#5 27.09.2011 12:25:24 Всё понял, спасибо GIG_ant. Еще не пробывал в 2003, пока здесь стоит 2007, надеюсь и там бедет работать. Что-то еще хотел уточнить, отвлекли и подзабыл. Буду вставлять макрос в нужные файлы - вспомню. Или его лучше по другому расположить.

Читают тему