Gå til hovedindhold

Hvordan tilføjes baggrundsfarve til sidehoveder eller sidefødder i Excel-ark under udskrivning?

Som vi ved, kan vi tilføje indhold eller billede til sidehovedet eller sidefoden på et ark, som vises under udskrivning. Men har du nogensinde prøvet at tilføje baggrundsfarve til sidehoveder eller sidefødder? Der er faktisk ingen indbygget funktion, der kan håndtere det, men her introducerer jeg nogle rundkørselsmåder for at opnå operationen.

Føj baggrundsfarve til sidehoved eller sidefod ved udfyldningsfarve

Føj baggrundsfarve til sidehoved og sidefod af VBA


Føj baggrundsfarve til sidehoved eller sidefod ved udfyldningsfarve

1. klik Sidelayout > Sideopsætning.
doc tilføj baggrund til overskrift 1

2. i Sideopsætning dialog under Margener fane, skriv 0 ind Top, Header, Bund , Sidefod tekstbokse.
doc tilføj baggrund til overskrift 2

3. klik OK. Vælg derefter første række, og klik Home > Flet & Center.
doc tilføj baggrund til overskrift 3

3. Gå videre for at vælge en farve fra Fyld color-liste for at tilføje baggrundsfarve til de flettede celler.
doc tilføj baggrund til overskrift 4

4. Gentag trin 2 og 3 for at tilføje baggrundsfarve til den ønskede bundfod.

Nu ser siden ud til at tilføje baggrundsfarve til sidehoved og sidefod.
doc tilføj baggrund til overskrift 5


Føj baggrundsfarve til sidehoved og sidefod af VBA

Her er en VBA-kode, der hurtigt kan tilføje baggrundsfarve til sidehoved og sidefod på samme tid.

1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, kopier og indsæt nedenstående kode til det nye modul.

VBA: Føj baggrundsfarve til sidehoved og sidefod

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 tilføj baggrund til overskrift 6

3. Trykke F5 nøgle til at køre koden, så er der tilføjet en vis baggrundsfarve til den første række og den 47. række på hvert ark, der vises som falsk sidehoved og sidefod.
doc tilføj baggrund til overskrift 7

Bemærk: i koden kan du ændre nedenstående scripts for at imødekomme dit behov.

1. Skift indhold af sidehoved og sidefod, som du har brug for i strengen:

xTopArr = Array ("Øverst til venstre", "", "", "Topcenter", "", "", "", "")

xButtArr = Array ("Nederst til venstre", "", "", "Nederste center", "", "", "", "")

2. Skift baggrundsfarveindeks i dette stik:

Celler (I, J) .Størrelse (1, PageSize2) .Interieur.ColorIndex = 34

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


Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations