Wie fügt man beim Drucken einer Excel-Tabelle dem Kopf- oder Fußzeilentext eine Hintergrundfarbe hinzu?

Wie wir wissen, können wir dem Kopf- oder Fußzeilentext einer Tabelle Inhalte oder Bilder hinzufügen, die beim Drucken angezeigt werden. Haben Sie jedoch schon einmal versucht, dem Kopf- oder Fußzeilentext eine Hintergrundfarbe hinzuzufügen? Tatsächlich gibt es keine integrierte Funktion, die dies ermöglicht, aber hier stelle ich einige Umwege vor, um diese Berechnung durchzuführen.

Hintergrundfarbe zum Kopf- oder Fußzeilentext mit Füllfarbe hinzufügen

Hintergrundfarbe zu Kopf- und Fußzeile mit VBA hinzufügen

Hintergrundfarbe zum Kopf- oder Fußzeilentext mit Füllfarbe hinzufügen

1. Klicken Sie auf Seitenlayout > Seite einrichten.

2. Im Fenster Seite einrichten Dialogfeld unter dem Reiter Seitenränder Tabulator, geben Sie 0 in die Felder Oben, Kopfzeile, Unten und Fußzeile Textboxen ein.

3. Klicken Sie auf OK. Wählen Sie dann die erste Zeile aus und klicken Sie auf Start > Zusammenführen & Zentrieren.

3. Gehen Sie weiter und wählen Sie eine Farbe aus der Füllfarbe Liste aus, um den zusammengeführten Zellen eine Hintergrundfarbe hinzuzufügen.

4. Wiederholen Sie Schritt 2 und 3, um die gewünschte Fußzeilen-Zeile mit einer Hintergrundfarbe zu versehen.

Jetzt sieht es so aus, als ob der Seite eine Hintergrundfarbe für Kopf- und Fußzeile hinzugefügt wurde.

Hintergrundfarbe zu Kopf- und Fußzeile mit VBA hinzufügen

Hier ist ein VBA-Code, der schnell eine Hintergrundfarbe für Kopf- und Fußzeile gleichzeitig hinzufügen kann.

1. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, kopieren und fügen Sie den folgenden Code in das neue Modul ein.

VBA: Hintergrundfarbe zu Kopf- und Fußzeile hinzufügen

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. Drücken Sie die F5 Taste, um den Code auszuführen. Dann wird eine bestimmte Hintergrundfarbe zur ersten Zeile und zur 47. Zeile jedes Blatts hinzugefügt, die als gefälschte Kopf- und Fußzeile angezeigt werden.

Hinweis: Im Code können Sie die folgenden Skripte ändern, um Ihren Bedarf zu erfüllen.

1. Ändern Sie die Inhalte von Kopf- und Fußzeile nach Bedarf in der Zeichenfolge:

xTopArr = Array("Oben Links", "", "", "Oben Mitte", "", "", "", "")

xButtArr = Array("Unten Links", "", "", "Unten Mitte", "", "", "", "")

2. Ändern Sie den Hintergrundfarbcode in dieser Zeichenfolge:

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34