год в колонтитулы - Microsoft Office Excel - Страница 2

mchip · 16.12.2009, 09:54

Вот пример:

Код:

ThisWorkbook.Sheets(2).Cells(1, 1).Value

где:
ThisWorkbook - ссылка на данную книгу
Sheets(2) - ссылка на 2 лист
Cells(1, 1) - ссылка на ячейку "А1"

romir · 16.12.2009, 10:23

Принцип понял. Огромное спасибо.

romir · 16.12.2009, 11:00

а как сделать, чтобы макрос запускался автоматом, например при сохранении, или печати?

mchip · 16.12.2009, 11:07

Этот код вставь в книгу (не на страницу!)

Код:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Sheets(1).PageSetup.CenterHeader = "¹" & Sheets(2).Cells(1, 1).Value & " год: " & Format(Now, "YYYY") & "  месяц:  " & Format(Now, "MMMM")
End Sub

16.12.2009, 09:54	#11
mchip Форумчанин Регистрация: 24.06.2008 Сообщений: 516	Вот пример: Код: `ThisWorkbook.Sheets(2).Cells(1, 1).Value` где: ThisWorkbook - ссылка на данную книгу Sheets(2) - ссылка на 2 лист Cells(1, 1) - ссылка на ячейку "А1" Можно сделать все! Было бы время, да деньги...

16.12.2009, 11:07	#14
mchip Форумчанин Регистрация: 24.06.2008 Сообщений: 516	Этот код вставь в книгу (не на страницу!) Код: `Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets(1).PageSetup.CenterHeader = "¹" & Sheets(2).Cells(1, 1).Value & " год: " & Format(Now, "YYYY") & " месяц: " & Format(Now, "MMMM") End Sub` Можно сделать все! Было бы время, да деньги...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
АВТОМАТИЧЕСКИЕ КОЛОНТИТУЛЫ	provodnikam	Microsoft Office Word	7	25.11.2009 12:11
Колонтитулы	KNatalia	Microsoft Office Excel	6	11.11.2009 22:01
Колонтитулы Excel	nikolai_P	Microsoft Office Excel	1	09.09.2009 15:52
Колонтитулы: как в предыдущем и поля	Busine2009	Microsoft Office Word	7	06.08.2009 22:24
Колонтитулы при альбомной ориентации в MS Word	OldNick85	Microsoft Office Word	1	14.11.2007 07:12

16.12.2009, 10:23	#12
romir Пользователь Регистрация: 17.09.2009 Сообщений: 10	Принцип понял. Огромное спасибо.

16.12.2009, 11:00	#13
romir Пользователь Регистрация: 17.09.2009 Сообщений: 10	а как сделать, чтобы макрос запускался автоматом, например при сохранении, или печати?