Wie füge ich Kopf- oder Fußzeilen in Excel-Tabellen während des Druckens Hintergrundfarben hinzu?
Wie wir wissen, können wir der Kopf- oder Fußzeile eines Blattes Inhalte oder Bilder hinzufügen, die beim Drucken angezeigt werden. Aber haben Sie jemals versucht, den Kopf- oder Fußzeilen Hintergrundfarbe hinzuzufügen? Eigentlich gibt es keine eingebaute Funktion, die damit umgehen kann, aber hier stelle ich einige Umwege vor, um die Operation zu erreichen.
Fügen Sie der Kopf- oder Fußzeile Hintergrundfarbe hinzu, indem Sie die Füllfarbe verwenden
Fügen Sie der Kopf- und Fußzeile von VBA Hintergrundfarbe hinzu
Fügen Sie der Kopf- oder Fußzeile Hintergrundfarbe hinzu, indem Sie die Füllfarbe verwenden
1 Klicken Seitenlayout > Seiteneinrichtung.
2. In dem Seiteneinrichtung Dialog, unter Die Margen Registerkarte, Typ 0 in Top, Kopfzeile, Boden und Fußzeile Textfelder.
3 Klicken OK. Wählen Sie dann die erste Zeile aus und klicken Sie auf Home > Zusammenführen & zentrieren.
3. Wählen Sie eine Farbe aus Colo füllenr Liste, um den zusammengeführten Zellen Hintergrundfarbe hinzuzufügen.
4. Wiederholen Sie die Schritte 2 und 3, um der gewünschten Fußzeilenzeile Hintergrundfarbe hinzuzufügen.
Jetzt scheint die Seite der Kopf- und Fußzeile Hintergrundfarbe hinzuzufügen.
Fügen Sie der Kopf- und Fußzeile von VBA Hintergrundfarbe hinzu
Hier ist ein VBA-Code, mit dem Kopf- und Fußzeilen gleichzeitig schnell Hintergrundfarben hinzugefügt werden können.
1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das neue Modul ein.
VBA: Fügen Sie der Kopf- und Fußzeile Hintergrundfarbe hinzu
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 F5 Wenn Sie die Taste drücken, um den Code auszuführen, wurde der ersten Zeile und der 47. Zeile jedes Blattes eine bestimmte Hintergrundfarbe hinzugefügt, die als falsche Kopf- und Fußzeile angezeigt wird.
Hinweis: Im Code können Sie die folgenden Skripte ändern, um sie Ihren Anforderungen anzupassen.
1. Ändern Sie den Inhalt der 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 Hintergrundfarbindex in diesem Stich:
Zellen (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Zellen (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!