Jak zastosować różne nagłówki lub stopki na każdej stronie w arkuszu kalkulacyjnym Excel?
Domyślnie podczas wstawiania nagłówka lub stopki do arkusza zawartość nagłówka lub stopki zostanie zastosowana do wszystkich stron. Dla wielu osób różne strony mogą mieć różną zawartość w arkuszach roboczych. I mają tendencję do rozróżniania tych stron na podstawie zawartości nagłówka lub stopki po wydrukowaniu arkusza. Jak zastosować różne nagłówki lub stopki na każdej stronie w arkuszu? Metoda opisana w tym artykule może ci pomóc.
Zastosuj różne nagłówki lub stopki na każdej stronie z kodem VBA
Zastosuj różne nagłówki lub stopki na każdej stronie z kodem VBA
Poniższy kod VBA może pomóc w zastosowaniu różnych nagłówków lub stopek na każdej stronie arkusza. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic dla aplikacjiokno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do pliku Code okno. Zobacz zrzut ekranu:
Kod VBA: zastosuj różne nagłówki na każdej stronie w programie 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
Uwagi:
3. wciśnij F5 klucz do uruchomienia kodu. A później Podgląd pojawi się okno, kliknij przycisk, aby rozpocząć drukowanie stron z różnymi nagłówkami lub stopkami.
Note: Jeśli w arkuszu są 4 określone wydrukowane strony, należy kliknąć przycisk cztery razy, aby zakończyć cały wydruk.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!