Cum se adaugă culoarea de fundal la anteturi sau subsoluri în foaia Excel în timp ce tipăriți?
După cum știm, putem adăuga conținut sau imagine la antetul sau subsolul unei coli, care se va afișa în timpul imprimării. Dar ați încercat vreodată să adăugați culoare de fundal la anteturi sau subsoluri? De fapt, nu există nicio funcție încorporată care să o poată descurca, dar aici vă prezint câteva modalități giratorii pentru a realiza operația.
Adăugați culoare de fundal la antet sau subsol prin Culoare de umplere
Adăugați culoare de fundal la antet și subsol de VBA
Adăugați culoare de fundal la antet sau subsol prin Culoare de umplere
1. clic Pagina Aspect > Page Setup.
2. În Page Setup dialog, sub Margini filă, tastați 0 în Top, Antet, De jos și Subsol casete de text.
3. clic OK. Apoi selectați primul rând și faceți clic Acasă > Merge & Center.
3. Continuați pentru a selecta o culoare din Umpleți cololista r pentru a adăuga culoarea de fundal la celulele îmbinate.
4. Repetați pașii 2 și 3 pentru a adăuga culoarea de fundal la rândul de subsol dorit.
Acum, pagina pare să adauge culoare de fundal la antet și subsol.
Adăugați culoare de fundal la antet și subsol de VBA
Iată un cod VBA care poate adăuga rapid culoare de fundal la antet și subsol în același timp.
1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, copiați și lipiți codul de mai jos în noul modul.
VBA: Adăugați culoare de fundal la antet și subsol
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. presa F5 tasta pentru a rula codul, apoi anumite culori de fundal au fost adăugate la primul rând și al 47-lea rând al fiecărei foi, care va fi afișat ca antet și subsol fals.
Notă: în cod, puteți modifica scripturile de mai jos pentru a vă satisface nevoile.
1. Schimbați conținutul antetului și subsolului după cum aveți nevoie în șir:
xTopArr = Array ("Stânga sus", "", "", "Centrul sus", "", "", "", "")
xButtArr = Array ("Stânga jos", "", "", "Centrul de jos", "", "", "", "")
2. Schimbați indicele de culoare de fundal în această înțepătură:
Celule (I, J). Redimensionare (1, Dimensiune pagină2) .Interior.ColorIndex = 34
Celule (I + PageSize1, J). Redimensionare (1, PageSize2) .Interior.ColorIndex = 34
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!