Przejdź do głównej zawartości

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.
doc dodaj tło do nagłówka 1

2. w Ustawienia strony dialog, pod Marginesy tab, wpisz 0 najnowszych Topy, Nagłówek, Dolny i Footer pola tekstowe.
doc dodaj tło do nagłówka 2

3. kliknij OK. Następnie wybierz pierwszy wiersz i kliknij Strona główna > Scal i wyśrodkuj.
doc dodaj tło do nagłówka 3

3. Śmiało wybierz kolor z Wypełnij color list, aby dodać kolor tła do scalonych komórek.
doc dodaj tło do nagłówka 4

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.
doc dodaj tło do nagłówka 5


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

doc dodaj tło do nagłówka 6

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.
doc dodaj tło do nagłówka 7

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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations