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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!