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.
2. In de Pagina-instelling dialoog, onder Marges tabblad, typ 0 in Top, Voorvoegsel, Onder en footer tekstvakken.
3. klikken OK. Selecteer vervolgens de eerste rij en klik op Home > Samenvoegen en centreren.
3. Ga je gang om een kleur te selecteren uit Vul de kleur inr lijst om achtergrondkleur toe te voegen aan de samengevoegde cellen.
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.
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
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.
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.
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!
