Jak dodać kolor tła do nagłówków lub stopek w arkuszu Excela podczas drukowania?
Jak wiemy, do nagłówka lub stopki arkusza możemy dodać treść lub zdjęcie, które wyświetli się podczas drukowania. Ale czy kiedykolwiek próbowałeś dodać kolor tła do nagłówków lub stopek? Właściwie nie ma wbudowanej funkcji, która może sobie z tym poradzić, ale tutaj przedstawiam kilka okrężnych sposobów wykonania operacji.
Dodaj kolor tła do nagłówka lub stopki za pomocą koloru wypełnienia
Dodaj kolor tła do nagłówka i stopki przez VBA
Dodaj kolor tła do nagłówka lub stopki za pomocą koloru wypełnienia
1. kliknij Układ strony > Ustawienia strony.
2. w Ustawienia strony dialog, pod Marginesy tab, wpisz 0 najnowszych Topy, Nagłówek, Dolny i Footer pola tekstowe.
3. kliknij OK. Następnie wybierz pierwszy wiersz i kliknij Strona główna > Scal i wyśrodkuj.
3. Śmiało wybierz kolor z Wypełnij color list, aby dodać kolor tła do scalonych komórek.
4. Powtórz kroki 2 i 3, aby dodać kolor tła do żądanego wiersza stopki.
Teraz strona wydaje się dodawać kolor tła do nagłówka i stopki.
Dodaj kolor tła do nagłówka i stopki przez VBA
Oto kod VBA, który może szybko dodać kolor tła do nagłówka i stopki w tym samym czasie.
1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do nowego modułu.
VBA: Dodaj kolor tła do nagłówka i stopki
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. naciśnij F5 aby uruchomić kod, następnie do pierwszego wiersza i 47. wiersza każdego arkusza dodano określony kolor tła, który będzie wyświetlany jako fałszywy nagłówek i stopka.
Uwaga: w kodzie możesz zmienić poniższe skrypty zgodnie z potrzebami.
1. Zmień zawartość nagłówka i stopki według potrzeb w ciągu:
xTopArr = Array ("Lewy górny", "", "", "Górny środek", "", "", "", "")
xButtArr = Array ("Dolny lewy", "", "", "Dolny środek", "", "", "", "")
2. Zmień indeks koloru tła w tym żądle:
Cells (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Cells (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!