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

Hvordan placeres celleværdi i sidehoved / sidefod i Excel?

Vi kan nemt indsætte sidehoved eller sidefod, der indeholder filsti, filnavn, aktuel dato eller anden information med Excels funktion, men nogle gange vil vi bruge en celleværdi som sidehoved eller sidefod i Excel. Hvordan kan vi placere indholdet af en celle i sidehoved eller sidefod i projektmappen?

Sæt celleværdi i sidehoved eller sidefod på et regneark med VBA-kode

Sæt celleværdi i sidehoved eller sidefod på alle regneark med VBA-kode

Indsæt filoplysninger i sidehoved / sidefod med Kutools til Excel god idé3


Hvis du vil placere et celleindhold i sidehovedet eller sidefoden af ​​det aktuelle regneark, kan følgende VBA-kode hjælpe dig. Gør som følger:

1. Aktivér dit regneark, som du vil indsætte herder eller sidefod med en celleværdi, og hold derefter nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2.Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: læg en specificeret celleværdi i overskriften på et regneark

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. Tryk derefter på F5 nøgle til at køre denne kode, vises en dialogboks, der minder dig om at vælge en celle, som du vil placere dens indhold i overskriften.doc-insert-celle-værdi-til-header1

4. Og klik derefter på OK, er denne specificerede celleværdi indsat i det aktuelle regnearks venstre overskrift. Du kan se overskriften ved at klikke på filet > Print. Se skærmbillede:doc-insert-celle-værdi-til-header1

Bemærkninger:

1. Hvis du vil bruge celleindholdet som sidefod i det aktive regneark, kan du anvende denne kode:

VBA-kode: sæt en specificeret celleværdi i sidefoden af ​​et regneark

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. Du kan også anvende ovenstående koder til at indsætte celleværdi i højre sidehoved / sidefod eller centerhoved / sidefod, bare udskift VenstreHoved / Venstre sidefod med Højre overskrift / Højre sidefod or CenterHeader / CenterFooter i koderne.


Nogle gange vil du indsætte sidehoved eller sidefod med en valgt celleindhold i alle regneark i din åbningsmappe med ovenstående kode skal du gentage dem igen og igen. I dette tilfælde kan følgende VBA-kode tilføje celleindholdet til hyrde eller sidefod i hele projektmappen på én gang.

1. Aktivér din projektmappe, som du vil indsætte kommandoer eller sidefod med en celleværdi, og hold derefter nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: sæt en specificeret celleværdi i sidefoden af ​​alle regneark

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. Tryk derefter på F5 nøgle til at udføre denne kode, vises en dialogboks, der minder dig om at vælge en celle, som du vil placere dens indhold i sidefoden af ​​hele projektmappen.

doc-insert-celle-værdi-til-header1

4. Og klik derefter på OK, er denne valgte celleværdi blevet føjet til alle regnearkets venstre sidefod. Du kan se sidefoden ved at klikke på filet > Print. Se skærmbillede:

doc-insert-celle-værdi-til-header1

Bemærkninger:

1. Hvis du vil bruge celleindholdet som overskrift på hele projektmappen, kan du anvende denne kode:

VBA-kode: sæt en specificeret celleværdi i overskriften på alle regneark

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. Stedfortræder RightHeader / Footer or CenterHeader / sidefod forum LeftHeader / Footer i ovenstående koder, hvis du vil have din sidehoved eller sidefod anderledes placeret.


Hvis du vil indsætte filoplysninger i sidehoved eller sidefod, såsom regneark / projektmappens navn, projektmappesti og så videre, kan du bruge Kutools til Excel's Indsæt projektmappeoplysninger værktøj, hvis du har installeret Kutools til Excel.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools Plus > Workbook > Indsæt projektmappeoplysninger. Se skærmbillede:
dok kte 1

2. i Indsæt projektmappeoplysninger dialog, skal du kontrollere de oplysninger, du skal indsætte under Oplysninger sektion og tjek Header or Sidefod som du vil.

