Ako želite umetnuti određene podatke u zaglavlje / podnožje radnog lista, poput naziva datoteke / putanje datoteke ili trenutnog datuma ili broja stranice, to možete učiniti pomoću donjeg koda. Ako je to samo jedan radni list, to možete učiniti ručno, no ako je to više listova ili svi listovi u radnoj knjizi kojima su potrebne ove informacije za popunjavanje, to možete učiniti pomoću jednostavnog vba makronaredbe / koda.
Ovaj primjer makronaredbe umetnut će zaglavlje/podnožje u svaki radni list u aktivnoj radnoj knjizi. Također će umetnuti potpuni put do radne knjige.
Opcija Eksplicitni Sub InsertHeaderFooter () Dim wsAs Radni list Application.ScreenUpdating = False Svaki wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Naziv tvrtke:” .CenterHeader = “Stranica & P of & N”. "Put:" & ActiveWorkbook.Path .CenterFooter = "Naziv radne knjige: & F" .RightFooter = "List: & A" Završi sa sljedećim ws Postavi ws = Ništa Application.ScreenUpdating = True End Sub
Za kopiranje ovog koda u radnu knjigu pritisnite Alt + F11 na tipkovnici. Zatim ćete s lijeve strane vidjeti Microsoft Excel objekte. Desnom tipkom miša kliknite i odaberite Umetni. Zatim kliknite na Modul i kopirajte ovaj kod u kodni prozor s desne strane.
Razdvojimo svaki dio koda -
Počinjemo s uobičajenom naredbom Dim gdje deklariramo varijable. U ovom slučaju imamo samo 1 varijablu - ws za radni list. Zatim onemogućujemo ažuriranje zaslona.
Sada, u FOR petlji, prolazimo kroz svaki radni list u radnoj knjizi koji sadrži makronaredbu. Svaki parametar postavljamo u Postavljanje stranice. & P, & N, & D, & T, & F i & A određeni su kodovi formata koji se mogu primijeniti na zaglavlja i podnožja. & P ispisuje broj stranice. & N ispisuje ukupan broj stranica u dokumentu. & D ispisuje trenutni datum. & T ispisuje trenutno vrijeme. & F ispisuje naziv dokumenta, a & A ispisuje naziv kartice radne knjige.
Na kraju smo postavili radni list na ništa i oslobodili objekt te omogućili ažuriranje zaslona.
Evo 2 slike. 1sv jedan vam prikazuje zaglavlje, a 2nd jedno podnožje nakon pokretanja makronaredbe.
Zaglavlje ima oznaku Naziv tvrtke. Naziv još nije unet jer ga nismo povezali ni s jednom ćelijom niti unijeli u bilo koji tekst za naziv tvrtke. Ako unesete bilo što u kôd ili u Excel tablicu i na to se pozovete, tada će se ime pokupiti i popuniti ovdje.
Stranica # od 0 pokazuje da trenutno imamo 0 stranica u datoteci, budući da smo ovaj kôd pokrenuli na praznoj datoteci. Ako pokrenete ovaj kôd na datoteci koja sadrži podatke, prikazat će vam se broj stranice.
Tiskano daje datum i vrijeme pokretanja makronaredbe zajedno s tekstom "Ispisano".
U podnožju će vam oznaka Path pokazati put do trenutne datoteke.
Naš naziv datoteke je Book1.xlsx, što je trenutno nespremljena datoteka. Stoga se za oznaku Path ne prikazuje put.
Broj lista unosi se desno od podnožja.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte