Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


Если вы хотите поместить содержимое ячейки в верхний или нижний колонтитул текущего рабочего листа, следующий код 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 Чтобы запустить этот код, появится диалоговое окно, напоминающее вам о выборе ячейки, содержимое которой вы хотите поместить в заголовок.doc-insert-cell-value-to-header1

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

Ноты:

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

doc-insert-cell-value-to-header1

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

doc-insert-cell-value-to-header1

Ноты:

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, с более чем 300 удобные функции, облегчающие вашу работу. 

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

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

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

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

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

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



Наконечник.Если вы хотите быстро разделить книгу на несколько книг / файлов pdf или файлов csv отдельно, попробуйте использовать Kutools for Excel's Разделить книгу как показано на следующем снимке экрана. Полная функция без ограничений в 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.

документ разделить книгу

Статьи по теме:

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно было вставить активный диапазон дат расчета заработной платы в несколько листов. Пользователь открывает лист «Дата расчета заработной платы», вводит диапазон дат и, прежде чем распечатать его, обновляет все листы в рабочей книге. Вот как я могу вставить несколько ячеек в диапазон с немного меньшим количеством кода, совместимого с 2010: Private Sub Workbook_BeforePrint (Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'Дата платежной ведомости'!A1").Value & vbCr & Range("'Дата платежной ведомости'!A2").Value Next End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Я хочу вставить четыре ячейки в заголовок. Этот VB предназначен только для одной ячейки. Как мне это сделать. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете попробовать объединить значение четырех ячеек в одну ячейку, а затем использовать одну ячейку в качестве заголовка.
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Есть ли способ добавить значение ячейки, которое учитывает примененные фильтры? Например... A1 = понедельник A2 = вторник A3 = среда. Использование кода VBA для отображения ячейки A1 изначально будет работать, но как только я применю фильтр по дням недели, «верхнее» значение ячейки больше не будет A1. Есть ли способ подобрать переменную? Большое спасибо,
Этот комментарий был сведен к минимуму модератором на сайте
При использовании вашего «кода VBA: поместите указанное значение ячейки в заголовок всех рабочих листов», я бы хотел, чтобы значение было отформатировано: Tahoma, полужирный шрифт, размер шрифта 12.
Как это можно добавить в ваш код?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

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

У меня есть рабочая тетрадь, где у меня есть три листа.

Лист 1 с пометкой «Лист удаления» — лист, который мы отправляем на склад с информацией о том, что нужно палатализировать для заказа.
Лист 2 с пометкой «OA» — мое подтверждение заказа покупателю, которое извлекает большую часть данных из первого листа, включая номер заказа, который мне нужно иметь в заголовке. Итак, я пытаюсь связать заголовок с ячейкой на этой странице с номером заказа (F5), который получает значение из (C7) на первом рабочем листе («Лист удаления»)
Лист 3 с пометкой «Счет-фактура — счет-фактура, который также извлекает большую часть той же информации из первого листа, для которого также потребуется, чтобы заголовок включал значение (F5) этого листа, взятое из (C7) в «Листе удаления».
Этот комментарий был сведен к минимуму модератором на сайте
Похоже, это не создает динамическую ссылку, т. е. значение, введенное в заголовок, не изменяется, когда изменяется значение ячейки. Итак, какова цель кода VBA, когда копирование/вставка сделает то же самое?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Нил,
Если вы хотите динамически связать значение ячейки с верхним или нижним колонтитулом, примените следующий код VBA:

Внимание: Вы должны вставить код в код листа, а не в обычный модуль.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Пожалуйста, попробуйте, надеюсь, это поможет вам
Этот комментарий был сведен к минимуму модератором на сайте
максудня багаймана?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL