Como aplicar cabeçalhos ou rodapés diferentes em cada página de uma folha de cálculo do Excel?
Por predefinição, ao adicionar um cabeçalho ou rodapé a uma folha de cálculo do Excel, o conteúdo é aplicado uniformemente em todas as páginas impressas. Este comportamento padrão garante consistência, mas há situações em que cada página precisa de apresentar informações únicas. Por exemplo, ao imprimir relatórios financeiros, listas de alunos ou formulários com secções distintas, ter um cabeçalho ou rodapé específico por página torna a impressão mais clara e facilita a distinção entre secções. Contudo, as ferramentas nativas do Excel permitem definir apenas um único cabeçalho ou rodapé para todas as páginas, limitando a flexibilidade sem recorrer a métodos avançados. Vejamos como configurar cabeçalhos ou rodapés únicos para cada página na sua folha de cálculo do Excel.
Aplicar cabeçalhos ou rodapés diferentes em cada página com código VBA
Aplicar cabeçalhos ou rodapés diferentes em cada página com código VBA
A solução abaixo utiliza uma macro VBA para atribuir cabeçalhos ou rodapés personalizados a cada página impressa. Este método revela-se especialmente útil quando cada secção do seu documento — como capítulos, turmas ou relatórios mensais — requer um identificador único. Embora exija alguma configuração inicial, uma vez definido, permite imprimir rapidamente várias secções com conteúdos distintos de cabeçalho e rodapé.
1. Prima simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA seguinte na janela Código. Se é novo nas macros, saiba que os módulos são as secções onde o código VBA é armazenado para execução. Consulte a imagem de referência:
Código VBA: Aplicar cabeçalhos diferentes em cada página no Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Notas e explicações dos parâmetros:
3. Prima a tecla F5 para executar a macro. Isto irá executar o código e abrir a janela Pré-visualização. Aqui, clique no botão Imprimir para iniciar a impressão de cada secção definida com o respetivo cabeçalho ou rodapé.
Nota: Se a sua folha de cálculo tiver 4 áreas de impressão definidas, terá de clicar no botão Imprimir quatro vezes — uma para cada secção — para concluir a impressão de todas as páginas com cabeçalhos ou rodapés individuais. Isto acontece porque a macro imprime cada secção sequencialmente, pelo que deve repetir a ação de impressão para cada uma delas.
Em resumo, embora o Excel não suporte nativamente cabeçalhos ou rodapés exclusivos para cada página dentro de uma única folha de cálculo, as macros VBA oferecem uma solução prática e altamente personalizável. Verifique sempre as suas definições e o resultado impresso, e considere abordagens alternativas em cenários mais complexos. Se precisar frequentemente de personalizar as suas páginas impressas, investir um pouco de esforço na automatização com VBA pode poupar-lhe imenso trabalho manual.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos