Como inserir o número da página na célula / cabeçalho / rodapé no Excel?
Ao imprimir um arquivo do Excel, pode ser necessário inserir os números das páginas nas páginas para fazer o arquivo impresso de maneira organizada e legível. Neste artigo, vou apresentar alguns truques rápidos para inserir os números das páginas na célula, cabeçalho ou rodapé para você.
Insira o número da página no cabeçalho / rodapé em uma planilha
Insira o número da página no cabeçalho / rodapé em várias planilhas
Insira o número da página na célula com o código VBA
Remova todos os números de página de uma vez no Excel
Insira o número da página no cabeçalho / rodapé em uma planilha
Normalmente, podemos inserir os números das páginas no cabeçalho ou rodapé rapidamente usando o Cabeçalho rodapé função, por favor, faça o seguinte:
1. Vá para a planilha na qual deseja inserir os números das páginas no cabeçalho ou rodapé.
2. Então clique inserção > Cabeçalho rodapé, e sua planilha estará em layout de página ver, veja a captura de tela:
3. Clique no cabeçalho ou rodapé onde deseja inserir o número da página e depois em Design guia com Ferramentas de cabeçalho e rodapé é exibido na faixa de opções e clique em Design > Número de página, veja a captura de tela:
4. E você pode ver o espaço reservado &[Página] aparecem na seção selecionada e, em seguida, clique em qualquer lugar fora da área do cabeçalho ou rodapé para exibir os números das páginas. Veja a imagem:
5. Agora, você pode restaurar a visualização normal clicando em Ver > Normale, ao imprimir esta planilha, verá que os números das páginas foram inseridos no cabeçalho ou rodapé selecionado.
Note: Se você quiser que os números das páginas sejam exibidos no formato 1 de 15, 2 de 15, você só precisa inserir isso diretamente & [Página] de & [Páginas] na caixa de campo de cabeçalho ou rodapé, veja a captura de tela:
Insira o número da página no cabeçalho / rodapé em várias planilhas
O método acima pode ajudá-lo a inserir os números das páginas em uma planilha, se você quiser inserir os números das páginas em todas as planilhas da pasta de trabalho para que todas as páginas sejam numeradas em ordem sequencial, faça o seguinte:
1. Selecione todas as guias da planilha e vá para layout de página guia e clique em Botão de inicialização da caixa de diálogo ícone no Configuração da página grupo, veja a imagem:
2. No Configuração da página caixa de diálogo, por favor clique Cabeçalho rodapé Guia e, em seguida, clique em Cabeçalho personalizado or Personalizar Rodapé para ir para definir o cabeçalho ou rodapé que deseja, consulte a captura de tela:
3. E no cabeçalho or Rodapé caixa de diálogo, defina o local onde os números de página são inseridos clicando dentro do Seção esquerda:, Seção central:ou Seção certa: conforme a necessidade e, em seguida, clique Insira o número da página ícone e espaço reservado &[Página] parece. Veja a imagem:
Observação: Insira isso & [Página] de & [Páginas] na caixa de campo de cabeçalho ou rodapé se você gostar dos números de página exibidos como 1 de 45, 2 de 45 ...
4. Então clique OK > OK para fechar as caixas de diálogo, ao imprimir esta pasta de trabalho, na visualização da impressão, você pode ver que todos os números de página são inseridos no cabeçalho ou rodapé em ordem sequencial.
Insira o número da página na célula com o código VBA
É fácil inserir os números das páginas no cabeçalho ou rodapé, mas, se precisar inserir os números das páginas em uma célula da planilha, não há uma maneira direta de fazê-lo. O seguinte código VBA pode ajudá-lo a resolver esse problema.
1. Clique em uma célula onde deseja exibir o número da página dessa célula.
2. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: insira o número da página atual em uma 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. Então aperte F5 para executar este código, e o número da página desta célula é exibido na célula selecionada, veja a captura de tela:
Remova todos os números de página de uma vez no Excel
Para remover todos os números de página, você pode aplicar as seguintes etapas:
1. Selecione todas as guias da planilha e vá para o layout de página guia na faixa de opções e clique em Botão de inicialização da caixa de diálogo ícone no Configuração da página grupo, veja a imagem:
2. No Configuração da página caixa de diálogo, clique em Cabeçalho rodapé guia e escolha (Nenhum) do cabeçalho or Rodapé lista suspensa, veja a captura de tela:
3. Então clique OK botão, todos os números de página são removidos da pasta de trabalho de uma vez.
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!