Hur lägger man cellvärde i sidhuvud / sidfot i Excel?
Vi kan enkelt infoga sidhuvud eller sidfot som innehåller filsökväg, filnamn, aktuellt datum eller annan information med Excels funktion, men ibland vill vi använda ett cellvärde som sidhuvud eller sidfot i Excel. Hur kan vi placera innehållet i en cell i sidhuvud eller sidfot i arbetsboken?
Sätt cellvärde i sidhuvud eller sidfot i ett kalkylblad med VBA-kod
Sätt cellvärde i sidhuvud eller sidfot för alla kalkylblad med VBA-kod
Infoga filinformation i sidhuvud / sidfot med Kutools för Excel
Sätt cellvärde i sidhuvud eller sidfot i ett kalkylblad med VBA-kod
Om du vill placera ett cellinnehåll i sidhuvudet eller sidfoten i det aktuella kalkylbladet kan följande VBA-kod hjälpa dig. Gör så här:
1. Aktivera kalkylbladet som du vill infoga herder eller sidfot med ett cellvärde och håll sedan ned ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2.Klick Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: sätt ett angivet cellvärde i rubriken på ett kalkylblad
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. Tryck sedan på F5 för att köra den här koden kommer en dialogruta att dyka upp för att påminna dig om att du väljer en cell som du vill lägga till dess innehåll i rubriken.
4. Och klicka sedan på OK, har det angivna cellvärdet införts i det aktuella kalkylbladets vänstra rubrik. Du kan se rubriken genom att klicka på Fil > Skriva ut. Se skärmdump:
Anmärkningar:
1. Om du vill använda cellinnehållet som sidfot i det aktiva kalkylbladet kan du använda den här koden:
VBA-kod: lägg ett specificerat cellvärde i sidfoten på ett kalkylblad
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 också tillämpa ovanstående koder för att infoga cellvärde till höger sidhuvud / sidfot eller mittrubrik / sidfot, bara byt ut LeftHeader / Vänsterfot med Högerhuvud / Högerfot or CenterHeader / CenterFooter i koderna.
Sätt cellvärde i sidhuvud eller sidfot för alla kalkylblad med VBA-kod
Ibland vill du infoga sidhuvud eller sidfot med en markerad cells innehåll i alla kalkylblad i din inledande arbetsbok, med ovanstående kod måste du upprepa dem gång på gång. I det här fallet kan följande VBA-kod lägga till cellinnehållet i herder eller sidfot i hela arbetsboken samtidigt.
1. Aktivera din arbetsbok som du vill infoga herder eller sidfot med ett cellvärde och håll sedan ned ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: lägg ett specificerat cellvärde i sidfoten på alla kalkylblad
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. Tryck sedan på F5 för att köra den här koden kommer en dialogruta att dyka upp för att påminna dig om att du väljer en cell som du vill lägga till dess innehåll i sidfoten i hela arbetsboken.
4. Och klicka sedan på OK, detta valda cellvärde har lagts till i alla kalkylblads vänstra sidfot. Du kan se sidfoten genom att klicka Fil > Skriva ut. Se skärmdump:
Anmärkningar:
1. Om du vill använda cellinnehållet som rubrik för hela arbetsboken kan du använda den här koden:
VBA-kod: sätt ett angivet cellvärde i rubriken på alla kalkylblad
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. Ersättning RightHeader / Footer or CenterHeader / Footer för LeftHeader / Footer i ovanstående koder om du vill att din sidhuvud eller sidfot ska placeras annorlunda.
Infoga filinformation i sidhuvud / sidfot med Kutools för Excel
Om du vill infoga filinformation i sidhuvud eller sidfot, till exempel kalkylblad / arbetsboknamn, arbetsbokssökväg och så vidare, kan du använda Kutools för ExcelÄr Infoga arbetsbokinformation verktyg om du har installerat Kutools för Excel.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. | ||
Efter gratis installation Kutools för Excel, gör så här:
1. klick Kutools Plus > Arbetsbok > Infoga arbetsbokinformation. Se skärmdump:
2. I Infoga arbetsbokinformation dialogrutan, kontrollera informationen du behöver infoga under Information avsnitt och kontrollera Sidhuvud or Sidfot som du vill.
Dricks: Du kan infoga informationen på tre sidor i sidhuvud eller sidfot: mitt, vänster eller höger.
3. klick Ok. Då kan du gå till utsikt > Sidan Layout för att visa rubriken.
Med Infoga arbetsbokinformation kan du också infoga filinformation i en cell eller ett cellområde. Klicka här om du vill veta mer om det här verktyget.
Infoga arbetsbokinformation i cell / sidhuvud / sidfot
Relaterade artiklar:
Hur infogar jag filnamn eller sökväg i cell / sidhuvud eller sidfot i Excel?
Hur infogar och tar jag bort sidhuvud, sidfot och sidhuvud i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!