Note: The other languages of the website are Google-translated. Back to English

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 goed idee 3


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.doc-insert-cell-value-to-header1

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:doc-insert-cell-value-to-header1

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.


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.

doc-insert-cell-value-to-header1

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:

doc-insert-cell-value-to-header1

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.


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:
document 1

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.
doc werkmappad invoegen 1

3. klikken Ok. Dan kun je naar Bekijk > Pagina layout om de koptekst te bekijken.
document 3

Met Werkmapinformatie invoegen kunt u ook bestandsinformatie invoegen in een cel of een celbereik. Klik hier voor meer informatie over dit hulpprogramma.



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 volledige functie zonder beperking in 30 dagen, download en maak nu een gratis proefversie.

doc gesplitste werkmap

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.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (9)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik moest een actief loonlijstdatumbereik in meerdere bladen invoegen. De gebruiker opent de Salarislijst, voert het datumbereik in en werkt alle bladen in de werkmap bij voordat ze deze afdrukt. Hier is hoe ik meerdere cellen in het bereik kan invoegen met een beetje minder code die compatibel is met 2010: 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("'Loondatum'!A1").Value & vbCr & Range("'Loondatum'!A2").Waarde Volgende Einde Sub
Deze opmerking is gemaakt door de moderator op de site
Ik wil vier cellen in de koptekst invoegen. Deze VB is slechts voor één cel. Hoe kan ik het doen. Bedankt
Deze opmerking is gemaakt door de moderator op de site
U kunt proberen de waarde van rht vier cellen samen te voegen tot een enkele cel en vervolgens de enkele cel als koptekst te gebruiken.
Deze opmerking is gemaakt door de moderator op de site
Hallo daar, is er een manier om een ​​celwaarde toe te voegen die rekening houdt met toegepaste filters? Bijvoorbeeld... A1 = maandag A2 = dinsdag A3 = woensdag. Het gebruik van de VBA-code om cel A1 weer te geven werkt in eerste instantie, maar zodra ik een filter op dagen van de week toepas, is de "top" celwaarde niet langer A1. Is er een manier om de variabele op te halen? Erg bedankt,
Deze opmerking is gemaakt door de moderator op de site
Bij gebruik van uw "VBA-code: plaats een opgegeven celwaarde in de kop van alle werkbladen", zou ik willen dat de geplaatste waarde wordt opgemaakt: Tahoma, vetgedrukt, in lettergrootte 12.
Hoe kan dit aan je code worden toegevoegd?
Deze opmerking is gemaakt door de moderator op de site
Hoi,

Dit blijkt maar één keer te werken.
Wat als de waarde van de cel verandert?
Is er een manier om de cel te koppelen zodat de kop verandert wanneer de celwaarde verandert?

Ik heb een werkmap waar ik drie bladen heb.

Blad 1 met het label "Verwijderblad" - Blad dat we naar het magazijn sturen met info wat te palataliseren voor de bestelling
Blad 2 met het label "OA" - Mijn orderbevestiging aan de klant die de meeste gegevens van het eerste blad haalt, inclusief het bestelnummer dat ik in mijn kop moet hebben. Dus ik probeer de koptekst te koppelen aan de cel op deze pagina met het bestelnummer (F5) dat zijn waarde krijgt van (C7) in het eerste werkblad ("Verwijderblad")
Blad 3 met het label "Factuur - Factuur die ook de meeste van dezelfde informatie van het eerste blad haalt, waarvoor ook de koptekst de waarde (F5) van dit blad uit (C7) in "Verwijderblad" nodig heeft
Deze opmerking is gemaakt door de moderator op de site
Dit lijkt geen dynamische koppeling te maken, dwz de waarde die in de koptekst is ingevoerd, verandert niet wanneer de waarde van de cel dat wel doet. Dus wat is het doel van de VBA-code, wanneer kopiëren en plakken hetzelfde zal doen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Nel,
Als u de celwaarde dynamisch aan de kop- of voettekst wilt koppelen, past u de volgende VBA-code toe:

Opmerking:: U moet de code invoegen in de bladcode, niet in de normale module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Probeer het alsjeblieft, ik hoop dat het je kan helpen
Deze opmerking is gemaakt door de moderator op de site
maksudnya bagaimana?
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL