Crie partes personalizadas para o cabeçalho e rodapé no Excel

Question

Eu tenho uma planilha com várias planilhas. Em cada página impressa de cada planilha, gostaria de ter referências a alguns campos que defino em algum lugar do documento.

Mais especificamente, gostaria de ter um número de versão, data de aprovação, nos cabeçalhos. E gostaria de poder especificar esses valores nas células na primeira planilha.

Eu quero fazer isso de maneira mais inteligente, porque é uma tarefa chata e propensa a erros, para atualizá-lo manualmente.

Estou tentando criar algo como a funcionalidade de peças rápida encontrada no Word. Mas não consigo descobrir como fazer isso.

Eu tentei referenciar células nomeadas, mas como o cabeçalho e o campo de rodapé não são células, não parece possível. Eu pesquisei na web por "criar elementos de cabeçalho e rodapé personalizados" e coisas semelhantes, mas encontrei apenas referências a como os "elemntes de caixa" são usados. Além disso, parece que não há nenhum conceito de Quick Parts no Excel, como existe no Word (o que é uma pena, porque essas coisas realmente me fazem sentir como um superusuário ..

Eu não olhei para a criação de uma macro que resolve o meu problema, já que eu não sou muito de um super-usuário, mas estaria disposto a mergulhar meus pés naquele pool se esse é o caminho a percorrer.

Então, alguma sugestão?

    

Answer 1

Com alguma ajuda da resposta de Scott Harris, criei um botão na primeira folha chamada "Atualizar Cabeçalhos" e, em seguida, usei as células escolhidas para criar texto das células nomeadas e, em seguida, passei por todas as planilhas e atualizei eles também.

Sub Update_header()    
    Dim WS As Worksheet
    Dim HeaderText As String
    HeaderText = Sheet1.Range("F5").Text & " " & Sheet1.Range("C2").Text & Chr(10) & _
                                       Sheet1.Range("E2").Text & " " & Sheet1.Range("F2").Text & Chr(10) & _
                                       Sheet1.Range("B4").Text & " " & Sheet1.Range("C4").Text
    For Each WS In Worksheets
       WS.PageSetup.RightHeader = HeaderText
    Next

End Sub

Quando comecei, tentei atualizar todas as planilhas na pasta de trabalho quando saí da planilha onde atualizei o texto que queria no cabeçalho. Mas o desempenho foi tão ruim, então decidi usar um botão e iniciar a atualização manualmente.

    

Answer 2

O Google me diz que isso tem que ser feito com o VBA:

link

    

Answer 3

De ' Layout de página ' na faixa de opções, selecione ' Imprimir títulos ' e, em seguida, selecione a guia ' Cabeçalho / Rodapé '. / p>

Isso fornece os recursos personalizados que você deseja.

Você pode inserir campos das Propriedades do documento aqui, se desejar.