Note: The other languages of the website are Google-translated. Back to English

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. 

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 30 dni, 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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (9)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
V več listov sem moral vstaviti aktiven datumski obseg plače. Uporabnik odpre list Datum obračuna plače, vnese datumsko obdobje in preden ga natisne, posodobi vse liste v delovnem zvezku. Evo, kako lahko vstavim več celic v obseg z malo manj združljivo kodo 2010: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range ob napaki Nadaljuj naprej za vsako ws V Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Obseg("'Datum plače'!A1").Vrednost & vbCr & Obseg("'Datum plačilne liste'!A2").Vrednost Naslednji končni pod
Ta komentar je moderator na spletnem mestu minimiziral
V glavo želim vstaviti štiri celice. Ta VB je samo za eno celico. Kako lahko to storim. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Lahko poskusite združiti vrednost štirih celic rht v eno celico in nato eno celico uporabiti kot glavo.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Ali obstaja način, da dodate vrednost celice, ki upošteva uporabljene filtre? Na primer... A1 = ponedeljek A2 = torek A3 = sreda. Uporaba kode VBA za prikaz celice A1 bo sprva delovala, ko pa uporabim filter ob dnevih v tednu, vrednost "zgornje" celice ni več A1. Ali obstaja način, da poberem spremenljivko? Najlepša hvala,
Ta komentar je moderator na spletnem mestu minimiziral
Ko uporabljate vašo "kodo VBA: dajte določeno vrednost celice v glavo vseh delovnih listov", želim, da je postavljena vrednost oblikovana: Tahoma, krepko, v velikosti pisave 12.
Kako je to mogoče dodati vaši kodi?
Ta komentar je moderator na spletnem mestu minimiziral
Hi,

Zdi se, da to deluje samo enkrat.
Kaj pa, če se vrednost celice spremeni?
Ali obstaja način za povezavo celice, tako da se glava spremeni, ko se spremeni vrednost celice?

Imam delovni zvezek, kjer imam tri liste.

List 1 z oznako "Deletion Sheet" - List pošljemo v skladišče z informacijami, kaj palatalizirati za naročilo
List 2 z oznako "OA" - Potrditev mojega naročila stranki, ki povleče večino podatkov s prvega lista, vključno s številko naročila, ki jo moram imeti v glavi. Zato poskušam povezati glavo s celico na tej strani s številko naročila (F5), ki dobi svojo vrednost iz (C7) na prvem delovnem listu ("Deletion Sheet")
List 3 z oznako "Račun - račun, ki prav tako črpa večino istih informacij s prvega lista, ki bi prav tako potreboval glavo, da vključuje vrednost (F5) tega lista, vzeto iz (C7) v "Izbrisnem listu"
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da to ne ustvarja dinamične povezave, tj. vrednost, vnesena v glavo, se ne spremeni, ko se spremeni vrednost celice. Kaj je torej namen kode VBA, ko bo kopiranje/prilepitev storilo enako?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Neil,
Če želite vrednost celice dinamično povezati z glavo ali nogo, uporabite to kodo VBA:

Opombe: kodo morate vstaviti v kodo lista in ne v običajni modul.
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


Prosimo, poskusite, upam, da vam bo pomagalo
Ta komentar je moderator na spletnem mestu minimiziral
maksudnya bagaimana?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL