Как вставить формулу колонтитул excel

buhgalter Пользователь Сообщений: 8 Регистрация: 01.01.1970	Помогите, пожалуйста!!!   Делаю рыбу отчета в Ехсе1е. Значение ячейки А17 ООО «Название»   Мне нужно подписать каждый лист, следовательно в колонтитуле должно быть: директор ООО «Название» _________ Пупкин А.В.   Как сделать чтобы ООО «Название» автоматьчески в ставало на свое место в колонтитуле???   Заранее благодарен!!!

	Sub Signature()      With ActiveSheet.PageSetup          .LeftFooter = «Директор » & [A1]        .CenterFooter = «_________________»      End With   End Sub     Макросом можно, например, так. В А1 на активном листе — переменное название организации

buhgalter Пользователь Сообщений: 8 Регистрация: 01.01.1970	Спасибо за участие, но поподробней, если можно и с цитатой, что и куда написать. Я макросами еще не пользовался…

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле

Предварительно в ячейке А1 пишем название фирмы. Копируем код (записано макрорекордером и удалено «лишнее»):   ===   Sub Макрос1()      With ActiveSheet.PageSetup          .LeftFooter = «Директор» & [A1]        .CenterFooter = «____________________»          .RightFooter = «В. Пупкин»      End With   End Sub   ===   Затем правый клик по ярлычку листа — Исходный текст. В появившемся окне редактора вставляем скопированное. Закрываем редактор. Alt + F8, выбираем наш макрос — Выполнить. Нажимаем на кнопочку «Предварительный просмотр» и смотрим результат.

Тогда так:   1. Где писать.   Открываем файл. Давим Alt+F11 — открывается окно редактора VBA. Слева вверху иерархический список объектов файла (листы, книга и т.д.). В редакторе выбираем пункт меню Insert — Module — вставится модуль (появится в списке слева). Два раза клик по нему — откроется окно кода модуля (бОльшая часть окна справа вверху) — туда надо скопировать эту писанину:     Sub Signature()   With ActiveSheet.PageSetup   .LeftFooter = «Директор » & [A1] .CenterFooter = «_________________»   End With   End Sub       2. Как работает   Активизируем лист1. В А1 листа пишем ООО «Василек». Давим Alt+F8 — выбираем из списка макрос Signature — выполнить. Смотрим просмотр печати.     3. Что это все значит   Sub Signature()-Название процедуры (имя макроса)   With ActiveSheet.PageSetup -Работаем с видом страницы активного листа   .LeftFooter = «Директор » & [A1] -устанавливаем левый нижний колонтитул как ‘объединение строки «Директор » и значения ячейки А1 активного листа .CenterFooter = «_________________» -устанавливаем нижний центральный колонтитул как строку, содержащую место для подписи.   End With -конец работы с видом страницы   End Sub -конец процедуры (макроса)     Если сложно разобраться — нарисуйте пример, где ручками расставьте колонтитулы, как надо — и укажите из какой ячейки какого листа брать переменное значение (название организации) — подправим макрос-пример.

buhgalter Пользователь Сообщений: 8 Регистрация: 01.01.1970	Спасибо,сработало, но я попытался подправить, ругается и не работает неправляю Вам документ, посотрите, пожалуйста, что не так. Что должно быть есть во втором листе. Там я делал в ручную, уже напоролся, распечатал с разными названиями на листе и в калонтитуле, почему и хочу сделать макрос.   Заранее очень благодарен!!!

	У вас почти получилось, надо было так:   Sub Signature()   With ActiveSheet.PageSetup   .RightFooter = «Директор » & [A17] & «_________________ Жихарев А.В.» End With   End Sub     т.е. межу [A17] и строкой надо еще один знак конкантенации & См. файл — запускать макрос, когда активен 2 лист

buhgalter Пользователь Сообщений: 8 Регистрация: 01.01.1970	Спасибо большое!   Заработало, но при смене значения ячейки в колонтитуле наименование не меняется. Меняется после перезапуска макроса Alt+F8. это нромально? И еще вопрос, я еще не пробовал, на других листах макрос будет работать?   Благодарю.

меняется после перезапуска макроса — это нормально — мы ж не ссылку на ячейку даем в колонтитуле, мы туда пишем значения при помощи набора команд (макроса). Если его не запустить — команды не выполнятся — как же там изменяться будет?     На других листах сработает, если значение организации будет в А17.   Макрос написан так, что для колонтитула он берет значение из А17 АКТИВНОГО (на момент выполнения макроса) листа

