Če želite v glavo / nogo delovnega lista vstaviti določene podatke, na primer ime datoteke / pot do datoteke ali trenutni datum ali številko strani, lahko to storite s spodnjo kodo. Če je to samo en delovni list, lahko to storite ročno, če pa je za polnjenje več listov ali vseh listov v delovnem zvezku, ki potrebujejo te podatke, lahko to storite s preprostim makrom / kodo vba.
Ta vzorčni makro bo vstavil glavo/nogo na vsak delovni list v aktivnem delovnem zvezku. Vstavil bo tudi celotno pot do delovnega zvezka.
Možnost Eksplicitni podvložek InsertHeaderFooter () Zatemni wsAs Delovni list Application.ScreenUpdating = False Vsak wsInThisWorkbook.Worksheets Z ws.PageSetup .LeftHeader = “Ime podjetja:” .CenterHeader = “Stran & P od & N”. Desno in desno. "Pot:" & ActiveWorkbook.Path .CenterFooter = "Ime delovnega zvezka: & F" .RightFooter = "List: & A" Končaj z naslednjim ws Nastavi ws = Nič Application.ScreenUpdating = True End Sub
Če želite kopirati to kodo v delovni zvezek, pritisnite Alt + F11 na tipkovnici. Nato boste na levi strani videli predmete Microsoft Excel. Z desno miškino tipko kliknite in izberite Vstavi. Nato kliknite na Modul in kopirajte to kodo v okno za kodo na desni.
Razstavimo vsak del kode -
Začnemo z običajno izjavo Dim, kjer razglasimo spremenljivke. V tem primeru imamo samo 1 spremenljivko - ws za delovni list. Nato onemogočimo posodabljanje zaslona.
Zdaj v zanki FOR preletimo skozi vsak delovni list v delovnem zvezku, ki vsebuje makro. Vsak parameter smo nastavili v nastavitvah strani. & P, & N, & D, & T, & F in & A so določene kode formata, ki jih je mogoče uporabiti za glave in noge. & P natisne številko strani. & N natisne skupno število strani v dokumentu. & D natisne trenutni datum. & T natisne trenutni čas. & F natisne ime dokumenta in & A natisne ime zavihka delovnega zvezka.
Na koncu delovni list nastavimo na nič in osvobodimo predmet ter omogočimo posodabljanje zaslona.
Tu sta 2 sliki. 1st ena prikazuje glavo in 2nd eno nogo po zagonu makra.
Glava ima oznako Ime podjetja. Ime še ni vneseno, ker ga nismo povezali z nobeno celico ali vnesli v katero koli besedilo za ime podjetja. Če v kodo ali v Excelov list vnesete karkoli in se nanj sklicujete, se bo ime pobralo in naselilo tukaj.
Stran # od 0 prikazuje, da imamo trenutno v datoteki 0 strani, saj smo to kodo zagnali na prazni datoteki. Če to kodo zaženete v datoteki, ki vsebuje podatke, bo prikazana številka strani.
Natisnjeno vam daje datum in čas izvajanja makra skupaj z besedilom »Natisnjeno«.
V nogi bo oznaka Pot pokazala pot trenutne datoteke.
Naše ime je Book1.xlsx, ki je trenutno neshranjena datoteka. Zato se za oznako Pot ne prikaže pot.
Številka lista je vpisana desno od noge.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte