Колонтитул только на последней странице excel - Word и Excel

olegpetr

Пользователь

Сообщений: 5
Регистрация: 13.06.2018

07.12.2018 15:58:47

Приветствую, форумчане!

Решил и я потрепать ваши умы, хватит только читать =)
Собственно задача — на последней странице генерируемого документа (количество страниц варьируется от 1 до 20) нужно чтобы автоматически добавлялась надпись «Исполнитель: Петров А.И.»<br><br><br><br> (после «Исполнитель: Петров А.И.» обязательно должно быть 4 переноса строки).

Прогуглив, нашел полурешение, но не могу подстроить под себя ввиду отсутствия знаний.
А нашел вот что:

В колонтитуле прописать функцию:

Код
=ЕСЛИ(ЛИСТ()=СТРАНИЦЫ;"Исполнитель: Петров А.И.";""),

где «СТРАНИЦЫ» — это присовенное имя =ПОЛУЧИТЬ.ДОКУМЕНТ(50+0*ТДАТА()) — выдает общее количество страниц

*/Первоисточник

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=8069&amp…

Но оказалось что в колонтитул нельзя вставить функцию, и его редактировать можно только через vba.
Нашел макрос:

Код

Sub FooterFrom()'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

Он работает отлично, но каждый раз нужно указывать ячейку, из которой брать данные, что в моем случае не удобно. Помогите отредактированть макрос так, чтобы он автоматически проверял является ли страница последней и вставлял в нее подпись.

Заранее благодарю.

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

07.12.2018 18:48:41

Цитата
olegpetr написал: но каждый раз нужно указывать ячейку, из которой брать данные… …чтобы он автоматически проверял является ли страница последней и вставлял в нее подпись.

Не понятно, что же все таки нужно? Толи подставлять ячейку, из которой брать данные, толи проверять является ли страница последней

Согласие есть продукт при полном непротивлении сторон.

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

07.12.2018 20:56:43

Адрес верхней левой ячейки последней страницы (сверху вниз) текущего листа:

Код
msgbox activesheet.HPageBreaks(activesheet.HPageBreaks.Count).Location.Address

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

_Igor_61

Пользователь

Сообщений: 3007
Регистрация: 18.07.2016

07.12.2018 21:07:26

Цитата
Sanja написал: Не понятно, что же все таки нужно?

Наверное, ТС-у нужно создать две темы в соответствии с правилами форума: одна тема — один вопрос. Тогда и последнюю страницу получится найти, и в колонтитул вписать то, что нужно.
По теме: Вместо ссылки на ячейку (что в Вашем макросе в первом сообщении) можно просто написать: «Вася Иванов», и тогда не нужно будет каждый раз указывать ячейку, в колонтитуле будет «Вася Иванов». Ну а если это не сработает, покажите это в файле-примере, чтобы можно было понять где и как и что не срабатывает

olegpetr

Пользователь

Сообщений: 5
Регистрация: 13.06.2018

11.12.2018 12:42:37

Извиняюсь за задержку с ответами, на работе завал

Да, видно ходом своих мыслей запутал всех и сам запутался

Цитата
Sanja написал: Не понятно, что же все таки нужно? Толи подставлять ячейку, из которой брать данные, толи проверять является ли страница последней

Проверить, является ли страница последней. И далее вставить в нижний колонтитул только этой страницы надпись «Вася Иванов». Подставлять данные из ячейки не нужно, это просто ход мысли описал зачем-то.

Цитата
JayBhagavan написал: Адрес верхней левой ячейки последней страницы (сверху вниз) текущего листа: 1msgbox activesheet.HPageBreaks(activesheet.HPageBreaks.Count).Location.Address

Хм, отличный вариант! А как будет выглядеть, если нужна нижняя левая ячейка последней страницы? В принципе можно эту подпись написать не в колонтитуле, а на последней строке последней страницы.

Цитата
_Igor_61 написал: Адрес верхней левой ячейки последней страницы (сверху вниз) текущего листа:Код ? 1msgbox activesheet.HPageBreaks(activesheet.HPageBreaks.Count).Location.Address

В этом случае надпись будет же на всех страницах, а нужно только на последней. С редактированием (как и с ручным созданием) макросов к сожалению не знаком. Если подтолкнете или направите, что именно и на что подправить — буду признателен.

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

11.12.2018 13:01:31

Цитата
olegpetr написал: нижняя левая ячейка последней страницы?

Код
cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells(1)

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

olegpetr

Пользователь

Сообщений: 5
Регистрация: 13.06.2018

12.12.2018 13:41:19

Большое спасибо за помощь!

Цитата
JayBhagavan написал: cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells(1)

Если я правильно понял, вот такой макрос должен выделять нужную мне ячейку (левая ячейка, последняя строка, последняя страница):

