Ir para o conteúdo principal

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


seta azul bolha direita 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:

doc inserir números de página 1

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:

doc inserir números de página 2

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:

doc inserir números de página 3

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:

doc inserir números de página 4


seta azul bolha direita 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:

doc inserir números de página 5

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:

doc inserir números de página 6

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:

doc inserir números de página 7

Nota: 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.


seta azul bolha direita 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:

doc inserir números de página 8


seta azul bolha direita 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:

doc inserir números de página 9

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:

doc inserir números de página 10

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

🤖 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations