Jak wstawić numer strony do komórki / nagłówka / stopki w programie Excel?
Podczas drukowania pliku Excel może być konieczne wstawienie numerów stron na stronach, aby wydrukowany plik był schludny i czytelny. W tym artykule przedstawię kilka szybkich sztuczek, aby wstawić numery stron do komórki, nagłówka lub stopki.
Wstaw numer strony do nagłówka / stopki w jednym arkuszu
Wstaw numer strony do nagłówka / stopki w wielu arkuszach
Wstaw numer strony do komórki z kodem VBA
Usuń wszystkie numery stron jednocześnie w programie Excel
Wstaw numer strony do nagłówka / stopki w jednym arkuszu
Zwykle możemy szybko wstawić numery stron do nagłówka lub stopki, używając rozszerzenia Nagłówek stopka funkcji, wykonaj następujące czynności:
1. Przejdź do arkusza roboczego, w którym chcesz wstawić numery stron do nagłówka lub stopki.
2. Następnie kliknij wstawka > Nagłówek stopka, a twój arkusz będzie w formacie Układ strony zobacz, zobacz zrzut ekranu:
3. Kliknij nagłówek lub stopkę, w której chcesz wstawić numer strony, a następnie a Wnętrze karta z Narzędzia nagłówków i stopek jest wyświetlany na Wstążce, a następnie kliknij Wnętrze > Numer stronyzobacz zrzut ekranu:
4. Możesz zobaczyć symbol zastępczy &[Strona] pojawi się w wybranej sekcji, a następnie kliknij w dowolnym miejscu poza obszarem nagłówka lub stopki, aby wyświetlić numery stron. Zobacz zrzut ekranu:
5. Teraz możesz przywrócić normalny widok, klikając Zobacz i wysłuchaj > Normalna, a po wydrukowaniu tego arkusza zobaczysz numery stron, które zostały wstawione do wybranego nagłówka lub stopki.
Note: Jeśli chcesz, aby numery stron były wyświetlane w formacie 1 z 15, 2 z 15, wystarczy wpisać to bezpośrednio & [Strona] z & [Strony] w polu nagłówka lub stopki, zobacz zrzut ekranu:
Wstaw numer strony do nagłówka / stopki w wielu arkuszach
Powyższa metoda może pomóc ci wstawić numery stron do jednego arkusza roboczego, jeśli chcesz wstawić numery stron do wszystkich arkuszy roboczych skoroszytu, aby wszystkie strony były numerowane w kolejności sekwencyjnej, wykonaj następujące czynności:
1. Wybierz wszystkie karty arkuszy, a następnie przejdź do Układ strony kartę i kliknij Przycisk uruchamiania okna dialogowego ikona w Ustawienia strony grupa, patrz zrzut ekranu:
2, w Ustawienia strony kliknij Nagłówek stopka kartę, a następnie kliknij Nagłówek niestandardowy or Stopka niestandardowa aby przejść do ustawienia żądanego nagłówka lub stopki, zobacz zrzut ekranu:
3. I w Nagłówek or Footer W oknie dialogowym określ lokalizację, w której zostaną wstawione numery stron, klikając wewnątrz Lewa sekcja:, Sekcja środkowa:lub Prawa sekcja: w razie potrzeby, a następnie kliknij Wstaw numer strony ikona i symbol zastępczy &[Strona] pojawia się. Zobacz zrzut ekranu:
Uwaga: Wprowadź to & [Strona] z & [Strony] w polu nagłówka lub stopki, jeśli chcesz, aby numery stron wyświetlane jako 1 z 45, 2 z 45…
4. Następnie kliknij OK > OK aby zamknąć okna dialogowe, podczas drukowania tego skoroszytu w podglądzie wydruku można zobaczyć, że wszystkie numery stron są wstawiane do nagłówka lub stopki w kolejności sekwencyjnej.
Wstaw numer strony do komórki z kodem VBA
Wstawienie numerów stron do nagłówka lub stopki jest łatwe, ale jeśli chcesz wstawić numery stron do komórki arkusza, nie ma bezpośredniego sposobu, aby to zrobić. Poniższy kod VBA może pomóc w rozwiązaniu tego problemu.
1. Kliknij komórkę, w której chcesz wyświetlić numer strony tej komórki.
2. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
3. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: wstaw bieżący numer strony do komórki:
Sub pagenumber()
'updateby Extendoffice 20160506
Dim xVPC As Integer
Dim xHPC As Integer
Dim xVPB As VPageBreak
Dim xHPB As HPageBreak
Dim xNumPage As Integer
xHPC = 1
xVPC = 1
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
xHPC = ActiveSheet.HPageBreaks.Count + 1
Else
xVPC = ActiveSheet.VPageBreaks.Count + 1
End If
xNumPage = 1
For Each xVPB In ActiveSheet.VPageBreaks
If xVPB.Location.Column > ActiveCell.Column Then Exit For
xNumPage = xNumPage + xHPC
Next
For Each xHPB In ActiveSheet.HPageBreaks
If xHPB.Location.Row > ActiveCell.Row Then Exit For
xNumPage = xNumPage + xVPC
Next
ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub
4. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a numer strony tej komórki jest wyświetlany w wybranej komórce, patrz zrzut ekranu:
Usuń wszystkie numery stron jednocześnie w programie Excel
Aby usunąć wszystkie numery stron, możesz wykonać następujące czynności:
1. Wybierz wszystkie karty arkuszy i przejdź do Układ strony na wstążce, a następnie kliknij Przycisk uruchamiania okna dialogowego ikona w Ustawienia strony grupa, patrz zrzut ekranu:
2, w Ustawienia strony okno dialogowe, kliknij Nagłówek stopka kartę, a następnie wybierz (None) z Nagłówek or Footer rozwijana lista, zobacz zrzut ekranu:
3. Następnie kliknij OK przycisk, wszystkie numery stron są usuwane ze skoroszytu jednocześnie.
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!