Код
Sub Макрос2() Cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells(1).Select End Sub

Но получается, что он выделяет крайнюю левую ячейку самой нижней строки, в которой были введены какие-либо значения.

Я что-то сделал не так?

Прикрепленные файлы

Книга2.xlsm (16.33 КБ)

Изменено: olegpetr — 12.12.2018 14:42:50
(Не приложил файл)

olegpetr Пользователь Сообщений: 5 Регистрация: 13.06.2018	#8 12.12.2018 13:46:37 А нужно, чтобы выделялась вот эта ячейка (выделена красным): Прикрепленные файлы Excel.jpg (68.78 КБ)

Источник

ОБНОВЛЕНО 3.10.2015 @ 16:03

Я пытаюсь добавить нижний колонтитул на последнюю страницу только в Excel, но, как ни странно, в программе нет никаких опций… вы можете указать только собственный нижний колонтитул для первой страницы и ничего больше!

Я полагал, что единственный способ добиться этого — использовать макросы VBA, но, к сожалению, любая онлайн-информация, касающаяся реализации этой функциональности, уже более 10 лет и не очень помогает.

Из-за ограничений опции нижнего колонтитула, я подумал, что попробую другой подход, который должен был добавить строку внизу последней страницы.

У меня есть следующий код…

Sub pageBreak()

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

rows(LastRow & ":200").Select
Selection.Delete Shift:=xlUp

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & LastRow + Unknown Value

HowMany = ActiveSheet.HPageBreaks.Count

WhatRow = ActiveSheet.HPageBreaks(HowMany).Location.Row - 4

Range("A" & CStr(WhatRow) & ":L" & CStr(WhatRow)).Merge

rows(WhatRow).RowHeight = 54
rows(WhatRow).VerticalAlignment = xlCenter
rows(WhatRow).HorizontalAlignment = xlCenter
rows(WhatRow).WrapText = True

Range("A" & CStr(WhatRow)) = Worksheets("Sheet2").Range("A1")

End Sub

Это почти работает, но суть в том, что это зависит от наличия разрывов страниц, поэтому предположим, что ваш контент закончился на странице 2, вам нужно вручную опустить область печати, чтобы показать страницу 3, так что между страницами есть разрыв 2/3, а затем код может быть помещен над ним на странице 2. Так в моем коде, где он говорит Unknown Value, это должно быть количество, необходимое между LastRow и срабатыванием следующего разрыва страницы. Есть идеи, как это сделать?

Источник

По умолчанию со встроенным Верхний и нижний колонтитулы функции Excel, вы можете легко добавлять нижние колонтитулы внизу каждой печатной страницы рабочего листа. Если вы хотите добавить нижний колонтитул к последней напечатанной странице только на рабочем листе, как вы можете это сделать? В этом руководстве представлен сценарий VBA, который поможет вам выполнить эту задачу шаг за шагом.

Печатать нижний колонтитул на последней странице только с кодом VBA

Запустите следующий код VBA, чтобы напечатать пользовательский нижний колонтитул на последней напечатанной странице только в Excel.

1. Откройте рабочий лист, который вы хотите напечатать, с настраиваемым нижним колонтитулом, отображаемым только на последней напечатанной странице.

2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте следующий код VBA в Модуль (код) окно.

Код VBA: печатать нижний колонтитул только на последней странице

Sub SetFooterOnLastPage()
'Updated by Extendoffice 20221024
    Dim xCount As Long
    Dim xWSh
    xCount = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    Set xWSh = Application.ActiveSheet
    With Application.ActiveSheet
    .PageSetup.RightFooter = ""
        If xCount > 1 Then
            .PrintOut From:=1, To:=xCount - 1
        End If
            .PageSetup.RightFooter = "Type your footer information here"
            .PrintOut From:=xCount, To:=xCount
    End With
End Sub

Внимание: В коде замените этот контент «Введите информацию о нижнем колонтитуле здесь» с вашей собственной информацией нижнего колонтитула.

4. нажмите F5 ключ для запуска кода.

Затем активный рабочий лист будет напечатан со вставкой пользовательского нижнего колонтитула только на последней напечатанной странице.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник

@JasonChan

Here is a small example with VBA.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Arial""&8Erstellt von: XXX" & vbLf & "Test"
.CenterFooter = "&""Arial""&8" & ActiveWorkbook.FullName & ": " & ActiveSheet.Name & vbLf & "Seite " & "&P" & " von " & "&N" & "&9"
.RightFooter = "&""Arial""&8Datum: " & Date & vbLf
End With
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&""Arial""&8 Erstellt von: XXX" & vbLf & "Test"
.CenterFooter = "&""Arial""&8" & ActiveWorkbook.FullName & ": " & ActiveSheet.Name & vbLf & "Seite " & "&P" & " von " & "&N" & "&9"
.RightFooter = "&""Arial""&8Datum: " & Date & vbLf
End With
End Sub

