Ако искате да вмъкнете определена информация в заглавката / долния колонтитул на работния лист, като името на файла / пътя на файла или текущата дата или номер на страница, можете да направите това, като използвате кода по -долу. Ако това е само един работен лист, можете да го направите ръчно, но ако това са няколко листа или всички листове в работната книга, които се нуждаят от тази информация, за да се попълнят, можете да направите това с помощта на прост vba макрос / код.
Този примерен макрос ще вмъкне заглавен/долен колонтитул във всеки работен лист в активната работна книга. Той също така ще вмъкне пълния път към работната книга.
Опция Експлицитна подложка InsertHeaderFooter () Dim wsAs Работен лист Application.ScreenUpdating = False Всеки wsInThisWorkbook.Worksheets С ws.PageSetup .LeftHeader = „Име на компанията:“ .CenterHeader = „Страница & P на & N“ .RightHe „Път:„ & ActiveWorkbook.Path .CenterFooter = „Име на работната книга: & F“ .RightFooter = „Лист: & A“ Завършва със следващ ws Задайте ws = Нищо Application.ScreenUpdating = True End Sub
За да копирате този код в работната си книга, натиснете Alt + F11 на клавиатурата си. След това отляво ще видите Microsoft Excel Objects. Щракнете с десния бутон и изберете Вмъкване. След това щракнете върху Модул и копирайте този код в кодовия прозорец вдясно.
Нека разбием всяка част от кода -
Започваме с обичайния оператор Dim, където декларираме променливите. В този случай имаме само 1 променлива - ws за работния лист. След това деактивираме актуализирането на екрана.
Сега, в цикъла FOR, преминаваме през всеки работен лист в работната книга, който съдържа макроса. И ние настройваме всеки параметър в Page Setup. & P, & N, & D, & T, & F и & A са определени кодове за формат, които могат да бъдат приложени към заглавки и долни колонтитули. & P отпечатва номера на страницата. & N отпечатва общия брой страници в документа. & D отпечатва текущата дата. & T отпечатва текущото време. & F отпечатва името на документа и & A отпечатва името на раздела на работната книга.
В края поставяме работния лист на нищо и освобождаваме обекта и активираме актуализирането на екрана.
Ето 2 снимки. 1ул единият ви показва заглавката и 2nd един в долния колонтитул след стартиране на макроса.
Заглавката има етикет Име на компанията. Името все още не е въведено, тъй като не сме го свързали с нито една клетка или не сме въвели в който и да е текст за името на компанията. Ако въведете нещо в кода или в листа на Excel и се позовавате на него, тогава името ще бъде взето и попълнено тук.
Страница № 0 от 0 показва, че в момента имаме 0 страници във файла, тъй като сме изпълнили този код на празен файл. Ако стартирате този код във файл, съдържащ данни, той ще ви покаже номера на страницата.
Отпечатано ви дава датата и часа на изпълнение на макроса заедно с текста „Отпечатано“.
В долния колонтитул етикетът Path ще ви покаже пътя на текущия файл.
Името ни е Book1.xlsx, който в момента е незаписан файл. Следователно не се показва път за етикета Path.
Номерът на листа се попълва вдясно от долния колонтитул.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта