Como aplicar cabeçalhos ou rodapés diferentes em cada página de uma planilha do Excel?
Por padrão, ao inserir o cabeçalho ou rodapé em uma planilha, o conteúdo do cabeçalho ou rodapé será aplicado a todas as páginas. Para muitas pessoas, páginas diferentes podem ter conteúdos diferentes em suas planilhas. E eles tendem a distinguir essas páginas com o conteúdo do cabeçalho ou rodapé depois de imprimir a planilha. Como aplicar cabeçalhos ou rodapés diferentes em cada página da planilha? O método neste artigo pode ajudá-lo.
Aplicar cabeçalhos ou rodapés diferentes em cada página com o código VBA
Aplicar cabeçalhos ou rodapés diferentes em cada página com o código VBA
O código VBA a seguir pode ajudá-lo a aplicar diferentes cabeçalhos ou rodapés em cada página de uma planilha. Faça o seguinte.
1. aperte o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para aplicativosjanela s.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo no Code janela. Veja a imagem:
Código VBA: aplique cabeçalhos diferentes em cada página do 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:
3. aperte o F5 chave para executar o código. Então o visualização janela aparece, por favor clique no Impressão para começar a imprimir as páginas com diferentes cabeçalhos ou rodapés.
Note: Se houver 4 páginas impressas especificadas na planilha, você precisa clicar no botão Impressão botão quatro vezes para finalizar toda a impressão.
Melhores ferramentas de produtividade de escritório
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...
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!