Ir para o conteúdo principal

Como adicionar cor de fundo a cabeçalhos ou rodapés em planilhas do Excel durante a impressão?

Como sabemos, podemos adicionar conteúdo ou imagem ao cabeçalho ou rodapé de uma folha, que será exibido durante a impressão. Mas você já tentou adicionar cor de fundo aos cabeçalhos ou rodapés? Na verdade, não há nenhuma função incorporada que possa lidar com isso, mas aqui apresento algumas formas indiretas de realizar a operação.

Adicionar cor de fundo ao cabeçalho ou rodapé pela cor de preenchimento

Adicionar cor de fundo ao cabeçalho e rodapé por VBA


Adicionar cor de fundo ao cabeçalho ou rodapé pela cor de preenchimento

1. Clique layout de página > Configuração da página.
doc adicionar fundo ao cabeçalho 1

2. No Configuração da página diálogo, sob margens guia, tipo 0 para dentro Saída, cabeçalho, Inferior e Rodapé caixas de texto.
doc adicionar fundo ao cabeçalho 2

3. Clique OK. Em seguida, selecione a primeira linha e clique em Início > Unir e centrar.
doc adicionar fundo ao cabeçalho 3

3. Vá em frente para selecionar uma cor de Preencher color lista para adicionar cor de fundo às células mescladas.
doc adicionar fundo ao cabeçalho 4

4. Repita as etapas 2 e 3 para adicionar a cor de fundo à linha de rodapé desejada.

Agora a página parece adicionar cor de fundo ao cabeçalho e rodapé.
doc adicionar fundo ao cabeçalho 5


Adicionar cor de fundo ao cabeçalho e rodapé por VBA

Aqui está um código VBA que pode adicionar rapidamente a cor de fundo ao cabeçalho e rodapé ao mesmo tempo.

1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo, copie e cole o código abaixo no novo módulo.

VBA: adicionar cor de fundo ao cabeçalho e rodapé

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 adicionar fundo ao cabeçalho 6

3. Pressione F5 para executar o código, então certa cor de fundo foi adicionada à primeira linha e à 47ª linha de cada folha, que será mostrada como cabeçalho e rodapé falsos.
doc adicionar fundo ao cabeçalho 7

Nota: no código, você pode alterar os scripts abaixo para atender às suas necessidades.

1. Altere o conteúdo do cabeçalho e rodapé conforme necessário na string:

xTopArr = Array ("Top Left", "", "", "Top Center", "", "", "", "")

xButtArr = Array ("Bottom Left", "", "", "Bottom Center", "", "", "", "")

2. Altere o índice de cor de fundo nesta picada:

Células (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34

Células (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34


Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
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