Přejít k hlavnímu obsahu

Jak přidat barvu pozadí do záhlaví nebo zápatí v listu aplikace Excel při tisku?

Jak víme, můžeme přidat obsah nebo obrázek do záhlaví nebo zápatí listu, který se zobrazí při tisku. Zkusili jste ale někdy přidat barvu pozadí do záhlaví nebo zápatí? Ve skutečnosti neexistuje žádná vestavěná funkce, která by to zvládla, ale zde představuji několik způsobů, jak dosáhnout operace.

Přidejte barvu pozadí do záhlaví nebo zápatí podle barvy výplně

Přidejte barvu pozadí do záhlaví a zápatí pomocí VBA


Přidejte barvu pozadí do záhlaví nebo zápatí podle barvy výplně

1. cvaknutí Rozvržení stránky > Vzhled stránky.
doc přidat pozadí do záhlaví 1

2. V Vzhled stránky dialogové okno pod Okraje kartu, zadejte 0 do Vrchní část, Hlavička, Spodní část a Zápatí textová pole.
doc přidat pozadí do záhlaví 2

3. cvaknutí OK. Poté vyberte první řádek a klikněte Domů > Sloučit a vycentrovat.
doc přidat pozadí do záhlaví 3

3. Pokračujte v výběru barvy Vyplňte barvuSeznam pro přidání barvy pozadí do sloučených buněk.
doc přidat pozadí do záhlaví 4

4. Opakováním kroků 2 a 3 přidejte barvu pozadí do požadovaného řádku zápatí.

Nyní se zdá, že stránka přidává barvu pozadí do záhlaví a zápatí.
doc přidat pozadí do záhlaví 5


Přidejte barvu pozadí do záhlaví a zápatí pomocí VBA

Zde je kód VBA, který může rychle přidat barvu pozadí do záhlaví a zápatí současně.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, zkopírujte a vložte pod kód do nového modulu.

VBA: Přidejte barvu pozadí do záhlaví a zápatí

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 přidat pozadí do záhlaví 6

3. lis F5 klíč ke spuštění kódu, pak byla do prvního řádku a 47. řádku každého listu přidána určitá barva pozadí, která se zobrazí jako falešná hlavička a zápatí.
doc přidat pozadí do záhlaví 7

Poznámka: v kódu můžete podle potřeby změnit níže uvedené skripty.

1. Změňte obsah záhlaví a zápatí podle potřeby v řetězci:

xTopArr = Array ("Nahoře vlevo", "", "", "Nahoře uprostřed", "", "", "", "")

xButtArr = Array ("Vlevo dole", "", "", "Střed dole", "", "", "", "")

2. Změňte index barvy pozadí v tomto bodnutí:

Buňky (I, J). Resize (1, PageSize2) .Interior.ColorIndex = 34

Buňky (I + PageSize1, J). Resize (1, PageSize2) .Interior.ColorIndex = 34


Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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