Hvordan tilføjes baggrundsfarve til sidehoveder eller sidefødder i Excel-ark under udskrivning?
Som vi ved, kan vi tilføje indhold eller billede til sidehovedet eller sidefoden på et ark, som vises under udskrivning. Men har du nogensinde prøvet at tilføje baggrundsfarve til sidehoveder eller sidefødder? Der er faktisk ingen indbygget funktion, der kan håndtere det, men her introducerer jeg nogle rundkørselsmåder for at opnå operationen.
Føj baggrundsfarve til sidehoved eller sidefod ved udfyldningsfarve
Føj baggrundsfarve til sidehoved og sidefod af VBA
Føj baggrundsfarve til sidehoved eller sidefod ved udfyldningsfarve
1. klik Sidelayout > Sideopsætning.
2. i Sideopsætning dialog under Margener fane, skriv 0 ind Top, Header, Bund , Sidefod tekstbokse.
3. klik OK. Vælg derefter første række, og klik Home > Flet & Center.
3. Gå videre for at vælge en farve fra Fyld color-liste for at tilføje baggrundsfarve til de flettede celler.
4. Gentag trin 2 og 3 for at tilføje baggrundsfarve til den ønskede bundfod.
Nu ser siden ud til at tilføje baggrundsfarve til sidehoved og sidefod.
Føj baggrundsfarve til sidehoved og sidefod af VBA
Her er en VBA-kode, der hurtigt kan tilføje baggrundsfarve til sidehoved og sidefod på samme tid.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, kopier og indsæt nedenstående kode til det nye modul.
VBA: Føj baggrundsfarve til sidehoved og sidefod
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. Trykke F5 nøgle til at køre koden, så er der tilføjet en vis baggrundsfarve til den første række og den 47. række på hvert ark, der vises som falsk sidehoved og sidefod.
Bemærk: i koden kan du ændre nedenstående scripts for at imødekomme dit behov.
1. Skift indhold af sidehoved og sidefod, som du har brug for i strengen:
xTopArr = Array ("Øverst til venstre", "", "", "Topcenter", "", "", "", "")
xButtArr = Array ("Nederst til venstre", "", "", "Nederste center", "", "", "", "")
2. Skift baggrundsfarveindeks i dette stik:
Celler (I, J) .Størrelse (1, PageSize2) .Interieur.ColorIndex = 34
Celler (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!