Om du vill infoga viss information i sidhuvudet / sidfoten i kalkylbladet, t.ex. filnamn / sökväg eller aktuellt datum eller sidnummer, kan du göra det med hjälp av koden nedan. Om det bara är ett kalkylblad kan du göra det manuellt, men om det är flera blad eller alla blad i arbetsboken som behöver denna information för att fyllas i kan du göra detta med ett enkelt vba -makro / kod.
Detta exempelmakro kommer att infoga en sidhuvud/sidfot i varje kalkylblad i den aktiva arbetsboken. Det kommer också att infoga hela sökvägen till arbetsboken.
Alternativ Explicit Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Varje wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = "Företagsnamn:" .CenterHeader = "Sida & P av & N" .RightHeader = "Printed & D & T" = Left. “Path:“ & ActiveWorkbook.Path .CenterFooter = “Workbook Name: & F” .RightFooter = “Sheet: & A” Avsluta med nästa ws Set ws = Nothing Application.ScreenUpdating = True End Sub
Om du vill kopiera den här koden till din arbetsbok trycker du på Alt + F11 på tangentbordet. På vänster sida ser du Microsoft Excel -objekt. Högerklicka och välj Infoga. Klicka sedan på Modul och kopiera den här koden till kodfönstret till höger.
Låt oss bryta upp varje del av koden -
Vi börjar med den vanliga Dim -satsen där vi deklarerar variablerna. I det här fallet har vi bara 1 variabel - ws för kalkylbladet. Sedan inaktiverar vi skärmuppdatering.
Nu, i FOR -slingan, går vi igenom varje kalkylblad i arbetsboken som innehåller makrot. Och vi ställer in varje parameter i Page Setup. & P, & N, & D, & T, & F och & A är vissa formatkoder som kan tillämpas på sidhuvuden och sidfötter. & P skriver ut sidnumret. & N skriver ut det totala antalet sidor i dokumentet. & D skriver ut det aktuella datumet. & T skriver ut den aktuella tiden. & F skriver ut namnet på dokumentet och & A skriver ut namnet på fliken arbetsbok.
I slutet ställer vi in kalkylbladet till ingenting och frigör objektet och aktiverar skärmuppdatering.
Här är 2 bilder. Den 1st en visar rubriken och 2nd en sidfoten efter att makrot har körts.
Rubriken har etiketten Företagsnamn. Namnet har inte skrivits in ännu eftersom vi inte har länkat det till någon cell eller matat in någon text för företagsnamnet. Om du anger något i koden eller i excelarket och refererar till det, kommer namnet att hämtas och fyllas här.
Sida # av 0 visar att vi för närvarande har 0 sidor i filen, eftersom vi har kört den här koden på en tom fil. Om du kör den här koden på en fil som innehåller data, visar det dig sidnumret.
Tryckt ger dig datum och tid när makrot kördes tillsammans med texten "Utskriven".
I sidfoten visar sökvägsetiketten sökvägen till den aktuella filen.
Vårt filnamn är Book1.xlsx som för närvarande är en osparad fil. Därför visas ingen sökväg för sökvägsetiketten.
Bladnumret fylls i till höger om sidfoten.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen