Excel позволяет указывать верхние и нижние колонтитулы для ваших листов. Вы можете скопировать эти верхние и нижние колонтитулы с одного листа на другой. Сделать это в книге относительно легко, но переход от одной книги к другой может быть более сложной задачей.
Если верхний и нижний колонтитулы – это те, которые вы используете в новых книгах, а ваши основные Проблема заключается в том, чтобы верхний и нижний колонтитулы были доступны в этих новых книгах (а не в существующих книгах), тогда лучшим подходом было бы создание книги-шаблона. Просто настройте книгу по своему усмотрению, включая спецификацию верхних и нижних колонтитулов. Затем сохраните книгу как шаблон Excel (формат XLT). Затем вы можете создать свои книги на основе этого шаблона, и он будет иметь желаемые верхние и нижние колонтитулы.
Один из способов скопировать верхние и нижние колонтитулы с листа в одной книге на лист в другом – это использовать традиционные методы редактирования копирования и вставки. Другими словами, вы можете выбрать материал заголовка, который хотите скопировать, нажать Ctrl + C , отобразить заголовок на целевом листе, а затем нажать Ctrl + V б>. Недостатком этого подхода является то, что он может включать в себя довольно много шагов. В конце концов, есть три раздела (левый, центральный и правый) для каждого верхнего колонтитула и по три для каждого нижнего колонтитула. Это означает, что вы должны выполнить шесть операций копирования и вставки, чтобы скопировать весь верхний и нижний колонтитулы.
Другой способ копирования верхних и нижних колонтитулов из одной книги в другую включает использование собственных команд Excel для создания копий. рабочих листов. Выполните следующие действия:
- Откройте целевую книгу; тот, в который вы хотите скопировать верхние и нижние колонтитулы.
- Откройте книгу, которая является источником вашего верхнего и нижнего колонтитула, и убедитесь, что отображается нужный рабочий лист.
- Выберите «Переместить» или «Копировать лист» в меню «Правка». Excel отображает диалоговое окно «Перемещение или копирование». (См. Рис. 1.)
- В раскрывающемся списке «В книгу» выберите целевую книгу, которую вы открыли на шаге 1.
- В области «Перед листом» укажите, куда вы хотите скопировать лист.
- Убедитесь, что установлен флажок «Создать копию».
- Нажмите «ОК». Рабочий лист копируется в целевую книгу.
- Закройте исходную книгу, начиная с шага 2.
- В целевой книге отобразите рабочий лист, который вы только что скопировали.
- В области вкладок в нижней части окна щелкните правой кнопкой мыши и выберите «Выбрать все листы». Теперь все листы выбраны.
- Отображение диалогового окна «Параметры страницы». (Выберите «Параметры страницы» в меню «Файл».)
- Убедитесь, что выбрана вкладка «Верхний/нижний колонтитул». (См. Рис. 2.)
- Используя раскрывающиеся списки “Верхний колонтитул” и “Нижний колонтитул”, выберите верхний и нижний колонтитулы, используемые на только что скопированном листе.
- Нажмите “ОК”.
- Удалите рабочий лист, который вы скопировали на шагах с 1 по 7.
Рис. 1. Диалоговое окно «Перемещение или копирование».
Рис. 2. Вкладка «Верхний/нижний колонтитул» диалогового окна «Параметры страницы»..
По сути, вы скопировали рабочий лист, содержащий желаемый верхний и нижний колонтитулы, а затем скопировали этот заголовок. и нижний колонтитул на другие листы в книге, а затем вы удалили исходный лист.
Хотя эти шаги работают нормально, они могут быть утомительными, если вам нужно скопировать верхние и нижние колонтитулы в несколько разных книг. В этом случае использование макроса для копирования является более разумным подходом. Следующие два макроса можно использовать для копирования верхних и нижних колонтитулов за один простой шаг. Все, что вам нужно сделать, это отобразить исходный лист и использовать макрос GetHeaders. Этот макрос копирует информацию верхнего и нижнего колонтитула в строковые переменные. Затем вы можете по очереди отобразить каждый рабочий лист, у которого должны быть одинаковые верхний и нижний колонтитулы, и запустить макрос DoHeaders.
Option ExplicitDim strHeadLeft As StringDim strHeadCenter As StringDim strHeadRight As StringDim strFootLeft As StringDim strFoot Как StringDim strFootRight As StringDim bGotHeaders As BooleanSub GetHeaders () С ActiveSheet.PageSetup strHeadLeft = .LeftHeader strHeadCenter = .CenterHeader strHeadRight = .RightHeader strFootrLeft =. # pre> Sub DoHeaders () Если bGotHeaders, тогда с ActiveSheet.PageSetup .LeftHeader = strHeadLeader .CenterHeader = strHeadCenter .RightHeader = strHeadRight .LeftFooter = strFootLeftRight .LeftFooter = strFootLeftRight. _ & «заголовки, которые вы хотите скопировать,» _ & vbCrLf & «затем запустите ‘GetHeaders'», _ vbExclamation, «No Heade rs In Memory «End IfEnd Sub
При желании можно даже назначить макросы кнопкам панели инструментов, что может сделать их еще более удобными для копирования верхних и нижних колонтитулов.
Если у вас есть несколько листов и книг, в которые вы хотите скопировать верхние и нижние колонтитулы, вы можете использовать другой подход к макросам. Следующий макрос скопирует верхние и нижние колонтитулы из активного рабочего листа на все остальные рабочие листы во всех других открытых книгах.
Sub CopyHeaderFooter () Dim PS As PageSetup Dim WB As Workbook Dim WS As Worksheet Set PS = ActiveSheet.PageSetup Для каждого WB в рабочих книгах Для каждого WS в WB.Worksheets с WS.PageSetup .LeftHeader = PS.LeftHeader .CenterHeader = PS.CenterHeader .RightHeader = PS.RightHeader .LeftFooter.LeftFooter = PS.LeftFooter = PS.LeftFooter =. .RightFooter = PS. RightFooter End with Next NextEnd Sub
Другими словами, если вы хотите скопировать верхние и нижние колонтитулы с текущего рабочего листа на 150 других листов, распределенных по 15 различным книгам, все, что вам нужно сделать, это открыть 15 книги одновременно, отобразите исходный лист и запустите макрос.
Источник: