Preskoči na glavno vsebino

Kako postaviti vrednost celice v glavo / nogo v Excelu?

Z Excelovo funkcijo lahko enostavno vstavimo glavo ali nogo, ki vsebuje pot datoteke, ime datoteke, trenutni datum ali druge informacije, včasih pa želimo uporabiti vrednost celice kot glavo ali nogo v Excelu. Kako lahko vsebino celice postavimo v glavo ali nogo v delovnem zvezku?

Vstavite vrednost celice v glavo ali nogo delovnega lista s kodo VBA

Vstavite vrednost celice v glavo ali nogo vseh delovnih listov s kodo VBA

Vstavite podatke o datoteki v glavo / nogo s programom Kutools za Excel dobra ideja3

Če želite vsebino celice umestiti v glavo ali nogo trenutnega delovnega lista, vam lahko pomaga naslednja koda VBA. Naredite naslednje:

1. Aktivirajte svoj delovni list, v katerega želite vstaviti pastirja ali nogo z vrednostjo celice, nato pridržite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2.Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: določite vrednost celice v glavo delovnega lista

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. Nato pritisnite F5 tipko za zagon te kode, se bo odprlo pogovorno okno, ki vas bo opozorilo na izbiro celice, ki želite vstaviti njeno vsebino v glavo.doc-insert-cell-value-to-header1

4. In nato kliknite OK, je bila ta določena vrednost celice vstavljena v levo glavo trenutnega delovnega lista. Glavo si lahko ogledate s klikom file > Tiskanje. Oglejte si posnetek zaslona:doc-insert-cell-value-to-header1

Opombe:

1. Če želite vsebino celice uporabiti kot nogo aktivnega delovnega lista, lahko uporabite to kodo:

Koda VBA: določeno vrednost celice vstavite v nogo delovnega lista

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. Zgornje kode lahko uporabite tudi za vstavljanje vrednosti celice v desno glavo ali nogo ali sredino glave / noge, samo zamenjajte Levi glava / Leva noga z Desna glava / Desna noga or CenterHeader / Sredinska noga v kodah.

Včasih želite vstaviti glavo ali nogo z vsebino izbrane celice na vse delovne liste odpiralnega delovnega zvezka, z zgornjo kodo jih morate vedno znova ponoviti. V tem primeru lahko naslednja koda VBA hkrati doda vsebino celice v pastir ali nogo celotnega delovnega zvezka.

1. Vključite svoj delovni zvezek, v katerega želite vstaviti pastirja ali nogo z vrednostjo celice, nato držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: določeno vrednost celice vstavite v nogo vseh delovnih listov

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. Nato pritisnite F5 tipko za zagon te kode, se bo odprlo pogovorno okno, ki vas bo opozorilo, da izberete celico, za katero želite, da vnese vsebino v nogo celotnega delovnega zvezka.

doc-insert-cell-value-to-header1

4. In nato kliknite OK, ta izbrana vrednost celice je bila dodana v levo nogo vseh delovnih listov. Nogo si lahko ogledate s klikom file > Tiskanje. Oglejte si posnetek zaslona:

doc-insert-cell-value-to-header1

Opombe:

1. Če želite vsebino celice uporabiti kot glavo celotnega delovnega zvezka, lahko uporabite to kodo:

Koda VBA: določite vrednost celice v glavo vseh delovnih listov

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. Nadomestna RightHeader / Footer or CenterHeader / Footer za Levo glava / noga v zgornjih kodah, če želite, da je glava ali noga drugače nameščena.

Če želite v glavo ali nogo vstaviti podatke o datoteki, na primer ime delovnega lista / delovnega zvezka, pot delovnega zvezka itd., Lahko uporabite Kutools za ExcelJe Vstavite podatke o delovnem zvezku pripomoček, če ste namestili Kutools za Excel.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 
Brezplačen prenos
Brezplačna funkcija v 30 dneh

po brezplačna namestitev Kutools za Excel, naredite spodaj:

1. klik Kutools Plus > Delovni zvezek > Vstavite podatke o delovnem zvezku. Oglejte si posnetek zaslona:
dok kte 1

2. V Ljubljani Vstavite podatke o delovnem zvezku pogovorno okno, preverite podatke, ki jih morate vstaviti pod Informacije in preverite Glava or Noga kot želiš.

Nasvet: informacije lahko vstavite na tri mesta v glavi ali nogi: na sredini, levo ali desno.
doc vstavi pot v delovni zvezek 1

3. klik Ok. Potem lahko greš na Poglej > Postavitev strani , da si ogledate glavo.
dok kte 3

Z Vstavi informacije o delovnem zvezku lahko tudi vstavite informacije o datoteki v celico ali vrsto celic. Kliknite tukaj, če želite izvedeti več o tej pripomočki.



Nasvet.Če želite delovni zvezek hitro razdeliti na več delovnih zvezkov / datotek pdf ali datotek CSV ločeno, poskusite uporabiti Kutools za Excel Razdeljeni delovni zvezek kot je prikazano na naslednjem posnetku zaslona. Popolnoma deluje brez omejitev v 30 dneh, prosim prenesite in si zagotovite brezplačno preskusno različico zdaj

doc split delovni zvezek

Sorodni članki:

Kako vstaviti ime datoteke ali pot v celico / glavo ali nogo v Excelu?

Kako vstaviti in izbrisati glavo, nogo in sliko glave v Excelu?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup  |   Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule   |  Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic   |  Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij:  12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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