Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kan ik achtergrondkleur toevoegen aan kop- of voetteksten in Excel-blad tijdens het afdrukken?

Zoals we weten, kunnen we inhoud of afbeelding toevoegen aan de kop- of voettekst van een blad, dat wordt weergegeven tijdens het afdrukken. Maar heb je ooit geprobeerd om achtergrondkleur toe te voegen aan de kop- of voetteksten? Eigenlijk is er geen ingebouwde functie die het aankan, maar hier introduceer ik enkele manieren om de operatie te bereiken.

Voeg achtergrondkleur toe aan koptekst of voettekst door vulkleur

Voeg achtergrondkleur toe aan kop- en voettekst door VBA

Werkmapinformatie invoegen in kop- of voettekst in Excel

Als je Kutools for Excel geïnstalleerd, kunt u de Werkmapinformatie invoegen hulpprogramma om snel een werkbladnaam, werkmapnaam, werkmappad en naam of andere informatie in koptekst of voettekst of cel in te voegen. Klik voor gratis proefperiode van 60 dagen!
doc voeg achtergrond toe aan header 8
Kutools voor Excel: met meer dan 200 handige Excel-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Voeg achtergrondkleur toe aan koptekst of voettekst door vulkleur

1. klikken Pagina layout > Pagina-instelling.
doc voeg achtergrond toe aan header 1

2. In de Pagina-instelling dialoogvenster, onder Marges tab, type 0 in top, Hoofd, Bodem en footer tekstvakken.
doc voeg achtergrond toe aan header 2

3. klikken OK. Selecteer vervolgens de eerste rij en klik Home > Samenvoegen en centreren.
doc voeg achtergrond toe aan header 3

3. Ga je gang en selecteer een kleur uit Vul colo inr lijst om achtergrondkleur toe te voegen aan de samengevoegde cellen.
doc voeg achtergrond toe aan header 4

4. Herhaal stap 2 en 3 om achtergrondkleur toe te voegen aan de voettekst rij die u wilt.

Nu lijkt de pagina achtergrondkleur aan kop- en voettekst toe te voegen.
doc voeg achtergrond toe aan header 5


Voeg achtergrondkleur toe aan kop- en voettekst door VBA

Hier is een VBA-code kan snel achtergrondkleur toevoegen aan de koptekst en voettekst op hetzelfde moment.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > module, kopieer en plak onderstaande code in de nieuwe module.

VBA: achtergrondkleur toevoegen aan kop- en voettekst

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

doc voeg achtergrond toe aan header 6

3. druk op F5 sleutel om de code uit te voeren, dan is bepaalde achtergrondkleur toegevoegd aan de eerste rij en de rij 47th van elk blad dat zal worden weergegeven als valse koptekst en voettekst.
doc voeg achtergrond toe aan header 7

Let op: in de code kunt u onderstaande scripts wijzigen om aan uw behoeften te voldoen.

1. Wijzig de inhoud van de kop- en voettekst zoals u nodig hebt in de tekenreeks:

xTopArr = Array ("Top Left", "", "", "Top Center", "", "", "", "")

xButtArr = Array ("Bottom Left", "", "", "Bottom Center", "", "", "", "")

2. Verander de achtergrondkleurindex in deze steek:

Cellen (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34

Cellen (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34


plaats snel pagina-einde in elke n-de rij van het werkblad.

In sommige gevallen moeten we pagina-einden handmatig invoegen in elke rij of n-de rij om ze als één pagina af te drukken, wat tijd verspilt. Hier Kutools for Excel's Voeg pagina in elke rij in functie kan snel en eenvoudig pagina-einden in elke n-de rij invoegen door 2-stappen. Klik voor gratis proefperiode van 60 dagen!
doc invoegen pagina-einde elke rij
Kutools voor Excel: met meer dan 200 handige Excel-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.