Se você deseja inserir certas informações no cabeçalho / rodapé da planilha, como o nome do arquivo / caminho do arquivo ou a data atual ou número da página, você pode fazer isso usando o código abaixo. Se for apenas uma planilha, você pode fazer isso manualmente, mas se houver várias planilhas ou todas as planilhas na pasta de trabalho que precisam dessas informações para serem preenchidas, você pode fazer isso usando uma macro / código vba simples.
Esta macro de exemplo irá inserir um cabeçalho / rodapé em cada planilha na pasta de trabalho ativa. Também irá inserir o caminho completo para a pasta de trabalho.
Option Explicit Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Cada wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Nome da empresa:” .CenterHeader = “Página & P de & N” .RightHeader = “Printed & Defto =” .RightHeader = “Printed & Defto”. “Caminho:“ & ActiveWorkbook.Path .CenterFooter = “Nome da pasta de trabalho: & F” .RightFooter = “Folha: & A” End With Next ws Set ws = Nothing Application.ScreenUpdating = True End Sub
Para copiar este código para sua pasta de trabalho, pressione Alt + F11 no teclado. Em seguida, no lado esquerdo, você verá objetos do Microsoft Excel. Clique com o botão direito e selecione Inserir. Em seguida, clique em Módulo e copie este código para a janela de código à direita.
Vamos quebrar cada parte do código -
Começamos com a instrução Dim usual, onde declaramos as variáveis. Neste caso, temos apenas 1 variável - ws para a planilha. Em seguida, desabilitamos a atualização da tela.
Agora, no loop FOR, percorremos cada planilha da pasta de trabalho que contém a macro. E configuramos cada parâmetro em Configuração de página. & P, & N, & D, & T, & F e & A são determinados códigos de formato que podem ser aplicados a cabeçalhos e rodapés. & P imprime o número da página. & N imprime o número total de páginas do documento. & D imprime a data atual. & T imprime a hora atual. & F imprime o nome do documento e & A imprime o nome da guia da pasta de trabalho.
No final, definimos a planilha para nada e liberamos o objeto e habilitamos a atualização da tela.
Aqui estão 2 fotos. O 1st um mostra o cabeçalho e os 2WL um no rodapé após a execução da macro.
O cabeçalho possui o rótulo Nome da empresa. O nome ainda não foi inserido, pois não o vinculamos a nenhuma célula ou inserimos nenhum texto para o nome da empresa. Se você inserir algo no código ou na planilha do Excel e fizer referência a ele, o nome será selecionado e preenchido aqui.
Página # de 0 mostra que atualmente temos 0 páginas no arquivo, uma vez que executamos este código em um arquivo em branco. Se você executar este código em um arquivo contendo dados, ele mostrará o número da página.
Impresso fornece a data e hora em que a macro foi executada junto com o texto “Impresso”.
No rodapé, o rótulo Caminho mostrará o caminho do arquivo atual.
Nosso nome de arquivo é Book1.xlsx, que atualmente é um arquivo não salvo. Portanto, não há nenhum caminho aparecendo para o rótulo Caminho.
O número da folha é preenchido à direita do rodapé.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail