Come aggiungere il colore di sfondo alle intestazioni o ai piè di pagina in un foglio di Excel durante la stampa?

Come sappiamo, possiamo aggiungere contenuti o immagini all'intestazione o al piè di pagina di un foglio, che verranno visualizzati durante la stampa. Ma hai mai provato ad aggiungere un colore di sfondo alle intestazioni o ai piè di pagina? In realtà, non esiste una funzione incorporata per gestirlo, ma qui ti presento alcuni metodi alternativi per eseguire l'operazione.

Aggiungi colore di sfondo all'intestazione o al piè di pagina tramite Colore di riempimento

Aggiungi colore di sfondo all'intestazione e al piè di pagina tramite VBA

Aggiungi colore di sfondo all'intestazione o al piè di pagina tramite Colore di riempimento

1. Clicca su Layout di pagina > Imposta pagina.

2. Nella finestra di dialogo Imposta pagina sotto la scheda Margini inserisci i valori nei campi di testo 0 nei campi In alto, Intestazione, In basso e Piè di pagina .

3. Clicca su OK. Poi seleziona la prima riga e clicca su Home > Unisci e centra.

3. Procedi selezionando un colore dalla lista Colore di riempimento per aggiungere il colore di sfondo alle celle unite.

4. Ripeti i passaggi 2 e 3 per aggiungere il colore di sfondo alla riga del piè di pagina desiderata.

Ora la pagina sembra avere un colore di sfondo aggiunto all'intestazione e al piè di pagina.

Aggiungi colore di sfondo all'intestazione e al piè di pagina tramite VBA

Ecco un codice VBA che può rapidamente aggiungere il colore di sfondo all'intestazione e al piè di pagina contemporaneamente.

1. Premi i tasti Alt + F11 per abilitare la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, copia e incolla il seguente codice nel nuovo modulo.

VBA: Aggiungi colore di sfondo all'intestazione e al piè di pagina

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. Premi il tasto F5 per eseguire il codice, quindi un determinato colore di sfondo verrà aggiunto alla prima riga e alla 47ª riga di ogni foglio, che verrà mostrato come falso intestazione e piè di pagina.

Nota: nel codice, puoi modificare gli script seguenti per soddisfare le tue esigenze.

1. Modifica i contenuti dell'intestazione e del piè di pagina come necessario nella stringa:

xTopArr = Array("In alto a sinistra", "", "", "Al centro in alto", "", "", "", "")

xButtArr = Array("In basso a sinistra", "", "", "Al centro in basso", "", "", "", "")

2. Modifica l'indice del colore di sfondo in questa stringa:

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

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