buhgalter Пользователь Сообщений: 8 Регистрация: 01.01.1970	Огромное спасибо!! Вы мне очень помогли!!!

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

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	У книги есть событие Workbook_BeforePrint. Вот туда вышеприведенный код. Я сам — дурнее всякого примера! …

Slayer Гость	#13 13.11.2012 22:04:09 Можно подробнее рассказать, как привязать скрипт к указанному событию? Для чайника?

Как поместить значение ячейки в верхний / нижний колонтитул в Excel?

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

Поместите значение ячейки в верхний или нижний колонтитул листа с кодом VBA

Поместите значение ячейки в верхний или нижний колонтитул всех листов с кодом VBA

Вставьте информацию о файле в верхний/нижний колонтитул с помощью Kutools for Excel

---

Если вы хотите поместить содержимое ячейки в верхний или нижний колонтитул текущего рабочего листа, следующий код VBA может вам помочь. Пожалуйста, сделайте следующие шаги:

1. Активируйте свой рабочий лист, в который вы хотите вставить пастух или нижний колонтитул со значением ячейки, затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2.Щелкните Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: поместите указанное значение ячейки в заголовок рабочего листа

Sub HeaderFrom()
'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.LeftHeader = WorkRng.Range("A1").Value
End Sub

3, Затем нажмите F5 Чтобы запустить этот код, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в заголовок.

4, Затем нажмите OK, это указанное значение ячейки было вставлено в левый заголовок текущего рабочего листа. Вы можете просмотреть заголовок, нажав Файл > Печать / PDF. Смотрите скриншот:

Ноты:

1. Если вы хотите использовать содержимое ячейки в качестве нижнего колонтитула активного рабочего листа, вы можете применить этот код:

Код 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

2. Вы также можете применить приведенные выше коды для вставки значения ячейки в правый верхний / нижний колонтитул или центральный верхний / нижний колонтитул, просто замените Левый заголовок / Левый нижний колонтитул с Правый заголовок / правый нижний колонтитул or ЦентрЗаголовок / Центр нижнего колонтитула в кодах.

---

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

1. Активируйте свою книгу, в которую вы хотите вставить пастух или нижний колонтитул со значением ячейки, затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: поместите указанное значение ячейки в нижний колонтитул всех листов

Sub AddFooterToAll()
'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)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3, Затем нажмите F5 нажмите клавишу для выполнения этого кода, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в нижний колонтитул всей книги.

4, Затем нажмите OK, это выбранное значение ячейки было добавлено ко всем левым нижним колонтитулам всех листов. Вы можете просмотреть нижний колонтитул, нажав Файл > Печать / PDF. Смотрите скриншот:

Ноты:

1. Если вы хотите использовать содержимое ячейки в качестве заголовка всей книги, вы можете применить этот код:

Код VBA: поместите указанное значение ячейки в заголовок всех листов

Sub AddHeaderToAll()
'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)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Заменить RightHeader / Footer or CenterHeader / Footer для LeftHeader / Footer в приведенных выше кодах, если вы хотите, чтобы ваш верхний или нижний колонтитул располагался по-другому.

---

Если вы хотите вставить информацию о фильтре в верхний или нижний колонтитул, такую ​​как имя рабочего листа / книги, путь к книге и т. Д., Вы можете использовать Kutools for ExcelАвтора Вставить информацию о книге утилита, если вы установили Kutools for Excel.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:

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

Наконечник: вы можете вставить информацию в трех местах верхнего или нижнего колонтитула: в центре, слева или справа.

3. Нажмите Ok. Тогда вы можете перейти к Вид > Макет страницы для просмотра заголовка.

С помощью «Вставить информацию о книге» вы также можете вставить информацию о файле в ячейку или диапазон ячеек. Щелкните здесь, чтобы узнать больше об этой утилите.

К
сведению:

Классически
колонтитулом называется шапка, повторяемая
в верхней части каждой страницы документа.
В текстовом редакторе также введено
понятие нижний колонтитул.

Выполните:

Откройте
файл Текст2 и сохраните его под именем
Колонтитулы.

Для
включение режима колонтитула включите
меню Вставить – Верхний (Нижний)
колонтитул.

Рис.
27

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

Изменение
границ текстового поля верхнего
колонтитула

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

Набор
текста

Напечатайте
в поле колонтитула шрифтом Times New Roman 10
вашу фамилию и имя.

Дальше
в этой же строке шрифтом Times New Roman 16 Ж
Курсив напечатайте номер школы и класс,
в котором вы учитесь.

Выровняйте
эту строку По левому краю и нажмите
Enter.

Открылась
вторая строка колонтитула.

Откройте
нижний колонтитул

Вставим
нумерацию страниц:

Войдите
Вставить – Поля – Номер страницы,
выровняйте По правому краю.

Установка
текущей даты и текущего времени. Перейдите
на вторую строку нижнего колонтитула
и войдите Вставить – Поля – Дата, а
затем Вставить – Поля – Время.

Рис.
28

Примечания:

—
проставленные страницы, дату и время
можно увидеть только в режиме
предварительного просмотра или распечатав
документ

—
проставленные таким образом текущие
время и дата меняют свои показания в
соответствии с показаниями внутреннего
счетчика компьютера. Завтра эти показания
будут, соответственно, другие.

Создание
фонового рисунка рабочего документа.
Войдите Сервис – Галерея. Ниже панелей
инструментов появится окно Галерея, в
левой части которого располагается
меню объектов Галереи. Выберите Фоны.
Появятся образцы фонов. Установите
курсор на выбранный образец, по правой
кнопке мыши выберите Вставить – Фон –
Страница.

Рис.
29

Аналогично,
выбрав Колонтитул или Абзац, можно
вставить фон только в указанные объекты.

Рис.
30

Установите
масштаб экранного изображения 25%.
Установите курсор в конец текста.

Нажатием
на клавишу Enter или Ctrl+ Enter перейдите на
вторую страницу. Колонтитул повторил
все надписи на второй странице, изменив
только номер текущей страницы.

Рис.
31

Сохраните
файл под прежним именем.

16.
Вставка формул в текстовый документ
производится с помощью редактора формул.
Вызвать редактор формул можно вызвать
командой Вставить – Объект – Формула.
При этом открывается дополнительное
окно Элементы, в котором нужно выбрать
соответствующую группу.

17.
Так, на рисунке выбрана группа
Унарные/бинарные операторы

В
нижней части окна нужно выбрать
соответствующий оператор и формировать
формулу. Размер шрифта устанавливается
командой Формат – Кегли.

Выполните:

Введите
следующие формулы, пользуясь редактором
формул.

2)

Контрольные
вопросы

Как
вставить в документ колонтитулы? Для
чего используются колонтитулы?

Как
в документ вставить номера страниц,
текущую дату и время?

Как
в документ вставить фоновый рисунок?
Какие еще возможности по оформлению
документа дает Галерея?

Как
вызвать редактор формул?

Как
вставить в документ математическую
формулу?

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Настройки колонтитула

Anton1013 Дата: Среда, 30.09.2015, 09:41 | Сообщение № 1 Группа: Проверенные Ранг: Форумчанин Сообщений: 203 Репутация: 0 ± Замечаний: 0% ± Excel 2013 Форумчане, доброго дня! Хотел узнать есть ли возможность впихнуть в колонтитул формулу, ссылающуюся на текст из определенной ячейки, по типу: Код =»Хлебобулочный завод «&Лист1!A1 Никогда не поздно научиться!   Ответить

Pelena Дата: Среда, 30.09.2015, 10:44 | Сообщение № 2 Группа: Админы Ранг: Местный житель Сообщений: 18797 Репутация: 4284 ± Замечаний: ± Excel 2016 & Mac Excel Здравствуйте. Формулой вряд ли, а макросом можно. Как подсказывает макрорекодер [vba] Код Sub title()      With ActiveSheet.PageSetup          .CenterHeader = «Хлебобулочный завод » & [Лист1!A1]      End With End Sub [/vba] «Черт возьми, Холмс! Но как??!!» Ю-money 41001765434816   Ответить

Anton1013 Дата: Среда, 30.09.2015, 11:14 | Сообщение № 3 Группа: Проверенные Ранг: Форумчанин Сообщений: 203 Репутация: 0 ± Замечаний: 0% ± Excel 2013 Хотелось бы формулой, но если нет другого решения, буду макрос делать, спасибо! Никогда не поздно научиться!   Ответить

pabchek Дата: Четверг, 01.10.2015, 16:56 | Сообщение № 4 Группа: Проверенные Ранг: Ветеран Сообщений: 931 Репутация: 218 ± Замечаний: 0% ± Excel 2007 Часто разные «Хлебобулочные заводы» находятся на разных листах. В таком случае, можно лист назвать его номером, а в колонтитул вставить название листа: «Хлебобулочный завод » & Лист1! [offtop]На правах шутки))) «Учиться, учиться и еще раз учиться!» WM: R399923528092 Сообщение отредактировал pabchek — Четверг, 01.10.2015, 16:56   Ответить