Создание пользовательских частей для верхнего и нижнего колонтитула в Excel

Question

У меня есть таблица с несколькими листами. На каждой печатной странице каждого листа я хотел бы иметь ссылки на некоторые поля, которые я определяю где-то в документе.

В частности, я хотел бы иметь номер версии, дату утверждения в заголовках. И я хотел бы иметь возможность указать эти значения в ячейках на первом листе.

Я хочу сделать это умнее, потому что это рутина и подвержена ошибкам, чтобы обновить его вручную.

Я пытаюсь создать что-то вроде быстрой функциональности деталей, найденной в Word. Но я не могу понять, как это сделать.

Я пытался ссылаться на именованные ячейки, но поскольку поле заголовка и нижнего колонтитула не является ячейками, это кажется невозможным. Я искал в Интернете "создание пользовательских элементов верхнего и нижнего колонтитула" и тому подобные вещи, но нашел только ссылки на то, как используются "из коробки элементы". Кроме того, кажется, что в Excel нет концепции Quick Parts, как в Word (что довольно обидно, потому что это заставляет меня чувствовать себя суперпользователем).

Я не собирался создавать макрос, который решал бы мою проблему, так как я не так уж и многопользовательский, но был бы готов погрузить свои пальцы в этот пул, если это так.

Итак, есть предложения?

Answer 1

Google говорит мне, что это должно быть сделано с VBA:

http://excel.tips.net/T002522_Putting_Cell_Contents_in_Footers.html

Answer 2

С некоторой помощью ответа Скотта Харриса я создал кнопку на первом листе под названием "Обновить заголовки", а затем использовал выбранные ячейки, которые я хотел, чтобы создать текст из названных ячеек, а затем перебрал все листы и обновил их. ,

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

Когда я только начинал, я пытался обновить все листы в рабочей книге, когда я покинул рабочий лист, где я обновил нужный мне текст в заголовке. Но производительность была настолько плохой, что я решил нажать кнопку, а затем запустить обновление вручную.

Answer 3

В « Макете страницы » на ленте выберите « Печатать заголовки », затем выберите вкладку « Верхний / нижний колонтитул ».

Это дает пользовательские функции, которые вы хотите.

Вы можете вставить поля из свойств документа здесь, если хотите.