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.
2. V Vzhled stránky dialogové okno pod Okraje kartu, zadejte 0 do Vrchní část, Hlavička, Spodní část a Zápatí textová pole.
3. cvaknutí OK. Poté vyberte první řádek a klikněte Domů > Sloučit a vycentrovat.
3. Pokračujte v výběru barvy Vyplňte barvuSeznam pro přidání barvy pozadí do sloučených buněk.
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í.
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
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í.
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
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...
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!