Pokud chcete do záhlaví / zápatí listu vložit určité informace, jako je název souboru / cesta k souboru nebo aktuální datum nebo číslo stránky, můžete tak učinit pomocí níže uvedeného kódu. Pokud je to jen jeden list, můžete to udělat ručně, ale pokud je to více listů nebo všechny listy v sešitu, které potřebují tyto informace naplnit, můžete to udělat pomocí jednoduchého makra / kódu vba.
Toto ukázkové makro vloží záhlaví/zápatí do každého listu v aktivním sešitu. Vloží také úplnou cestu do sešitu.
Volba Explicitní Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Every wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Company Name:” .CenterHeader = “Page & P of & N” .RightHeader = “Printed & D & T”. „Cesta:“ & ActiveWorkbook.Path .CenterFooter = „Název sešitu: & F“ .RightFooter = „List: & A“ Konec s další ws Nastavit ws = Nic Application.ScreenUpdating = True End Sub
Chcete -li tento kód zkopírovat do sešitu, stiskněte na klávesnici Alt + F11. Poté na levé straně uvidíte objekty aplikace Microsoft Excel. Klikněte pravým tlačítkem a vyberte Vložit. Poté klikněte na modul a zkopírujte tento kód do okna kódu vpravo.
Rozdělíme každou část kódu -
Začneme obvyklým příkazem Dim, kde deklarujeme proměnné. V tomto případě máme pro list pouze 1 proměnnou - ws. Poté deaktivujeme aktualizaci obrazovky.
Nyní ve smyčce FOR provedeme každý list v sešitu, který obsahuje makro. A každý parametr nastavíme v Nastavení stránky. & P, & N, & D, & T, & F a & A jsou určité formátové kódy, které lze použít na záhlaví a zápatí. & P vytiskne číslo stránky. & N vytiskne celkový počet stránek v dokumentu. & D vytiskne aktuální datum. & T vytiskne aktuální čas. & F vytiskne název dokumentu a & A vytiskne název karty sešitu.
Na konci nastavíme list na nic, uvolníme objekt a povolíme aktualizaci obrazovky.
Zde jsou 2 obrázky. 1Svatý jedna ukazuje záhlaví a 2nd jedna zápatí po spuštění makra.
Záhlaví má štítek Název společnosti. Název zatím není zadán, protože jsme jej nepropojili s žádnou buňkou ani nevložili do žádného textu pro název společnosti. Pokud do kódu nebo do excelového listu zadáte cokoli a uvedete na něj odkaz, jméno bude vyzvednuto a vyplněno zde.
Stránka č. 0 ukazuje, že v současné době máme v souboru 0 stránek, protože jsme tento kód spustili na prázdném souboru. Pokud spustíte tento kód v souboru obsahujícím data, zobrazí se vám číslo stránky.
Vytištěno vám poskytne datum a čas spuštění makra spolu s textem „Vytištěno“.
V zápatí vám štítek Cesta ukáže cestu k aktuálnímu souboru.
Náš název souboru je Book1.xlsx, což je aktuálně neuložený soubor. Proto se pro štítek Cesta nezobrazuje žádná cesta.
Číslo listu je vyplněno vpravo od zápatí.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail