Hvis du vil sette inn viss informasjon i toppteksten / bunnteksten i regnearket, for eksempel filnavn / filbane eller gjeldende dato eller sidetall, kan du gjøre det ved å bruke koden nedenfor. Hvis det bare er ett regneark, kan du gjøre det manuelt, men hvis det er flere ark eller alle arkene i arbeidsboken som trenger denne informasjonen til å fylles ut, kan du gjøre dette ved hjelp av en enkel vba -makro / kode.
Denne eksempelmakroen vil sette inn en topptekst/bunntekst i hvert regneark i den aktive arbeidsboken. Den vil også sette inn den komplette banen til arbeidsboken.
Option Explicit Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Every wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Firmanavn:” .CenterHeader = “Side & P av & N” .RightHeader = “Printed & D & T” = Left. “Path:“ & ActiveWorkbook.Path .CenterFooter = “Workbook Name: & F” .RightFooter = “Sheet: & A” Slutt med neste ws Set ws = Nothing Application.ScreenUpdating = True End Sub
For å kopiere denne koden til arbeidsboken din, trykk Alt + F11 på tastaturet. På venstre side vil du se Microsoft Excel -objekter. Høyreklikk og velg Sett inn. Klikk deretter på modul og kopier denne koden til kodevinduet til høyre.
La oss dele opp hver del av koden -
Vi starter med den vanlige Dim -setningen der vi deklarerer variablene. I dette tilfellet har vi bare 1 variabel - ws for regnearket. Deretter deaktiverer vi skjermoppdatering.
Nå, i FOR -løkken, går vi gjennom hvert regneark i arbeidsboken som inneholder makroen. Og vi konfigurerer hver parameter i Sideoppsett. & P, & N, & D, & T, & F og & A er visse formatkoder som kan brukes på topp- og bunntekster. & P skriver ut sidetallet. & N skriver ut det totale antallet sider i dokumentet. & D skriver ut gjeldende dato. & T skriver ut gjeldende tid. & F skriver ut navnet på dokumentet og & A skriver ut navnet på arbeidsbokfanen.
På slutten setter vi regnearket til ingenting og frigjør objektet og aktiverer skjermoppdatering.
Her er 2 bilder. Den 1st en viser deg toppteksten og 2nd en bunntekst etter at makroen er kjørt.
Overskriften har etiketten Firmanavn. Navnet er ikke angitt ennå siden vi ikke har koblet det til noen celle eller matet inn tekst for firmanavnet. Hvis du skriver inn noe i koden eller i excelarket og refererer til det, blir navnet hentet og fylt ut her.
Side # av 0 viser at vi for øyeblikket har 0 sider i filen, siden vi har kjørt denne koden på en tom fil. Hvis du kjører denne koden på en fil som inneholder data, viser den sidenummeret.
Trykt gir deg datoen og klokkeslettet da makroen ble kjørt sammen med teksten "Skrevet".
I bunnteksten viser banen -etiketten deg banen til den nåværende filen.
Filnavnet vårt er Book1.xlsx, som for øyeblikket er en fil som ikke er lagret. Derfor vises det ingen bane for Path -etiketten.
Arknummeret fylles ut til høyre for bunnteksten.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post