Jeśli chcesz wstawić określone informacje w nagłówku / stopce arkusza roboczego, takie jak nazwa pliku / ścieżka pliku lub bieżąca data lub numer strony, możesz to zrobić za pomocą poniższego kodu. Jeśli jest to tylko jeden arkusz roboczy, możesz to zrobić ręcznie, ale jeśli jest to wiele arkuszy lub wszystkie arkusze w skoroszycie, które wymagają wypełnienia tych informacji, możesz to zrobić za pomocą prostego makra / kodu vba.
To przykładowe makro wstawi nagłówek/stopkę w każdym arkuszu w aktywnym skoroszycie. Wstawi również pełną ścieżkę do skoroszytu.
Option Explicit Sub InsertHeaderFooter() Dim wsAs Worksheet Application.ScreenUpdating = False Każdy wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = "Nazwa firmy:" .CenterHeader = "Strona &P &N" .RightHeader &Foo "Drukowane.Left" „Path :” &ActiveWorkbook.Path .CenterFooter = „Nazwa skoroszytu: & F” .RightFooter = „Arkusz: &A” Zakończ następnym zestawem ws ws = Nic Application.ScreenUpdating = Prawda koniec Sub
Aby skopiować ten kod do skoroszytu, naciśnij klawisze Alt + F11 na klawiaturze. Następnie po lewej stronie zobaczysz obiekty Microsoft Excel. Kliknij prawym przyciskiem myszy i wybierz Wstaw. Następnie kliknij Moduł i skopiuj ten kod do okna kodu po prawej stronie.
Rozbijmy każdą część kodu -
Zaczynamy od zwykłej instrukcji Dim, w której deklarujemy zmienne. W tym przypadku mamy tylko 1 zmienną - ws dla arkusza. Następnie wyłączamy aktualizację ekranu.
Teraz w pętli FOR przechodzimy przez każdy arkusz w skoroszycie zawierający makro. I ustawiamy każdy parametr w Ustawieniach strony. &P, &N, &D, &T, &F i &A to określone kody formatu, które można zastosować do nagłówków i stopek. &P drukuje numer strony. &N drukuje całkowitą liczbę stron w dokumencie. &D drukuje bieżącą datę. &T drukuje aktualny czas. &F drukuje nazwę dokumentu, a &A drukuje nazwę karty skoroszytu.
Na koniec ustawiamy arkusz na nic i zwalniamy obiekt oraz włączamy aktualizację ekranu.
Oto 2 zdjęcia. 1NS jeden pokazuje nagłówek, a 2NS jeden w stopce po uruchomieniu makra.
Nagłówek ma etykietę Nazwa firmy. Nazwa nie została jeszcze wpisana, ponieważ nie powiązaliśmy jej z żadną komórką ani nie wprowadziliśmy żadnego tekstu dla nazwy firmy. Jeśli wpiszesz cokolwiek w kodzie lub w arkuszu programu Excel i odniesiesz się do niego, nazwa zostanie pobrana i wypełniona tutaj.
Strona # z 0 pokazuje, że aktualnie mamy 0 stron w pliku, ponieważ uruchomiliśmy ten kod na pustym pliku. Jeśli uruchomisz ten kod na pliku zawierającym dane, wyświetli on numer strony.
Wydrukowano podaje datę i godzinę uruchomienia makra wraz z tekstem „Drukowane”.
W stopce etykieta Ścieżka pokaże ścieżkę bieżącego pliku.
Nasza nazwa pliku to Book1.xlsx, który jest obecnie niezapisanym plikiem. W związku z tym nie ma ścieżki wyświetlanej dla etykiety Ścieżka.
Numer arkusza jest wypełniany po prawej stronie stopki.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail
