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

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

Вставка значения ячейки в верхний или нижний колонтитул листа с помощью кода VBA

Вставка значения ячейки в верхний или нижний колонтитул всех листов с помощью кода VBA

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

Вставка значения ячейки в верхний или нижний колонтитул листа с помощью кода VBA

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

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

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Это указанное значение ячейки было вставлено в левый верхний колонтитул текущего листа. Вы можете просмотреть верхний колонтитул, нажав Файл > Печать. Смотрите скриншот:

Примечания:

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. Вы также можете применить вышеупомянутые коды для вставки значения ячейки в правый верхний/нижний колонтитул или центральный верхний/нижний колонтитул, просто замените LeftHeader / LeftFooter на RightHeader / RightFooter или CenterHeader / CenterFooter в кодах.

Вставка значения ячейки в верхний или нижний колонтитул всех листов с помощью кода VBA

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

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

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, это выбранное значение ячейки будет добавлено во все левые нижние колонтитулы листов. Вы можете просмотреть нижний колонтитул, нажав Файл > Печать. Смотрите скриншот:

Примечания:

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 или CenterHeader/Footer на LeftHeader/Footer в вышеупомянутых кодах, если вы хотите, чтобы ваш верхний или нижний колонтитул был размещен по-другому.

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

Если вы хотите вставить информацию о файле в верхний или нижний колонтитул, например, имя листа/книги, путь к книге и т.д., вы можете использовать утилиту Insert Workbook Information из Kutools для Excel, если у вас установлен Kutools для Excel.

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

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

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

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

3. Нажмите Ok. Затем вы можете перейти Вид > Разметка страницы чтобы просмотреть верхний колонтитул.

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

Демонстрация: Вставка информации о книге в ячейку/верхний/нижний колонтитул

Совет. Если вы хотите быстро разделить книгу на несколько книг/PDF файлов или CSV файлов, попробуйте использовать функцию Разделить книгу из Kutools для Excel, как показано на следующем скриншоте. Полная функциональность без ограничений в 30 дней, пожалуйста, скачайте и попробуйте бесплатно прямо сейчас.

Связанные статьи:

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

Как вставить и удалить верхний, нижний колонтитул и изображение верхнего колонтитула в Excel?