Note: The other languages of the website are Google-translated. Back to English

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 Veja > Normale, ao imprimir esta planilha, verá que os números das páginas foram inseridos no cabeçalho ou rodapé selecionado.

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


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório

 

Comentários (8)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, usei o número da página Inserir na célula com o código VBA acima e funciona um charme. Minha folha pode ter 2 páginas (2 abaixo e 1 transversal), 4 páginas (2 abaixo e 2 cruzadas) ou 6 páginas (2 abaixo e 3 cruzadas). Eu inseri o código em cada célula das 6 que exigem que o número da página seja impresso (selecionando as células cada uma por sua vez e executando o VBA), os endereços das células são H1, H35, T1, T35, AF1, AF35. Agora eu gostaria de adicionar um botão para atualizar esses números de página sem afetar qualquer célula que possa estar ativa quando o usuário relevante pode optar por executá-lo, atualmente eu tenho que selecionar cada célula por sua vez novamente e executar o VBA :( A assistência seria enorme apreciado! Antonieta
Este comentário foi feito pelo moderador no site
Tentei a macro VBA, mas estou recebendo um erro de subscrito fora do intervalo... Fiz algo errado?
Este comentário foi feito pelo moderador no site
Olá, há um erro na fórmula porque está executando o ejecuto (F5) o valor numérico do primer da "Pagina XX de XX" não cambia Solo tem o conteúdo de páginas do segundo valor. Podrian revisar... Gracias
Este comentário foi feito pelo moderador no site
terima kasih, kawan
Este comentário foi feito pelo moderador no site
Posso saber se tenho um intervalo de células que desejo colocar em números de página, o que devo alterar? O VBA atual só me permite mudar um por um.
Este comentário foi feito pelo moderador no site
Posso saber como devo modificar acima do VBA que me permite executar isso para o intervalo de células em uma pasta de trabalho e com 1 tecla de atalho para aplicar todas as células selecionadas?
Este comentário foi feito pelo moderador no 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 area de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se você pode mudar a página, na mesma pestana?
Este comentário foi feito pelo moderador no site
Qual a forma de converter este sub em uma função?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL