Книга: Excel. Трюки и эффекты
Вставка колонтитула с именем книги, листа и текущей датой
Вставка колонтитула с именем книги, листа и текущей датой
Обычно колонтитулы вставляются с помощью комадны Вставка ? Текст ? Колонтитулы. Однако для этой цели можно также воспользоваться макросом, код которого приведен в листинге 2.11.
Листинг 2.11. Вставка колонтитула
Sub AddPageHeader()
Dim i As Integer
With ThisWorkbook
' Вставка колонтитулов на все листы рабочей книги
For i = 1 To .Worksheets.Count – 1
.Worksheets(i).PageSetup.LeftHeader = .FullName
.Worksheets(i).PageSetup.CenterHeader = Worksheets(i).Name
.Worksheets(i).PageSetup.RightHeader = Now()
Next
End With
End Sub
Следует учитывать, что приведенный код должен быть помещен в модуль ЭтаКнига.
В результате выполнения данного макроса в колонтитуле документа слева будет выведено имя рабочей книги (с указанием полного пути к файлу), в центре – имя текущего рабочего листа, а справа – текущая дата. Увидеть сформированный колонтитул можно в режиме Разметка страницы.
- Листы-синонимы
- Автоматическая вставка URL-адреса
- Быстрый переход по рабочему листу
- Разные листы с общими данными
- Рисование «правильных» фигур
- Скрытие данных от посторонних
- Блокировка использования контекстного меню
- Вставка колонтитула с именем книги, листа и текущей датой
- Проверка существования листа
- Проверка, защищен ли рабочий лист
- Сколько страниц на всех листах?
- Автоматический пересчет данных таблицы при изменении ее значений
- Типы данных для работы с датой и временем
- Сохранение рабочей книги с именем, представляющим собой текущую дату
- Сноски из книги
- Особенности оформления текста книги
- Можно ли читать книги в Интернете?
- Почему во время просмотра сайтов в Internet Explorer при прокрутке колесиком мыши страницу как бы листает волнами, а не ...
- Как возникла идея этой книги?
- Структура документа и вставка оглавления
- Практическая работа 35. Создание структуры документа и вставка оглавления
- Листы-синонимы