Jak opakovat řádky nad každým výtiskem kromě poslední stránky v aplikaci Excel?
V mnoha případech možná budete muset opakovat řádek záhlaví v horní části každé vytištěné stránky v aplikaci Excel. Jak ale opakovat řádky nad každým výtiskem kromě poslední stránky? Tento článek vám ukáže způsob, jak toho dosáhnout.
Opakujte řádky v horní části každého výtisku kromě poslední stránky s kódem VBA
Opakujte řádky v horní části každého výtisku kromě poslední stránky s kódem VBA
Níže uvedený kód VBA můžete spustit a vytisknout všechny stránky s opakovanými řádky nahoře kromě poslední stránky. Postupujte prosím následovně.
1. Otevřete list, který potřebujete opakovat nahoře kromě poslední stránky, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.
VBA: Opakujte řádky na každém výtisku kromě poslední stránky v aplikaci Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub
3. zmáčkni F5 klíč ke spuštění kódu, pak a Kutool pro Excel Zobrazí se dialogové okno, vyberte rozsah řádků, který je třeba opakovat nad každým výtiskem kromě poslední stránky, a poté klikněte na OK knoflík. Viz screenshot:
Poté se vytisknou všechny stránky v tomto listu s určitým opakováním řady nahoře kromě poslední stránky.
Související články:
- Jak opakovat hodnotu buňky, dokud se v aplikaci Excel nezobrazí nebo nedosáhne nové hodnoty?
- Jak opakovat znak n krát v buňce v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!