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

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

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.

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å File (Felt) > Print. Se skærmbillede:

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.

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

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.

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å File (Felt) > Print. Se skærmbillede:

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.

Indsæt filoplysninger i sidehoved / sidefod med Kutools til Excel

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.

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

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

2. i Indsæt projektmappeoplysninger dialog, skal du kontrollere de oplysninger, du skal indsætte under Information 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.

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

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.

Demo: Indsæt projektmappeoplysninger til celle/hoved/sidefod

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 på 30 dage, download venligst og få en gratis prøveperiode nu.

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?