Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як неодноразово друкувати рядки внизу кожної друкованої сторінки в 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-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    IncredibleTim · 2 years ago
    Hi,

    I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
    I'm using office 365. Any tips ?

    Thanks in advance,
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Tim,
      Hi, the selected row will be inserted into the page footer, you need to switch to the Page Layout view to check for the result. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Tim · 2 years ago
    Hi,

    When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
    Using office 365.

    Thanks,
  • To post as a guest, your comment is unpublished.
    SVazquez · 2 years ago
    Hi,
    I am trying a few times but it's not working. Please advise.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Thank you for your comment. Which Office version do you use?
      • To post as a guest, your comment is unpublished.
        Ram · 1 years ago
        If I may, I use Office365 but its not working. Have tried putting the view on Page Layout Mode to no avail. Hope you can help. Thanks.
  • To post as a guest, your comment is unpublished.
    Shakeel Rao · 3 years ago
    Thank you So Muchhhh...
    It helped me very much.
  • To post as a guest, your comment is unpublished.
    vijay · 4 years ago
    Thanks for sharing.

    is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number.

    if possible please help me.
  • To post as a guest, your comment is unpublished.
    Vamsi · 5 years ago
    Thanks for sharing the macro to repeat the rows at the bottom of the page.

    Can this Macro be modified to Repeat selected Rows with the format as well..
    In the provided Macro only Values are repeated at the bottom of each page, I am looking forward to copy the format as well at the bottom of the page..
  • To post as a guest, your comment is unpublished.
    Prayerson Khristi · 5 years ago
    Thanks a lot.

    This macro serves my purpose,

    Thanks to the creator and the person who had shared Macro
  • To post as a guest, your comment is unpublished.
    Prayerson Khristi · 5 years ago
    Thanks for Macro sharing. It serves my purpose. Thanks a lot.