Hoe celwaarde in koptekst / voettekst in Excel te plaatsen?
We kunnen eenvoudig een koptekst of voettekst invoegen met het bestandspad, de bestandsnaam, de huidige datum of andere informatie met de functie van Excel, maar soms willen we een celwaarde gebruiken als de koptekst of voettekst in Excel. Hoe kunnen we de inhoud van een cel in de koptekst of voettekst in de werkmap plaatsen?
Zet de celwaarde in de kop- of voettekst van een werkblad met VBA-code
Zet de celwaarde in de kop- of voettekst van alle werkbladen met VBA-code
Voeg bestandsinformatie in kop- / voettekst in met Kutools voor Excel
Zet de celwaarde in de kop- of voettekst van een werkblad met VBA-code
Als u een celinhoud in de kop- of voettekst van het huidige werkblad wilt plaatsen, kan de volgende VBA-code u helpen. Voer de volgende stappen uit:
1. Activeer uw werkblad dat u herder of voettekst wilt invoegen met een celwaarde, en houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2.Klik Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA-code: plaats een opgegeven celwaarde in de koptekst van een werkblad
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een cel te selecteren waarvan u de inhoud in de koptekst wilt plaatsen.
4. En klik vervolgens op OK, is deze gespecificeerde celwaarde ingevoegd in de linker koptekst van het huidige werkblad. U kunt de koptekst bekijken door op te klikken Dien in > Print. Zie screenshot:
Opmerkingen:
1. Als u de celinhoud als voettekst van het actieve werkblad wilt gebruiken, kunt u deze code toepassen:
VBA-code: plaats een opgegeven celwaarde in de voettekst van een werkblad
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
2. U kunt de bovenstaande codes ook toepassen om de celwaarde in de rechterkoptekst / voettekst of de middelste koptekst / voettekst in te voegen, vervang gewoon de Linkerkoptekst / Linkervoettekst die al met Countr werken RechtsHeader / Rechtsvoettekst or CenterHeader / Middenvoettekst in de codes.
Zet de celwaarde in de kop- of voettekst van alle werkbladen met VBA-code
Soms wilt u een koptekst of voettekst met de inhoud van een geselecteerde cel invoegen in alle werkbladen van uw openingswerkmap, met de bovenstaande code moet u ze keer op keer herhalen. In dit geval kan de volgende VBA-code de celinhoud in één keer aan de herder of voettekst van de hele werkmap toevoegen.
1. Activeer uw werkmap waarin u een herder of voettekst wilt invoegen met een celwaarde en houd vervolgens de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: plaats een opgegeven celwaarde in de voettekst van alle werkbladen
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een cel te selecteren waarvan u de inhoud in de voettekst van de hele werkmap wilt plaatsen.
4. En klik vervolgens op OKis deze geselecteerde celwaarde toegevoegd aan de linkervoettekst van alle werkbladen. U kunt de voettekst bekijken door op te klikken Dien in > Print. Zie screenshot:
Opmerkingen:
1. Als u de celinhoud als koptekst van de hele werkmap wilt gebruiken, kunt u deze code toepassen:
VBA-code: plaats een opgegeven celwaarde in de koptekst van alle werkbladen
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
2. Plaatsvervanger Rechter koptekst / voettekst or CenterHeader / Footer heeft gewacht LeftHeader / Footer in de bovenstaande codes als u uw kop- of voettekst anders wilt plaatsen.
Voeg bestandsinformatie in kop- / voettekst in met Kutools voor Excel
Als u bestandsinformatie in de koptekst of voettekst wilt invoegen, zoals werkblad- / werkmapnaam, werkmappad enzovoort, kunt u deze gebruiken Kutools for Excel's Voeg werkmapinformatie in hulpprogramma als u Kutools voor Excel hebt geïnstalleerd.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. | ||
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. klikken Koetools Plus > werkboek > Voeg werkmapinformatie in. Zie screenshot:
2. In de Voeg werkmapinformatie in dialoogvenster, controleer de informatie die u moet invoegen onder Informatie sectie en controleer Voorvoegsel or footer Zoals je wilt.
Tip: u kunt de informatie invoegen op drie locaties van kop- of voettekst: midden, links of rechts.
3. klikken Ok. Dan kun je naar Bekijk > Pagina layout om de koptekst te bekijken.
Met Werkmapinformatie invoegen kunt u ook bestandsinformatie invoegen in een cel of een celbereik. Klik hier voor meer informatie over dit hulpprogramma.
Voeg werkmapinformatie in cel / koptekst / voettekst in

Gerelateerde artikelen:
Hoe een bestandsnaam of pad invoegen in cel / koptekst of voettekst in Excel?
Hoe een koptekst, voettekst en koptekstafbeelding in Excel invoegen en verwijderen?
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!









