Hogyan adhat háttérszínt fejlécekhez vagy láblécekhez az Excel lapban nyomtatás közben?
Mint tudjuk, hozzáadhatunk tartalmat vagy képet a lap fejlécéhez vagy láblécéhez, amely nyomtatás közben megjelenik. De próbált-e már háttérszínt adni a fejlécekhez vagy láblécekhez? Valójában nincs beépített funkció, amely képes lenne kezelni, de itt bemutatok néhány körforgalmi utat a művelet megvalósításához.
Adjon háttérszínt a fejléchez vagy a lábléchez a kitöltési szín szerint
Adjon háttérszínt a VBA fejlécéhez és láblécéhez
Adjon háttérszínt a fejléchez vagy a lábléchez a kitöltési szín szerint
1. kettyenés Page Layout > Page Setup.
2. Ban,-ben Page Setup párbeszéd, alatt Margók fülre írja be 0 bele felső, Fejléc, Alsó és a Lábléc szövegdobozok.
3. kettyenés OK. Ezután válassza ki az első sort, majd kattintson Kezdőlap > Egyesítés és központ.
3. Folytassa a szín kiválasztását Töltsön colótr lista háttérszín hozzáadásához az egyesített cellákhoz.
4. Ismételje meg a 2. és a 3. lépést háttérszín hozzáadásához a kívánt lábléc sorához.
Úgy tűnik, hogy az oldal háttérszínt ad a fejléchez és a lábléchez.
Adjon háttérszínt a VBA fejlécéhez és láblécéhez
Itt van egy VBA-kód, amely egyszerre adhat háttérszínt a fejléchez és a lábléchez.
1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok, másolja és illessze be a kód alatt az új modulba.
VBA: Adjon háttérszínt a fejléchez és a lábléchez
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. nyomja meg F5 gombot a kód futtatásához, akkor minden háttér első és 47. sorához bizonyos háttérszín került, amelyek hamis fejlécként és láblécként jelennek meg.
Jegyzet: a kódban megváltoztathatja az alábbi szkripteket, hogy megfeleljen az Ön igényeinek.
1. Módosítsa a fejléc és a lábléc tartalmát, amire szüksége van a karakterláncban:
xTopArr = Tömb ("Bal felső sarok", "", "", "Felső központ", "", "", "", "")
xButtArr = Tömb ("Bal alsó sarok", "", "", "Alul középen", "", "", "", "")
2. Változtassa meg a háttérszín indexet ebben a csípésben:
Cellák (I, J). Átméretezés (1, PageSize2). Belső.ColorIndex = 34
Cellák (I + PageSize1, J). Resize (1, PageSize2) .Interior.ColorIndex = 34
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
