Als u bepaalde informatie in de kop- / voettekst van het werkblad wilt invoegen, zoals de bestandsnaam / het bestandspad of de huidige datum of paginanummer, kunt u dit doen met behulp van de onderstaande code. Als het slechts één werkblad is, kunt u dit handmatig doen, maar als het meerdere bladen of alle bladen in de werkmap zijn waarvoor deze informatie moet worden ingevuld, kunt u dit doen met een eenvoudige vba-macro / code.
Deze voorbeeldmacro voegt een koptekst/voettekst in elk werkblad in de actieve werkmap in. Het voegt ook het volledige pad naar de werkmap in.
Optie Explicit Sub InsertHeaderFooter() Dim wsAs Worksheet Application.ScreenUpdating = False Each wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = "Bedrijfsnaam:" .CenterHeader = "Pagina &P van &N" .RightLeft = "Afgedrukt &D &Tooter" =. “Path :” &ActiveWorkbook.Path .CenterFooter = “Workbook Name: & F” .RightFooter = “Blad: &A” Eindig met volgende ws Set ws = Nothing Application.ScreenUpdating = True End Sub
Om deze code naar uw werkmap te kopiëren, drukt u op Alt + F11 op uw toetsenbord. Vervolgens ziet u aan de linkerkant Microsoft Excel-objecten. Klik met de rechtermuisknop en selecteer Invoegen. Klik vervolgens op Module en kopieer deze code naar het codevenster aan de rechterkant.
Laten we elk deel van de code opsplitsen -
We beginnen met de gebruikelijke Dim-statement waar we de variabelen declareren. In dit geval hebben we slechts 1 variabele - ws voor het werkblad. Dan schakelen we schermupdates uit.
Nu, in de FOR-lus, doorlopen we elk werkblad in de werkmap die de macro bevat. En we stellen elke parameter in Pagina-instelling in. &P, &N, &D, &T, &F en &A zijn bepaalde formaatcodes die kunnen worden toegepast op kop- en voetteksten. &P drukt het paginanummer af. &N drukt het totale aantal pagina's in het document af. &D drukt de huidige datum af. &T drukt de huidige tijd af. &F drukt de naam van het document af en &A drukt de naam van het werkmaptabblad af.
Aan het einde stellen we het werkblad in op niets en maken we het object vrij en schakelen we schermupdates in.
Hier zijn 2 foto's. de 1NS een toont je de kop en de 2nd een van de voettekst nadat de macro is uitgevoerd.
De kop heeft het label Bedrijfsnaam. De naam is nog niet ingevoerd omdat we deze niet aan een cel hebben gekoppeld of tekst hebben ingevoerd voor de bedrijfsnaam. Als u iets in de code of in het Excel-blad invoert en ernaar verwijst, wordt de naam hier opgehaald en ingevuld.
Pagina # van 0 geeft aan dat we momenteel 0 pagina's in het bestand hebben, aangezien we deze code op een leeg bestand hebben uitgevoerd. Als u deze code uitvoert op een bestand met gegevens, wordt het paginanummer weergegeven.
Afgedrukt geeft u de datum en tijd waarop de macro is uitgevoerd, samen met de tekst "Afgedrukt".
In de voettekst toont het padlabel het pad van het huidige bestand.
Onze bestandsnaam is Book1.xlsx, wat momenteel een niet-opgeslagen bestand is. Er wordt dus geen pad weergegeven voor het label Pad.
Het bladnummer wordt rechts van de voettekst ingevuld.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite