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

Як неодноразово друкувати рядки внизу кожної друкованої сторінки в Excel?

За замовчуванням Excel надає можливість користувачам неодноразово друкувати рядки вгорі. Але в деяких випадках, ви можете віддати перевагу надрукувати рядки неодноразово внизу сторінок, крім верхньої. Ця стаття покаже вам маленькі хитрощі.

Друкуйте рядки кілька разів унизу з кодом VBA


Друкуйте рядки кілька разів унизу з кодом VBA

Ви можете запустити наведений нижче код VBA, щоб вставити зазначений рядок у нижній колонтитул кожної сторінки. А потім ви можете надрукувати цей рядок кілька разів унизу кожної друкованої сторінки в Excel.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програми вікна.

2 В Microsoft Visual Basic для програми у вікні діалогового вікна натисніть Insert > Модулі. А потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.

Код VBA: Вставте вказаний рядок у колонтитули кожної друкованої сторінки

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3 Натисніть кнопку F5 клавіша для запуску коду. Потім з’явиться діалогове вікно Kutools для Excel, виберіть рядок, який потрібно повторно надрукувати внизу кожної друкованої сторінки, а потім натисніть OK кнопки.

Тепер зазначений вміст рядка додається до нижнього колонтитула кожної друкованої сторінки на поточному аркуші. Ви можете розпочати друк робочого аркуша.

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


Легко повторити заголовки в кожному n-му рядку в Excel:

Kutools для Excel's Вставити рядки заголовків Утиліта може допомогти вам швидко вставити рядок заголовка перед кожним n-м рядком у вибраному діапазоні в Excel, як показано на скріншоті нижче.
Завантажте та спробуйте зараз! (30-денна безкоштовна траса)


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (11)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую, що поділилися макросом. Це служить моїй меті. Дуже дякую.
Цей коментар був мінімізований модератором на сайті
Дуже дякую. Цей макрос відповідає моїм цілям, дякую автору та людині, яка поділилася макросом
Цей коментар був мінімізований модератором на сайті
Дякуємо, що поділилися макросом, щоб повторити рядки внизу сторінки. Чи можна змінити цей макрос, щоб він також повторював вибрані рядки з форматом.. У наданому макросі значення повторюються в нижній частині кожної сторінки, я з нетерпінням чекаю, щоб скопіювати формат також у нижній частині сторінки.
Цей коментар був мінімізований модератором на сайті
Дякую, що поділились. це будь-яка можливість використання коду VBA до повторюваного нижнього колонтитула, як і з опцією «друк заголовків», включаючи рядки та автоматичний номер сторінки. якщо можливо, допоможіть мені.
Цей коментар був мінімізований модератором на сайті
Дуже дякую...
Мені це дуже допомогло.
Цей коментар був мінімізований модератором на сайті
привіт,
Я намагаюся кілька разів, але це не працює. Порадьте, будь ласка.
Цей коментар був мінімізований модератором на сайті
Добрий день,
Дякуємо за коментар. Яку версію Office ви використовуєте?
Цей коментар був мінімізований модератором на сайті
Якщо можна, я використовую Office365, але він не працює. Безрезультатно спробував перевести перегляд у режим макета сторінки. Сподіваюся, ви можете допомогти. Спасибі.
Цей коментар був мінімізований модератором на сайті
привіт,

Коли я запускаю макрос і вибираю потрібні рядки, він не працює, коли я намагаюся надрукувати. Що це може бути?
Користуючись офісом 365.

Спасибі,
Цей коментар був мінімізований модератором на сайті
привіт,

Я намагався використовувати наведений вище код, але коли я намагаюся надрукувати код, він не працює. Я виконав усі вищезазначені кроки, і це не дає мені жодних помилок.
Я використовую Office 365. Будь-які поради?

Спасибо заранее,
Цей коментар був мінімізований модератором на сайті
Привіт Тим,
Привіт, вибраний рядок буде вставлено в нижній колонтитул сторінки, вам потрібно перейти до перегляду макета сторінки, щоб перевірити результат. Дякуємо за коментар.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL