Skip i'r prif gynnwys

Sut i roi gwerth celloedd mewn pennawd / troedyn yn Excel?

Gallwn fewnosod pennawd neu droedyn sy'n cynnwys llwybr ffeil, enw ffeil, dyddiad cyfredol neu wybodaeth arall gyda nodwedd Excel yn hawdd, ond, weithiau, rydym am ddefnyddio gwerth cell fel y pennawd neu'r troedyn yn Excel. Sut allwn ni roi cynnwys cell mewn pennawd neu droedyn yn y llyfr gwaith?

Rhowch werth celloedd ym mhennyn neu droedyn taflen waith gyda chod VBA

Rhowch werth celloedd ym mhennyn neu droedyn yr holl daflenni gwaith gyda chod VBA

Mewnosodwch wybodaeth ffeil yn y pennawd / troedyn gyda Kutools ar gyfer Excel syniad da3

Os ydych chi am roi cynnwys cell ym mhennyn neu droedyn y daflen waith gyfredol, gall y cod VBA canlynol eich helpu chi. Gwnewch fel y camau canlynol:

1. Gweithredwch eich taflen waith yr ydych am fewnosod herder neu droedyn â gwerth cell, yna daliwch y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Clic Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: rhowch werth cell penodedig ym mhennyn taflen waith

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd deialog yn popio allan i'ch atgoffa o ddewis cell rydych chi am roi ei chynnwys yn y pennawd.doc-insert-cell-gwerth-i-bennawd1

4. Ac yna cliciwch OK, mae'r gwerth cell penodedig hwn wedi'i fewnosod ym mhennyn chwith cyfredol y daflen waith. Gallwch weld y pennawd trwy glicio Ffeil > print. Gweler y screenshot:doc-insert-cell-gwerth-i-bennawd1

Nodiadau:

1. Os ydych chi am ddefnyddio cynnwys y gell fel troedyn y daflen waith weithredol, gallwch gymhwyso'r cod hwn:

Cod VBA: rhowch werth cell penodol yn nhroedyn taflen waith

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. Gallwch hefyd gymhwyso'r codau uchod ar gyfer mewnosod gwerth celloedd i'r pennawd / troedyn cywir neu bennawd / troedyn y ganolfan, dim ond disodli'r ChwithHeader / ChwithFooter gyda CywirHeader / Troedyn Dde or Pennaeth y Ganolfan / CenterFooter yn y codau.

Weithiau, rydych chi am fewnosod pennawd neu droedyn gyda chynnwys cell ddethol i holl daflenni gwaith eich llyfr gwaith agoriadol, gyda'r cod uchod, mae angen i chi eu hailadrodd dro ar ôl tro. Yn yr achos hwn, gall y cod VBA canlynol ychwanegu cynnwys y gell at herder neu droedyn y llyfr gwaith cyfan ar unwaith.

1. Gweithredwch eich llyfr gwaith yr ydych am ei fewnosod herder neu droedyn gyda gwerth cell, yna daliwch y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: rhowch werth celloedd penodol yn nhroedyn yr holl daflenni gwaith

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. Yna pwyswch F5 yn allweddol i weithredu'r cod hwn, bydd deialog yn popio allan i'ch atgoffa o ddewis cell rydych chi am roi ei chynnwys yn nhroedyn y llyfr gwaith cyfan.

doc-insert-cell-gwerth-i-bennawd1

4. Ac yna cliciwch OK, mae'r gwerth celloedd dethol hwn wedi'i ychwanegu at droedyn chwith pob un o'r taflenni gwaith. Gallwch weld y troedyn trwy glicio Ffeil > print. Gweler y screenshot:

doc-insert-cell-gwerth-i-bennawd1

Nodiadau:

1. Os ydych chi am ddefnyddio'r cynnwys celloedd fel pennawd y llyfr gwaith cyfan, gallwch gymhwyso'r cod hwn:

Cod VBA: rhowch werth cell penodedig ym mhennyn yr holl daflenni gwaith

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. Amnewid RightHeader / Troedyn or CenterHeader / Troedyn ar gyfer LeftHeader / Troedyn yn y codau uchod os ydych chi am i'ch pennawd neu'ch troedyn fod mewn sefyllfa wahanol.

Os ydych chi am fewnosod gwybodaeth ffeiliwr i bennawd neu droedyn, fel enw taflen waith / llyfr gwaith, llwybr llyfr gwaith ac ati, gallwch ei ddefnyddio Kutools ar gyfer Excel'S Mewnosod Gwybodaeth Llyfr Gwaith cyfleustodau os ydych chi wedi gosod Kutools ar gyfer Excel.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 
Lawrlwythiad Am Ddim
am ddim llawn-ymddangos mewn 30 diwrnod

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Mewnosod Gwybodaeth Llyfr Gwaith. Gweler y screenshot:
Doc KTE 1

2. Yn y Mewnosod Gwybodaeth Llyfr Gwaith deialog, gwiriwch y wybodaeth y mae angen i chi ei mewnosod o dan Gwybodaeth adran, a gwirio Pennawd or Troedyn fel y dymunwch.

Tip: gallwch fewnosod y wybodaeth mewn tri lleoliad pennawd neu droedyn: canol, chwith neu dde.
mewnosoder llwybr llyfr gwaith 1

3. Cliciwch Ok. Yna gallwch chi fynd i Gweld > Layout Tudalen i weld y pennawd.
Doc KTE 3

Gyda Mewnosod Gwybodaeth Llyfr Gwaith, gallwch hefyd fewnosod gwybodaeth ffeil mewn cell neu ystod o gelloedd. Cliciwch yma i wybod mwy am y cyfleustodau hwn.



Awgrym.Os ydych chi am rannu llyfr gwaith yn gyflym yn lyfrau gwaith lluosog / ffeiliau pdf neu ffeiliau csv ar wahân, ceisiwch ddefnyddio'r Kutools ar gyfer Excel's Llyfr Gwaith Hollti fel y dangosir yn y screenshot canlynol. Mae'n swyddogaeth lawn heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.

llyfr gwaith rhaniad doc

Erthyglau cysylltiedig:

Sut i fewnosod enw neu lwybr ffeil yng nghell / pennawd neu droedyn yn Excel?

Sut i fewnosod a dileu pennawd, troedyn, a llun pennawd yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad

Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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