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

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

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

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

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

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


Якщо ви хочете розмістити вміст комірки у верхньому або нижньому колонтитулі поточного робочого аркуша, вам може допомогти такий код VBA. Будь ласка, виконайте такі дії:

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

2Натисніть Insert > Модуліта вставте наступний код у вікно модуля.

Код 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, це вказане значення комірки було вставлено в поточний лівий заголовок робочого аркуша. Ви можете переглянути заголовок, натиснувши філе > друк. Дивіться знімок екрана: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 CenterHeader / Центральний нижній колонтитул в кодах.


Іноді вам потрібно вставити верхній або нижній колонтитул із вмістом вибраної комірки на всі аркуші вашої книги, що відкривається, із зазначеним вище кодом, вам потрібно повторювати їх раз за разом. У цьому випадку наступний код VBA може одночасно додати вміст комірки до пасти або колонтитулу всієї книги.

1. Активуйте свою книгу, до якої потрібно вставити пастир або колонтитул зі значенням комірки, а потім утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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, це вибране значення комірки було додано до всіх нижнього колонтитула робочого аркуша. Ви можете переглянути нижній колонтитул, клацнувши філе > друк. Дивіться знімок екрана:

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 для ExcelАвтора Вставте інформацію про робочу книгу , якщо ви встановили Kutools для Excel.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. клацання Kutools Plus > робочий зошит > Вставте інформацію про робочу книгу. Дивіться знімок екрана:
документ 1

2 В Вставте інформацію про робочу книгу діалогове вікно, перевірте інформацію, яку потрібно вставити в Інформація розділ, і перевірте Header or Нижній колонтитул як тобі до вподоби.

Порада: Ви можете вставити інформацію в три місця верхнього або нижнього колонтитула: в центрі, ліворуч або праворуч.
doc вставити шлях до книги 1

3. клацання Ok. Тоді можна перейти до вид > макет сторінки щоб переглянути заголовок.
документ 3

За допомогою Вставити інформацію про робочу книгу ви також можете вставити інформацію про файл у комірку або діапазон комірок. Клацніть тут, щоб дізнатись більше про цю утиліту.



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

doc спліт книги

Статті по темі:

Як вставити ім'я файлу або шлях до комірки / верхнього або нижнього колонтитула в Excel?

Як вставити та видалити верхній, нижній та нижній колонтитули у програмі Excel?


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (6)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Мені потрібно було вставити активний діапазон дат нарахування заробітної плати в кілька аркушів. Користувач відкриває аркуш дати нарахування заробітної плати, вводить діапазон дат і перед його друком оновлює всі аркуші в книзі. Ось як я можу вставити кілька комірок у діапазон із трохи меншою сумою з кодом 2010: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Every ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Діапазон("'Дата заробітної плати'!A1").Значення & vbCr & Діапазон("'Дата нарахування заробітної плати'!A2").Значення наступного кінця під
Цей коментар був мінімізований модератором на сайті
Я хочу вставити чотири клітинки в заголовок. Цей VB призначений лише для однієї клітинки. Як я можу це зробити. Спасибі
Цей коментар був мінімізований модератором на сайті
Ви можете спробувати об’єднати значення чотирьох клітинок rht в одну клітинку, а потім використати одну клітинку як заголовок.
Цей коментар був мінімізований модератором на сайті
Привіт! Чи є спосіб додати значення комірки, яке враховує застосовані фільтри? Наприклад... A1 = понеділок A2 = вівторок A3 = середа. Використання коду VBA для відображення клітинки A1 спочатку працюватиме, але як тільки я застосую фільтр за днями тижня, "верхнє" значення комірки більше не буде A1. Чи є спосіб підібрати змінну? Велике дякую,
Цей коментар був мінімізований модератором на сайті
Використовуючи ваш «код VBA: помістіть вказане значення комірки в заголовок усіх робочих аркушів», я хотів би, щоб значення було відформатовано: Tahoma, жирний, розмір шрифту 12.
Як це можна додати до вашого коду?
Цей коментар був мінімізований модератором на сайті
привіт,

Здається, це працює лише один раз.
Що робити, якщо значення комірки зміниться?
Чи є спосіб зв'язати клітинку, щоб заголовок змінювався, коли змінюється значення комірки?

У мене є робочий зошит, де є три аркуші.

Аркуш 1 з позначкою «Видалення аркуша» - аркуш, який ми відправляємо на склад з інформацією, що палаталізувати для замовлення
Аркуш 2 з позначкою «OA» – підтвердження мого замовлення клієнту, яке витягує більшість даних із першого аркуша, включаючи номер замовлення, який мені потрібно мати в заголовку. Тому я намагаюся зв’язати заголовок із коміркою на цій сторінці з номером замовлення (F5), який отримує його значення з (C7) на першому робочому аркуші ("Видалення аркуша")
Аркуш 3 з позначкою "Рахунок-фактура - Рахунок-фактура, який також витягує більшість тієї ж інформації з першого аркуша, який також потребує, щоб заголовок включав значення (F5) цього аркуша, взятого з (C7) у "Видалення аркуша"
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця