Excel как вставить в колонтитул значение ячейки

Как поместить значение ячейки в верхний / нижний колонтитул в Excel?

Мы можем легко вставить верхний или нижний колонтитул, содержащий путь к файлу, имя файла, текущую дату или другую информацию с помощью функции Excel, но иногда мы хотим использовать значение ячейки в качестве верхнего или нижнего колонтитула в Excel. Как мы можем поместить содержимое ячейки в верхний или нижний колонтитул книги?

Поместите значение ячейки в верхний или нижний колонтитул листа с кодом VBA

Поместите значение ячейки в верхний или нижний колонтитул всех листов с кодом VBA

Вставьте информацию о файле в верхний/нижний колонтитул с помощью Kutools for Excel

Если вы хотите поместить содержимое ячейки в верхний или нижний колонтитул текущего рабочего листа, следующий код VBA может вам помочь. Пожалуйста, сделайте следующие шаги:

1. Активируйте свой рабочий лист, в который вы хотите вставить пастух или нижний колонтитул со значением ячейки, затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2.Щелкните Вставить > Модулии вставьте следующий код в окно модуля.

Код VBA: поместите указанное значение ячейки в заголовок рабочего листа

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3, Затем нажмите F5 Чтобы запустить этот код, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в заголовок.

4, Затем нажмите OK, это указанное значение ячейки было вставлено в левый заголовок текущего рабочего листа. Вы можете просмотреть заголовок, нажав Файл > Печать / PDF. Смотрите скриншот:

Ноты:

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

Код VBA: поместите указанное значение ячейки в нижний колонтитул рабочего листа

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. Вы также можете применить приведенные выше коды для вставки значения ячейки в правый верхний / нижний колонтитул или центральный верхний / нижний колонтитул, просто замените Левый заголовок / Левый нижний колонтитул с Правый заголовок / правый нижний колонтитул or ЦентрЗаголовок / Центр нижнего колонтитула в кодах.

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

1. Активируйте свою книгу, в которую вы хотите вставить пастух или нижний колонтитул со значением ячейки, затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: поместите указанное значение ячейки в нижний колонтитул всех листов

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3, Затем нажмите F5 нажмите клавишу для выполнения этого кода, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в нижний колонтитул всей книги.

4, Затем нажмите OK, это выбранное значение ячейки было добавлено ко всем левым нижним колонтитулам всех листов. Вы можете просмотреть нижний колонтитул, нажав Файл > Печать / PDF. Смотрите скриншот:

Ноты:

1. Если вы хотите использовать содержимое ячейки в качестве заголовка всей книги, вы можете применить этот код:

Код VBA: поместите указанное значение ячейки в заголовок всех листов

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Заменить RightHeader / Footer or CenterHeader / Footer для LeftHeader / Footer в приведенных выше кодах, если вы хотите, чтобы ваш верхний или нижний колонтитул располагался по-другому.

Если вы хотите вставить информацию о фильтре в верхний или нижний колонтитул, такую ​​как имя рабочего листа / книги, путь к книге и т. Д., Вы можете использовать Kutools for ExcelАвтора Вставить информацию о книге утилита, если вы установили Kutools for Excel.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:

2. в Вставить информацию о книге диалоговом окне проверьте информацию, которую необходимо вставить в Информация раздел и проверьте заголовок or нижний колонтитул как тебе нравится.

Наконечник: вы можете вставить информацию в трех местах верхнего или нижнего колонтитула: в центре, слева или справа.

3. Нажмите Ok. Тогда вы можете перейти к Вид > Макет страницы для просмотра заголовка.

С помощью «Вставить информацию о книге» вы также можете вставить информацию о файле в ячейку или диапазон ячеек. Щелкните здесь, чтобы узнать больше об этой утилите.