Перейти к основному содержанию

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

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

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

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

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

Если вы хотите поместить содержимое ячейки в верхний или нижний колонтитул текущего рабочего листа, следующий код 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 Чтобы запустить этот код, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в заголовок.doc-insert-value-cell-to-header1

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

Ноты:

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 нажмите клавишу для выполнения этого кода, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в нижний колонтитул всей книги.

doc-insert-value-cell-to-header1

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

doc-insert-value-cell-to-header1

Ноты:

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, с более чем 300 удобные функции, облегчающие вашу работу. 
Бесплатная загрузка
бесплатно полнофункциональный через 30 дней

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

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

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

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

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

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



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

документ разделить книгу

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

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

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

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup  |   VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар   |  Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки   |  Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов:  12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (9)
No ratings yet. Be the first to rate!
Neil
Neil
This comment was minimized by the moderator on the site
This doesn't appear to make a dynamic link, i.e., the value entered into the header doesn't change when the value of the cell does. So what is the purpose of the VBA code, when a copy/paste will do the same?
Reply
0
0
skyyang
skyyang     Neil
This comment was minimized by the moderator on the site
Hello, Neil,
If you want to link the cell value to the header or footer dynamically, please apply the following VBA code:

Note: You should insert the code into the sheet code not the normal Module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Please have a try, hope it can help you
Reply
Report
0
0
DJ
DJ     skyyang
This comment was minimized by the moderator on the site
maksudnya bagaimana?
Reply
0
0
Dani
Dani
This comment was minimized by the moderator on the site
Hi,

This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?

I have a workbook where I have three sheets.

Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
Reply
0
0
Mickey
Mickey
This comment was minimized by the moderator on the site
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
Reply
0
0
Claire
Claire
This comment was minimized by the moderator on the site
Hi There, Is there a way that you can add a cell value which takes account of applied filters? For example... A1 = Monday A2 = Tuesday A3 = Wednesday. Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1. Is there a way to pick up the variable? Many thanks,
Reply
0
0
saeid mohammadi
saeid mohammadi
This comment was minimized by the moderator on the site
I want to insert four cells in header.This VB is only for one cell. How can I do it. Thanks
Reply
0
0
Ridhwan
Ridhwan     saeid mohammadi
This comment was minimized by the moderator on the site
You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
Reply
0
0
Jeffrey Hulbert
Jeffrey Hulbert
This comment was minimized by the moderator on the site
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook. Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations