Как вставить ссылку в колонтитул excel - Word и 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. Тогда вы можете перейти к Вид > Макет страницы для просмотра заголовка.

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

Наконечник.Если вы хотите быстро разделить книгу на несколько книг/файлов PDF или файлов csv по отдельности, попробуйте использовать Kutools for ExcelАвтора Разделить книгу как показано на следующем снимке экрана. Полная функция без ограничений в 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.

Статьи по теме:

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

Как вставить и удалить верхний, нижний колонтитул и изображение верхнего колонтитула в Excel?

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

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

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

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

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

Источник

Форматирование колонтитула со ссылкой на ячейку в Excel

lАлександраl

Дата: Пятница, 23.03.2018, 16:11 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
0% ±

Excel 2016

Здравствуйте. Вопрос: как в нижеуказанном макросе добавить колонтитулу форматирование? .RightFooter = «&»»Times New Roman,обычный»»&10ТЕКСТ»
Для указания формата в колонтитуле нужно прописать сам текст, а текст не является константой, так как колонтитул содержит ссылку на ячейки.

[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
PoslStr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count — 20
With ActiveSheet.PageSetup
.RightFooter = Sheets(1).Range(«C4″).Text & » на сумму: » & Sheets(1).Cells(PoslStr, 7).Text & » руб. с НДС»
End With
End Sub

[/vba]

К сообщению приложен файл:

__WIN__.xlsm
(25.2 Kb)

Сообщение отредактировал Manyasha — Понедельник, 26.03.2018, 11:14

Ответить

Mikael

Дата: Пятница, 23.03.2018, 17:57 |
Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 80

Репутация:
31
±

Замечаний:
0% ±

Excel 2010

Добрый день!
Попробуйте:
[vba]

Код

.RightFooter = «&»»Times New Roman,обычный»»&10» & Sheets(1).Range(«C4″).Text & » на сумму: » & Sheets(1).Cells(PoslStr, 7).Text & » руб. с НДС»

[/vba]

[p.s.] оформите код тегами: в режиме редактирования выделите свой код и нажмите на панели кнопку #

К сообщению приложен файл:

_WIN_.xlsm
(26.3 Kb)

Сообщение отредактировал Mikael — Пятница, 23.03.2018, 18:05

Ответить

lАлександраl

Дата: Понедельник, 26.03.2018, 11:08 |
Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация:
0
±

Замечаний:
0% ±

Excel 2016

Mikael,
Работает, спасибо вам большое!

Ответить

Julia1663

Дата: Понедельник, 12.09.2022, 11:07 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Здравствуйте, уважаемые форумчане. Столкнулась с такой проблемой: мне необходимо написать в нижний правый колонтитул листа номер страницы, повернутый на 90гр. Страница сейчас в альбомной ориентации, но при распечатывании и сшивке основной книги, она будет книжной ориентации, и еще проблема в том, что этот номер страницы должен быть взять в квадратик… Пожалуйста помогите… я в кодах и макросах не особо разбираюсь, но нашла один код, вот такой:
[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

[/vba]

К сожалению, он вставляет просто значение ячейки… Даже если я поверну в ячейке текст, то в колонтитул он все равно вставляется в альбомной ориентации, хотя в ячейке повернут… Попробовала вставить в ячейку надпись, как раз то, что мне нужно, чтобы был квадратик и само число повернуто на 90гр, но тогда макрос просто ничего не вставил… и еще такая просьба, эти номера страниц должны начинаться с любого числа , например 22 или 35 и далее на каждом листе увеличиваться на 1… пожалуйста, помогите=)

Сообщение отредактировал Serge_007 — Понедельник, 12.09.2022, 11:24

Ответить

Источник

Данные в колонтитуле из ячейки

Автор athe, 11.06.2015, 10:46

« назад — далее »

Доброго времени суток, уважаемые форумчане.
Порывшись в старых темах на форуме, я к сожалению не смог найти ответ на свой вопрос. Необходимо выводить иформацию из ячейки первого листа, в колонтитул второго листа (причём ифнрмация должна подтягиватся автоматически при замене данных в ячейке). Если кто-то сталкивался с подобным- подсобите пожалуйста. В приложении я залил пример.
Заранее благодарен.
С ув. athe.

Работает). Премного вам благодарен. Данные из нескольких ячеек я объединил через &» «& для того, чтобы данные переносились из одной ячейки, но вот незадача, текст пишется в одну строку (например: ТОВ «Колос» Продукция: яблоки). Возможно ли сделать так, чтобы в колонтитуле текст выводился в виде:
ТОВ «Колос»
Продукция: яблоки ?
Спасибо.

=A1&СИМВОЛ(10)&A2&СИМВОЛ(10)&A3
И включить перенос текста по словам в формате ячейки вкладка Выравнивание

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Большое спасибо. Всё отлично работает.

Профессиональные приемы работы в Microsoft Excel
►
Обмен опытом
►
Microsoft Excel
►
Данные в колонтитуле из ячейки

Источник

Колонтитул в Excel очень украшают любой отчет. При работе с колонтитулами в Excel есть некоторые особенности от Word. Колонтитул в Excel живет своей жизнью, независимой от полей, которые мы установили заранее (статья «Excel 42. Параметры страницы»). Откройте файл с предыдущего урока.

По окончании этого урока вы сможете:

Назвать команды ленты «Колонтитулы»
Делать колонтитулы в Excel с различным настройками

1. Команды ленты «Колонтитулы»

С колонтитулами можно работать двумя способами:

1 способ. Открыть диалоговое окно «Параметры страницы» (мы побеспокоились заранее и установили кнопку вызова этого диалогового окна непосредственно с Панели быстрого доступа). Если вы не побеспокоились, то любой из кнопок групп «Параметры страницы», «Вписать» или «Параметры листа» ленты «Разметка страницы».

Шаг 1. Диалоговое окно Параметры страницы → команда Создать верхний колонтитул → диалоговое окно Верхний колонтитул (для нижнего аналогично):

2 способ.

Шаг 2. Щелкнуть в поле колонтитулов ЛМ → активизируется лента «Колонтитулы», но в этом случае кнопка вызова диалогового окна «Параметры страницы» будет неактивной:

Вывод

И верхний и нижний колонтитул в Excel в имеют три одинаковых по размеру поля

Я сделала скриншоты ленты «Колонтитулы» и диалогового окна, расположила их рядом для сравнения команд:

Работа с верхним колонтитулом
Работа с нижним колонтитулом
Вставка номера страницы
Вставка число страниц
Вставка текущей даты в фермате Число.Месяц.Год
Вставка текущего времени в формате Часы.Минуты
Месторасположение файла (если начальство увидит отчет на бумаге или в *.pdf-формате, то сразу поймет, где храниться файл; если вы перенесете файл на другой компьютер, то месторасположение автоматически изменится)[1]
Электронное имя файла[2]
Имя или ярлык активного листа (статья «Excel 7. Рабочие листы») Если вы переименуете лист, то новое имя появится в колонтитуле
Вставка рисунка (можно вставить логотип вашей фирмы)
Форматирование рисунка
Переход от нижнего к верхнему колонтитулу и наоборот (в диалоговом окне «Параметры страницы» не дублируются)
Из этой группы команд интересны только две команды:
1. Особый колонтитул для первой страницы (зачем нам на титульном листе номер страницы и прочая служебная информация?)
2. Разные колонтитулы для четных и нечетных страниц (очень эффектно при двусторонней печати)
Команда присутствует только в диалоговом окне «Колонтитул». При нажатии команды «А» появляется диалоговое окно «Шрифт», которое форматирует текстовую информацию. В режиме «Верхний или Нижний колонтитул работаем с лентой Главная → группа команд Шрифт

Вывод

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

Каким способом работать выбирайте сами, но я чаще работаю с диалоговым окном «Параметры страницы», так как в окне есть настройки по другим режимам.

Шаг 1. Входим в режим «Колонтитул» в Excel. Лента Колонтитул → отмечаем режим «Особый колонтитул для первой страницы»

Шаг 2. Заполняем информацией верхний колонтитул второй страницы, используя команды с ленты «Колонтитул»

Текущая дата
Имя листа
Номер страницы
Пробел+«из»+пробел
Число страниц

Получилось:

Шаг 3. Вставляем рисунок в нижний колонтитул Excel (лента Колонтитулы → группа команд Элементы колонтитула → команда Рисунок → Вставка изображений → разыскиваем свой рисунок, логотип):