Kako dodati glave ozadja glavam ali nogam v Excelovem listu med tiskanjem?

Kot vemo, lahko v glavo ali nogo lista dodamo vsebino ali sliko, ki se prikaže med tiskanjem. Ste že kdaj poskusili glavam ali nogam dodati barvo ozadja? Pravzaprav ni nobene vgrajene funkcije, ki bi jo lahko rešila, toda tukaj predstavljam nekaj krožnih načinov za dosego operacije.

Glavi ali nogi dodajte barvo ozadja z barvo polnila

VBA dodajte barvo ozadja v glavo in nogo

Glavi ali nogi dodajte barvo ozadja z barvo polnila

1. klik Postavitev strani > Priprava strani.

2. V Ljubljani Priprava strani pogovorno okno, pod Robovi zavihek, vnesite 0 v Vrh, Glava, Bottom in Noga besedilna polja.

3. klik OK. Nato izberite prvo vrstico in kliknite Domov > Spoji in centriraj.

3. Nadaljujte in izberite barvo Barva polnila seznam, da dodate barvo ozadja združenim celicam.

4. Ponovite 2. in 3. korak, da v želeno vrstico noge dodate barvo ozadja.

Zdi se, da stran v glavo in nogo doda barvo ozadja.

VBA dodajte barvo ozadja v glavo in nogo

Tukaj je koda VBA, ki lahko hitro doda barvo ozadja v glavo in nogo hkrati.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v nov modul.

VBA: Glavi in ​​nogi dodajte barvo ozadja

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. Pritisnite F5 tipko za zagon kode, je bila v prvo vrstico in 47. vrstico vsakega lista dodana določena barva ozadja, ki bo prikazana kot ponarejena glava in noga.

Opomba: v kodi lahko spremenite spodnje skripte, ki ustrezajo vašim potrebam.

1. Spremenite vsebino glave in noge, kot jo potrebujete v nizu:

xTopArr = Polje ("Levo zgoraj", "", "", "Zgornje središče", "", "", "", "")

xButtArr = matrika ("Spodaj levo", "", "", "Spodnji center", "", "", "", "")

2. Spremenite indeks barve ozadja v tem nizu:

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

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