Jak použít různé záhlaví nebo zápatí na každou stránku v tabulce aplikace Excel?
Ve výchozím nastavení se při vkládání záhlaví nebo zápatí do listu použije obsah záhlaví nebo zápatí na všechny stránky. Pro mnoho lidí mohou mít různé stránky ve svých pracovních listech odlišný obsah. A mají tendenci rozlišovat tyto stránky podle obsahu záhlaví nebo zápatí po vytištění listu. Jak použít různé záhlaví nebo zápatí na každou stránku v listu? Metoda v tomto článku vám může pomoci.
Aplikujte různé záhlaví nebo zápatí na každou stránku s kódem VBA
Aplikujte různé záhlaví nebo zápatí na každou stránku s kódem VBA
Následující kód VBA vám pomůže použít různé záhlaví nebo zápatí na každou stránku listu. Postupujte prosím následovně.
1. zmáčkni Další + F11 současně otevřete Microsoft Visual Basic pro aplikacis oknem.
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 Kód okno. Viz snímek obrazovky:
Kód VBA: Použijte různé záhlaví na každou stránku v aplikaci Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Poznámky:
3. zmáčkni F5 klíč ke spuštění kódu. Pak Náhled Otevře se okno, klikněte prosím na Tisk tlačítko pro spuštění tisku stránek s různými záhlavími nebo zápatími.
Poznámka: Pokud jsou v listu 4 určené vytištěné stránky, musíte kliknout na Tisk čtyřikrát dokončíte celý tisk.
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!