Tip: du kan indsætte oplysningerne tre steder i sidehoved eller sidefod: center, venstre eller højre.
doc indsæt projektmappesti 1

3. klik Ok. Så kan du gå til Specifikation > Sidelayout for at se overskriften.
dok kte 3

Med Indsæt projektmappeoplysninger kan du også indsætte filoplysninger til en celle eller en række celler. Klik her for at vide mere om dette værktøj.



Tip.Hvis du hurtigt vil opdele en projektmappe i flere projektmapper / pdf-filer eller csv-filer separat, skal du prøve at bruge Kutools til Excel's Opdelt arbejdsbog som vist i det følgende skærmbillede. Det er fuld funktion uden begrænsning i 30 dage, download venligst og få en gratis prøveperiode nu.

doc delt projektmappe

Relaterede artikler:

Hvordan indsættes filnavn eller sti i celle / sidehoved eller sidefod i Excel?

Hvordan indsættes og slettes header, sidefod og headerbillede i Excel?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (9)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg havde brug for at indsætte et aktivt lønningsdatointerval i flere ark. Brugeren åbner lønningsdatoarket, indtaster datointervallet, og før hun udskriver det, opdaterer det alle arkene i projektmappen. Sådan kan jeg indsætte flere celler i området med en smule mindre kode 2010-kompatibel: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Every ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ønsker at indsætte fire celler i header.This VB er kun til én celle. Hvordan kan jeg gøre det. Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan prøve at sammenkæde værdien af ​​rht fire celler til en enkelt celle og derefter bruge den enkelte celle som overskrift.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Er der en måde, hvorpå du kan tilføje en celleværdi, som tager hensyn til anvendte filtre? For eksempel... A1 = Mandag A2 = Tirsdag A3 = Onsdag. Brug af VBA-koden til at vise celle A1 fungerer i starten, men når jeg først anvender et filter på ugedage, er den "øverste" celleværdi ikke længere A1. Er der en måde at hente variablen på? Mange tak,
Denne kommentar blev minimeret af moderatoren på webstedet
Når du bruger din "VBA-kode: sæt en specificeret celleværdi i overskriften på alle regneark", vil jeg gerne have, at værdien er formateret: Tahoma, fed, i skriftstørrelse 12.
Hvordan kan dette føjes til din kode?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Dette ser ud til kun at virke én gang.
Hvad hvis værdien af ​​cellen ændres?
Er der en måde at forbinde cellen, så overskriften ændres, når celleværdien ændres?

Jeg har en projektmappe, hvor jeg har tre ark.

Ark 1 mærket "Sletningsark" - Ark sender vi til lageret med info hvad der skal palataliseres til ordren
Ark 2 mærket "OA" - Min ordrebekræftelse til kunden, som trækker de fleste data fra det første ark inklusive ordrenummeret, som jeg skal have i min overskrift. Så jeg forsøger at linke overskriften til cellen på denne side med ordrenummeret (F5), som får sin værdi fra (C7) i det første arbejdsark ("Sletningsark")
Ark 3 mærket "Faktura - Faktura, som også trækker det meste af de samme oplysninger fra det første ark, som også kræver, at overskriften inkluderer værdien (F5) af dette ark taget fra (C7) i "Sletningsark"
Denne kommentar blev minimeret af moderatoren på webstedet
Dette ser ikke ud til at lave et dynamisk link, dvs. den værdi, der er indtastet i overskriften, ændres ikke, når cellens værdi gør det. Så hvad er formålet med VBA-koden, når en copy/paste vil gøre det samme?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Neil,
Hvis du vil linke celleværdien til sidehovedet eller sidefoden dynamisk, skal du anvende følgende VBA-kode:

Bemærk: Du skal indsætte koden i arkkoden, ikke det normale 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


Prøv venligst, håber det kan hjælpe dig
Denne kommentar blev minimeret af moderatoren på webstedet
maksudnya bagaimana?
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL