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