Formatting and VBA codes for headers and footers

https://docs.microsoft.com/en-us/office/vba/excel/concepts/workbooks-and-worksheets/formatting-and-v…

I would be happy to know if I could help.

I wish you continued success with Excel

Nikolino

I know I don’t know anything (Socrates)

Источник

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Excel Starter 2010 Еще…Меньше

В верхнюю или нижнюю часть выводимого на печать листа в Excel можно добавить колонтитулы. Например, можно создать нижний колонтитул с номерами страниц, датой и именем файла. Можно создать собственные колонтитулы или использовать множество встроенных колонтитулов.

Верхние и нижние колонтитулы отображаются только в представлении Разметка страницы, при предварительном просмотре и на напечатанных страницах. Если нужно вставить колонтитулы сразу на несколько листов, можно воспользоваться диалоговым окном Параметры страницы. При работе с листами других типов, такими как листы диаграмм, вставить колонтитулы на страницы можно только с помощью диалогового окна Параметры страницы.

Добавление и изменение колонтитулов в представлении «Разметка страницы»

Щелкните лист, на котором нужно добавить или изменить колонтитулы.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

Excel отобразит лист в представлении Разметка страницы.
Чтобы добавить или изменить верхний или нижний колонтитул, щелкните левое, центральное или правое текстовое поле колонтитула в верхней или нижней части страницы листа (под надписью Верхний колонтитул или над надписью Нижний колонтитул).
Ввод нового текста колонтитула.
Примечания:
- Чтобы начать новую строку текста в верхнем или нижнем колонтитуле, нажмите клавишу ВВОД.
- Для вставки одиночного амперсанда (&) внутри текста колонтитула введите два амперсанда. Например, чтобы включить в верхний колонтитул текст «Субподрядчики & Услуги», введите значение Субподрядчики && Услуги.
- Чтобы завершить работу с колонтитулами, щелкните в любом месте листа. Чтобы закрыть колонтитулы без сохранения изменений, нажмите клавишу ESC.

Щелкните лист или листы, лист диаграммы или диаграмму, для которых нужно добавить или изменить колонтитулы.

Совет: Чтобы выделить несколько листов, щелкните их, удерживая нажатой клавишу CTRL. Если выделено несколько листов, в заголовке в верхней части листа отображается надпись [Группа]. Чтобы отменить выделение нескольких листов книги, щелкните любой невыделенный лист. Если таких листов нет, щелкните правой кнопкой мыши ярлычок листа и выберите команду Разгруппировать листы.
На вкладке «Разметка страницы» в группе «Параметры страницы» нажмите кнопку запуска диалогового окна .

На экран будет выведено диалоговое окно Параметры страницы.
На вкладке Колонтитулы нажмите кнопку Создать верхний колонтитул или Создать нижний колонтитул.
Щелкните поле Слева, В центре или Справа и нажмите соответствующие кнопки, чтобы добавить сведения в верхний или нижний колонтитул в данном поле.
Чтобы добавить или изменить текст верхнего или нижнего колонтитула, внесите изменения в поле Слева, В центре или Справа.
Примечания:
- Чтобы начать новую строку текста в верхнем или нижнем колонтитуле, нажмите клавишу ВВОД.
- Для вставки одиночного амперсанда (&) внутри текста колонтитула введите два амперсанда. Например, чтобы включить в верхний колонтитул текст «Субподрядчики & Услуги», введите значение Субподрядчики && Услуги.

В Excel есть множество встроенных верхних и нижних колонтитулов. С колонтитулами листов можно работать в представлении Разметка страницы. В случае диаграмм и листов диаграмм для работы с колонтитулами используйте диалоговое окно Параметры страницы.

Щелкните лист, на котором нужно добавить или изменить встроенный колонтитул.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

Excel отобразит лист в представлении Разметка страницы.
Выберите левое, центральное или правое текстовое поле колонтитула в верхней или нижней части листа.

Совет: Щелкнув любое поле, можно выбрать верхний или нижний колонтитул и отобразить группу Колонтитулы на вкладке Конструктор.
На вкладке Конструктор в группе Колонтитулы нажмите Верхний колонтитул или Нижний колонтитул и выберите подходящий встроенный колонтитул.

Вместо того чтобы выбирать встроенный колонтитул, можно выбрать встроенный элемент. Многие из них, например Номер страницы, Имя файла и Текущая дата, можно найти на ленте. С колонтитулами листов можно работать в представлении Разметка страницы. В случае диаграмм и листов диаграмм для работы с колонтитулами используйте диалоговое окно Параметры страницы.

Выберите лист, в колонтитулы которого требуется добавить элементы.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

Excel отобразит лист в представлении Разметка страницы.
Выберите левое, центральное или правое текстовое поле колонтитула в верхней или нижней части листа.

Совет: Щелкнув любое поле, можно выбрать верхний или нижний колонтитул и отобразить группу Колонтитулы на вкладке Конструктор.
На вкладке Конструктор в группе Элементы колонтитулов выберите нужный элемент.

Щелкните лист диаграммы или диаграмму, для которых нужно добавить или изменить элемент колонтитула.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

На экран будет выведено диалоговое окно Параметры страницы.
Нажмите кнопку Настраиваемый верхний колонтитул или Настраиваемый нижний колонтитул.
Используя кнопки диалогового окна Верхний колонтитул или Нижний колонтитул, вставьте определенные элементы в верхний или нижний колонтитул.

Совет: При наведении указателя мыши на кнопку подсказка выведет имя элемента, вставляемого нажатием этой кнопки.

С колонтитулами листов можно работать в представлении Разметка страницы. В случае диаграмм и листов диаграмм для работы с колонтитулами используйте диалоговое окно Параметры страницы.

Выберите лист, для которого требуется настроить параметры колонтитулов.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

Excel отобразит лист в представлении Разметка страницы.
Выберите левое, центральное или правое текстовое поле колонтитула в верхней или нижней части листа.

Совет: Щелкнув любое поле, можно выбрать верхний или нижний колонтитул и отобразить группу Колонтитулы на вкладке Конструктор.
На вкладке Конструктор в группе Параметры установите один указанных ниже флажков.
- Чтобы удалить колонтитулы с первой печатаемой страницы, установите флажок Особый колонтитул для первой страницы.
- Чтобы указать, что колонтитулы нечетных страниц должны отличаться от колонтитулов четных страниц, установите флажок Разные колонтитулы для четных и нечетных страниц.
- Чтобы указать, что в колонтитулах должен использоваться такой же размер шрифта и масштаб, что и на листе, установите флажок Изменять масштаб вместе с документом.
  
  Чтобы размер шрифта и масштаб колонтитулов не зависели от масштабирования листа при выводе нескольких страниц (это позволяет добиться единообразного вида выводимых данных), снимите этот флажок.
- Чтобы выровнять поля колонтитулов относительно левого и правого полей листа, установите флажок Выровнять относительно полей страницы.
  
  Чтобы задать определенные значения левого и правого полей колонтитулов, не зависящие от левого и правого полей листа, снимите этот флажок.

Щелкните диаграмму или лист диаграммы, для которых требуется настроить параметры колонтитулов.
На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

На экран будет выведено диалоговое окно Параметры страницы.
Выполните одно или несколько из указанных ниже действий.
- Чтобы удалить колонтитулы с первой печатаемой страницы, установите флажок Особый колонтитул для первой страницы.
- Чтобы указать, что колонтитулы нечетных страниц должны отличаться от колонтитулов четных страниц, установите флажок Разные колонтитулы для четных и нечетных страниц.
- Чтобы указать, что в колонтитулах должен использоваться такой же размер шрифта и масштаб, что и на листе, установите флажок Изменять масштаб вместе с документом.
  
  Чтобы размер шрифта и масштаб колонтитулов не зависели от масштабирования листа при выводе нескольких страниц (это позволяет добиться единообразного вида выводимых данных), снимите флажок Изменять масштаб вместе с документом.
- Чтобы выровнять поля колонтитулов относительно левого и правого полей листа, установите флажок Выровнять относительно полей страницы.
  
  Совет: Чтобы задать определенные значения левого и правого полей колонтитулов, не зависящие от левого и правого полей листа, снимите этот флажок.

Чтобы закрыть верхний или нижний колонтитул, переключитесь из страничного режима просмотра в обычный.

На вкладке Вид в группе Режимы просмотра книги нажмите кнопку Обычный.

Вы также можете щелкнуть «Обычный » в строке состояния.

На вкладке Вставка в группе Текст нажмите кнопку Колонтитулы.

Excel отобразит лист в представлении Разметка страницы.
Выберите левое, центральное или правое текстовое поле колонтитула в верхней или нижней части листа.

Совет: Щелкнув любое поле, можно выбрать верхний или нижний колонтитул и отобразить группу Колонтитулы на вкладке Конструктор.
Нажмите клавишу DELETE или BACKSPACE.

Примечание: Чтобы удалить колонтитулы сразу с нескольких листов, выберите эти листы, а затем откройте диалоговое окно Параметры страницы. Чтобы удалить сразу все колонтитулы, на вкладке Колонтитулы в поле Верхний колонтитул или Нижний колонтитул выберите (нет).

К началу страницы

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Печать в Excel

Настройка страницы в Excel

Нужна дополнительная помощь?

Источник