Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

Zoals we weten, kunnen we inhoud of afbeeldingen toevoegen aan de kop- of voettekst van een blad, dat tijdens het afdrukken wordt weergegeven. 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 omwegen om de operatie te bereiken.

Voeg achtergrondkleur toe aan koptekst of voettekst met vulkleur

Voeg achtergrondkleur toe aan kop- en voettekst door VBA


Voeg achtergrondkleur toe aan koptekst of voettekst met vulkleur

1. klikken Pagina layout > Pagina-instelling.
doc achtergrond toevoegen aan koptekst 1

2. In de Pagina-instelling dialoog, onder Marges tabblad, typ 0 in Top, Voorvoegsel, Onder als footer tekstvakken.
doc achtergrond toevoegen aan koptekst 2

3. klikken OK. Selecteer vervolgens de eerste rij en klik op Voorpagina > Samenvoegen en centreren.
doc achtergrond toevoegen aan koptekst 3

3. Ga je gang om een ​​kleur te selecteren uit Vul de kleur inr lijst om achtergrondkleur toe te voegen aan de samengevoegde cellen.
doc achtergrond toevoegen aan koptekst 4

4. Herhaal stap 2 en 3 om een ​​achtergrondkleur toe te voegen aan de gewenste voettekstrij.

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


Voeg achtergrondkleur toe aan kop- en voettekst door VBA

Hier is een VBA-code waarmee u snel een achtergrondkleur aan kop- en voettekst kunt toevoegen.

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

2. klikken Invoegen > 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 achtergrond toevoegen aan koptekst 6

3. druk op F5 toets om de code uit te voeren, dan is een bepaalde achtergrondkleur toegevoegd aan de eerste rij en de 47e rij van elk blad die wordt weergegeven als nepkop- en voettekst.
doc achtergrond toevoegen aan koptekst 7

Opmerking: in de code kunt u onderstaande scripts wijzigen om aan uw behoefte te voldoen.

1. Wijzig de inhoud van de koptekst en voettekst in de tekenreeks naar behoefte:

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



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-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.
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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
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.