Note: The other languages of the website are Google-translated. Back to English

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


strzałka niebieski prawy bąbelek 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:

doc wstaw numery stron 1

3. Kliknij nagłówek lub stopkę, w której chcesz wstawić numer strony, a następnie a Designu karta z Narzędzia nagłówków i stopek jest wyświetlany na Wstążce, a następnie kliknij Designu > Numer stronyzobacz zrzut ekranu:

doc wstaw numery stron 2

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:

doc wstaw numery stron 3

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.

Uwagi: 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:

doc wstaw numery stron 4


strzałka niebieski prawy bąbelek 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:

doc wstaw numery stron 5

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:

doc wstaw numery stron 6

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:

doc wstaw numery stron 7

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.


strzałka niebieski prawy bąbelek 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:

doc wstaw numery stron 8


strzałka niebieski prawy bąbelek 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:

doc wstaw numery stron 9

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:

doc wstaw numery stron 10

3. Następnie kliknij OK przycisk, wszystkie numery stron są usuwane ze skoroszytu jednocześnie.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół

 

Sortuj komentarze według
Komentarze (8)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam Użyłem numeru strony Wstaw do komórki z powyższym kodem VBA i działa to urokliwie. Mój arkusz może mieć 2 strony (2 w dół i 1 w poprzek), 4 strony (2 w dół i 2 w poprzek) lub 6 stron (2 w dół i 3 w poprzek). Wstawiłem kod do każdej komórki z 6, które wymagają wydrukowania numeru strony (wybierając kolejno komórki i uruchamiając VBA), adresy komórek to H1, H35, T1, T35, AF1, AF35. Teraz chciałbym dodać przycisk, aby odświeżyć te numery stron bez wpływu na dowolną komórkę, która może być aktywna, gdy odpowiedni użytkownik może ją uruchomić, obecnie muszę ponownie wybrać każdą komórkę po kolei i uruchomić VBA :( Pomoc byłaby ogromnie doceniam! Antoinette
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem makra VBA, ale otrzymuję błąd poza zakresem indeksu... Czy zrobiłem coś złego?
Ten komentarz został zminimalizowany przez moderatora na stronie
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Weryfikator Podriana... Gracias
Ten komentarz został zminimalizowany przez moderatora na stronie
terima kasih, kawan
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy mogę wiedzieć, czy mam zakres komórek, które chcę umieścić w numerach stron, co powinienem zmienić? Obecny VBA pozwala mi zmieniać tylko jeden po drugim.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy mogę wiedzieć, jak powinienem zmodyfikować powyższy VBA, który pozwala mi wykonać to w zakresie komórek w skoroszycie i za pomocą klawisza skrótu 1, aby zastosować wszystkie wybrane komórki?
Ten komentarz został zminimalizowany przez moderatora na stronie
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
Ten komentarz został zminimalizowany przez moderatora na stronie
Hay forma de convertir esta sub en una función?
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL