Como inserir o número da página numa célula, no cabeçalho ou no rodapé do Excel?
Ao imprimir um ficheiro do Excel, poderá precisar de inserir números de página para garantir que o documento impresso fique organizado e fácil de ler. Neste artigo, partilho consigo alguns truques rápidos para adicionar números de página diretamente numa célula, no cabeçalho ou no rodapé.
Inserir número de página no cabeçalho / rodapé numa folha de cálculo
Inserir número de página no cabeçalho / rodapé em várias folhas de cálculo
Inserir número de página numa célula com código VBA
Remover todos os números de página de uma só vez no Excel
Inserir número de página no cabeçalho / rodapé numa folha de cálculo
Normalmente, podemos inserir rapidamente os números de página no cabeçalho ou no rodapé utilizando a função Cabeçalho e Rodapé, proceda da seguinte forma:
1. Abra a folha de cálculo onde pretende inserir os números de página no cabeçalho ou no rodapé.
2. Em seguida, clique em Inserir > Cabeçalho e Rodapé, e a sua folha de cálculo mudará para a vista Esquema de Página, conforme ilustrado:
3. Clique no cabeçalho ou rodapé onde pretende inserir o número de página; será então apresentado o separador Estrutura com as Ferramentas de Cabeçalho e Rodapé no Friso. Depois, clique em Estrutura > Número de Página, conforme ilustrado:
4. Verá então o marcador de posição &[Page] aparecer na secção selecionada. Clique em qualquer local fora da área do cabeçalho ou do rodapé para visualizar os números de página. Consulte a imagem:
5. Agora, pode regressar à vista normal clicando em Ver > Normal. Ao imprimir esta folha de cálculo, verá que os números de página foram inseridos no cabeçalho ou rodapé que selecionou.
Nota: Se pretender que os números de página sejam apresentados no formato 1 de 15, 2 de 15, basta introduzir diretamente &[Page] de &[Pages]na caixa do campo do cabeçalho ou rodapé, conforme ilustrado:
Inserir o nome da folha, o nome do ficheiro, a data de criação e a data de modificação no cabeçalho, no rodapé ou numa célula: Com a Kutools para Excel’s Inserir Informações da Pasta de Trabalho, pode inserir rapidamente o nome da folha, o nome do ficheiro, Caminho do Arquivo e respetivo nome, Data de Criação, Data de Modificação e assim por diante numa célula, no cabeçalho ou no rodapé, conforme necessário.Descarregue e experimente gratuitamente Kutools para Excel agora!
Kutools para Excel: com mais de 300 complementos úteis para Excel, gratuitos para experimentar sem limitações durante 30 dias.Descarregue e experimente gratuitamente agora! |
Inserir número de página no cabeçalho / rodapé em várias folhas de cálculo
O método acima permite-lhe inserir números de página numa única folha de cálculo. Se pretender inseri-los em todas as folhas do livro, garantindo uma numeração sequencial contínua em todas as páginas, siga os passos seguintes:
1.Selecione todas as Guias de Planilha e, em seguida, aceda ao separador Esquema de Página, e clique no ícone Iniciador da Caixa de Diálogono grupo Configuração de Página, conforme ilustrado:
2. Na caixa de diálogo Configuração de Página, clique no separador Cabeçalho/Rodapé e, em seguida, clique em Cabeçalho Personalizado ou Rodapé Personalizado para configurar o cabeçalho ou rodapé pretendido, conforme ilustrado:
3. Na caixa de diálogo Cabeçalho ou Rodapé, defina a localização onde os números de página serão inseridos clicando na caixa Secção Esquerda:, Secção Central: ou Secção Direita:, consoante as suas necessidades, e depois clique no ícone Inserir Número de Página. Surge então o marcador de posição &[Page]. Consulte a imagem:
Nota:Introduza &[Page] de &[Pages]na caixa do campo do cabeçalho ou rodapé se desejar que os números de página sejam apresentados como 1 de 45, 2 de 45…
4. Em seguida, clique em OK > OK para fechar as caixas de diálogo. Ao imprimir este livro, verá na pré-visualização de impressão que todos os números de página foram inseridos no cabeçalho ou rodapé em ordem sequencial.
Inserir número de página numa célula com código VBA
É fácil inserir números de página no cabeçalho ou no rodapé, mas se precisar de os colocar diretamente numa célula da folha de cálculo, não há uma forma direta de o fazer. O código VBA seguinte pode ajudá-lo a resolver este problema.
1. Clique na célula onde pretende exibir o número de página correspondente.
2. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
3. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Inserir o número de página atual numa célula:
Sub pagenumber()
'updateby Extendoffice 20160506
Dim xVPC As Integer
Dim xHPC As Integer
Dim xVPB As VPageBreak
Dim xHPB As HPageBreak
Dim xNumPage As Integer
xHPC = 1
xVPC = 1
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
xHPC = ActiveSheet.HPageBreaks.Count + 1
Else
xVPC = ActiveSheet.VPageBreaks.Count + 1
End If
xNumPage = 1
For Each xVPB In ActiveSheet.VPageBreaks
If xVPB.Location.Column > ActiveCell.Column Then Exit For
xNumPage = xNumPage + xHPC
Next
For Each xHPB In ActiveSheet.HPageBreaks
If xHPB.Location.Row > ActiveCell.Row Then Exit For
xNumPage = xNumPage + xVPC
Next
ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
4. Em seguida, prima a tecla F5 para executar este código e o número de página correspondente será apresentado na célula selecionada, conforme ilustrado:
Remover todos os números de página de uma só vez no Excel
Para remover todos os números de página, pode aplicar os seguintes passos:
1. Selecione todas as guias de folha e aceda ao separador Esquema de Página no Friso. Depois, clique no ícone Iniciador da Caixa de Diálogo no grupo Configuração de Página, conforme ilustrado:
2. Na caixa de diálogo Configuração de Página, clique no separador Cabeçalho/Rodapé e selecione (nenhum) na lista pendente Cabeçalho ou Rodapé, conforme ilustrado:
3. Em seguida, clique no botão OK e todos os números de página serão removidos do livro de uma só vez.
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