Прескочи на основното съдържание

Как да поставите стойност на клетка в горен/долен колонтитул в Excel?

Автор: Xiaoyang Последна промяна: 2020-05-21

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

Поставете стойността на клетката в горния или долния колонтитул на работен лист с VBA код

Поставете стойността на клетката в горния или долния колонтитул на всички работни листове с VBA код

Вмъкнете информация за файла в горния/долния колонтитул с Kutools за 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-cell-value-to-header1

4, И после щракнете върху OK, тази зададена стойност на клетка е вмъкната в левия колонтитул на текущия работен лист. Можете да видите заглавката, като щракнете досие > Изпринти. Вижте екранна снимка:doc-insert-cell-value-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. Можете също така да приложите горните кодове за вмъкване на стойност на клетка в горния/долния колонтитул вдясно или в центъра на горния/долния колонтитул, просто заменете LeftHeader / Ляв долен колонтитул с RightHeader / Десен долен колонтитул or CenterHeader / Централен долен колонтитул в кодовете.

Понякога искате да вмъкнете горен или долен колонтитул със съдържанието на избрана клетка във всички работни листове на отварящата ви работна книга, с горния код трябва да ги повтаряте отново и отново. В този случай следният VBA код може да добави съдържанието на клетка към herder или долен колонтитул на цялата работна книга наведнъж.

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-cell-value-to-header1

4, И после щракнете върху OK, тази избрана стойност на клетка е добавена към левия долен колонтитул на всички работни листове. Можете да видите долния колонтитул, като щракнете досие > Изпринти. Вижте екранна снимка:

doc-insert-cell-value-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. Замяна Десен горен/долен колонтитул or CenterHeader/Footer за Ляв горен/долен колонтитул в горните кодове, ако искате горният или долният колонтитул да са позиционирани по различен начин.

Ако искате да вмъкнете информация за файл в горен или долен колонтитул, като име на работен лист/работна книга, път на работна книга и т.н., можете да използвате Kutools за ExcelЕ Вмъкване на информация за работна книга помощна програма, ако сте инсталирали Kutools за Excel.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 
Безплатно сваляне
безплатно пълнофункционално за 30 дни

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. кликване Kutools плюс > Workbook > Вмъкване на информация за работна книга. Вижте екранна снимка:
документ kte 1

2. В Вмъкване на информация за работна книга диалогов прозорец, проверете информацията, която трябва да вмъкнете под Информация раздел и проверете Header or Footer както искаш.

Съвет: можете да вмъкнете информацията на три места в горен или долен колонтитул: център, ляво или дясно.
doc вмъкване път на работна книга 1

3. кликване Ok. След това можете да отидете на Гледка > Page Layout за да видите заглавката.
документ kte 3

С Вмъкване на информация за работна книга можете също да вмъкнете информация за файла в клетка или диапазон от клетки. Щракнете тук, за да научите повече за тази помощна програма.



Бакшиш.Ако искате бързо да разделите работна книга на множество работни книги/pdf файлове или csv файлове поотделно, моля, опитайте да използвате Kutools за Excel Разделена работна книга както е показано на следващата екранна снимка. Той е напълно функционален без ограничение за 30 дни, моля, изтеглете и получете безплатен пробен период сега.

doc разделена работна книга

Още по темата:

Как да вмъкна име на файл или път в клетка / горен или долен колонтитул в Excel?

Как да вмъкнете и изтриете горен колонтитул, долен колонтитул и снимка на горен колонтитул в Excel?

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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