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
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.
1. klikken Kutools 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.
Voeg werkmapinformatie in cel / koptekst / voettekst in
Tip.Als u snel een werkmap wilt splitsen in meerdere werkmappen / pdf-bestanden of csv-bestanden afzonderlijk, probeer dan de Kutools voor Excel's te gebruiken Werkmap splitsen zoals weergegeven in de volgende schermafbeelding. Het is volledig functioneel zonder beperking in 30 dagen, download en maak nu een gratis proefversie.
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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?
I have a workbook where I have three sheets.
Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook.
Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible:
Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
