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 Met RechtsHeader / Rechtsvoettekst or Centrumkop / 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 For 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!
