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 Napolnite kolor seznam za dodajanje barve 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 barv ozadja v tem piku:
Celice (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Celice (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
