Jei norite į darbalapio antraštę / poraštę įterpti tam tikrą informaciją, pvz., Failo pavadinimą / failo kelią arba dabartinę datą ar puslapio numerį, galite tai padaryti naudodami žemiau esantį kodą. Jei tai tik vienas darbalapis, galite tai padaryti rankiniu būdu, bet jei tai yra keli lapai arba visi darbaknygės lapai, kuriems reikia užpildyti šią informaciją, tai galite padaryti naudodami paprastą vba makrokomandą / kodą.
Ši pavyzdinė makrokomanda įterps antraštę/poraštę į kiekvieną aktyvios darbaknygės darbalapį. Taip pat bus įterptas visas kelias į darbaknygę.
Parinktis „Explicit Sub InsertHeaderFooter () Dim wsAs Workheet Application.ScreenUpdating = False Kiekvienas wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader =„ Įmonės pavadinimas: “.CenterHeader =„ & N “puslapis ir P .RightHeader &„ Printed “ „Kelias:„ & ActiveWorkbook.Path .CenterFooter = „Darbaknygės pavadinimas: & F“ .RightFooter = „Lapas: & A“ Pabaiga su sekančiais ws Nustatykite ws = Nothing Application.ScreenUpdating = Tikroji pabaiga
Norėdami nukopijuoti šį kodą į savo darbaknygę, klaviatūroje paspauskite Alt + F11. Tada kairėje pusėje pamatysite „Microsoft Excel“ objektus. Dešiniuoju pelės mygtuku spustelėkite ir pasirinkite Įterpti. Tada spustelėkite Modulis ir nukopijuokite šį kodą į kodo langą dešinėje.
Leiskite suskaidyti kiekvieną kodo dalį -
Pradedame nuo įprasto Dim sakinio, kuriame deklaruojame kintamuosius. Šiuo atveju darbalapiui turime tik 1 kintamąjį - ws. Tada išjungiame ekrano atnaujinimą.
Dabar cikle FOR mes einame per kiekvieną darbaknygės darbalapį, kuriame yra makrokomanda. Ir mes nustatome kiekvieną parametrą puslapio sąrankoje. & P, & N, & D, & T, F ir & A yra tam tikro formato kodai, kuriuos galima taikyti antraštėms ir poraštėms. & P spausdina puslapio numerį. & N spausdina visą dokumento puslapių skaičių. & D spausdina dabartinę datą. & T spausdina esamą laiką. & F spausdina dokumento pavadinimą, o & A spausdina darbaknygės skirtuko pavadinimą.
Pabaigoje nustatome darbalapį į nieką ir atlaisviname objektą bei įgaliname ekrano atnaujinimą.
Čia yra 2 nuotraukos. 1st vienas rodo antraštę ir 2antra viena poraštė po makrokomandos paleidimo.
Antraštėje yra etiketė Įmonės pavadinimas. Pavadinimas dar neįvestas, nes nesusiejome jo su jokiu langeliu ar nepateikėme jokio įmonės pavadinimo teksto. Jei ką nors įvesite į kodą ar „Excel“ lapą ir nurodysite jį, vardas bus paimtas ir užpildytas čia.
Puslapis # iš 0 rodo, kad šiuo metu faile yra 0 puslapių, nes šį kodą vykdėme tuščiame faile. Jei paleisite šį kodą faile, kuriame yra duomenų, jis parodys puslapio numerį.
Spausdinta nurodo makrokomandos vykdymo datą ir laiką kartu su tekstu „Atspausdinta“.
Poraštėje Kelio etiketė parodys dabartinio failo kelią.
Mūsų failo pavadinimas yra Book1.xlsx, kuris šiuo metu yra neišsaugotas failas. Taigi nėra kelio, rodomo etiketei Kelias.
Lapo numeris pateikiamas poraštės dešinėje.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el