Hvis du vil indsætte visse oplysninger i sidehovedet / sidefoden i regnearket, f.eks. Filnavnet / filstien eller den aktuelle dato eller sidetal, kan du gøre det ved hjælp af nedenstående kode. Hvis det kun er et regneark, kan du gøre det manuelt, men hvis det er flere ark eller alle ark i projektmappen, der skal bruge disse oplysninger, kan du gøre dette ved hjælp af en simpel vba -makro / kode.
Denne prøve makro vil indsætte en sidehoved/sidefod i hvert regneark i den aktive projektmappe. Det vil også indsætte den komplette sti til projektmappen.
Option Eksplicit under InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = Falsk Hver wsInThisWorkbook.Worksheets Med ws.PageSetup .LeftHeader = "Firmanavn:" .CenterHeader = "Side & P af & N" .RightHeader = "Printed & D & T" = Left. "Sti:" & ActiveWorkbook.Path .CenterFooter = "Workbook Name: & F" .RightFooter = "Sheet: & A" Slut med næste ws Set ws = Intet Application.ScreenUpdating = True End Sub
For at kopiere denne kode til din projektmappe skal du trykke på Alt + F11 på tastaturet. På venstre side vil du se Microsoft Excel -objekter. Højreklik og vælg Indsæt. Klik derefter på modul og kopier denne kode til kodevinduet til højre.
Lad os bryde hver del af koden op -
Vi starter med den sædvanlige Dim -sætning, hvor vi deklarerer variablerne. I dette tilfælde har vi kun 1 variabel - ws til regnearket. Derefter deaktiverer vi skærmopdatering.
Nu går vi i FOR -løkken gennem hvert regneark i projektmappen, som indeholder makroen. Og vi opsætter hver parameter i Sideopsætning. & P, & N, & D, & T, & F og & A er visse formatkoder, der kan anvendes på sidehoveder og sidefødder. & P udskriver sidenummeret. & N udskriver det samlede antal sider i dokumentet. & D udskriver den aktuelle dato. & T udskriver den aktuelle tid. & F udskriver navnet på dokumentet, og & A udskriver navnet på fanen i projektmappen.
I slutningen sætter vi regnearket til ingenting og frigør objektet og aktiverer skærmopdatering.
Her er 2 billeder. Den 1st en viser dig overskriften og 2nd en sidefoden, efter at makroen er blevet kørt.
Overskriften har etiketten Firmanavn. Navnet er ikke indtastet endnu, da vi ikke har knyttet det til nogen celle eller indført tekst til firmanavnet. Hvis du indtaster noget i koden eller i excelarket og refererer til det, så vil navnet blive hentet og udfyldt her.
Side # af 0 viser, at vi i øjeblikket har 0 sider i filen, da vi har kørt denne kode på en tom fil. Hvis du kører denne kode på en fil, der indeholder data, viser det dig sidenummeret.
Trykt giver dig datoen og klokkeslættet for makroen sammen med teksten "Udskrives".
I sidefoden viser stien Etiketten stien til den aktuelle fil.
Vores filnavn er Book1.xlsx, som i øjeblikket er en fil, der ikke er gemt. Derfor vises der ingen sti til sti -etiketten.
Arknummeret udfyldes til højre for sidefoden.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet