Jak wydrukować wiele kopii z kolejnymi numerami stron?

Czy kiedykolwiek próbowałeś wydrukować wiele kopii jednego arkusza z kolejnymi numerami stron? Oznacza to wydrukowanie 10 kopii jednego arkusza i wypełnienie komórki A1 w pierwszej kopii numerem 1, w drugiej kopii numerem 001…, a w dziesiątej kopii numerem 2. W programie Excel nie ma wbudowanej funkcji, której można rozwiązać w tej pracy, ale w tym artykule przedstawiam kod makra, który pomoże Ci szybko wydrukować wiele kopii z kolejnymi numerami stron w programie Excel.

Drukuj kopie z różnymi numerami według kodu VBA

Drukuj kopie z różnymi numerami według kodu VBA

Wykonaj poniższe czynności, aby wydrukować wiele kopii jednego arkusza z numerami sekwencji według kodu VBA

1. Włącz arkusz, który chcesz wydrukować, i naciśnij klawisze Alt + F11, aby otworzyć plik Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Modułi wklej poniższy kod do pliku Moduł scenariusz. Zobacz zrzut ekranu:

VBA: Drukuj kopie z kolejnymi numerami stron.

Sub PrintCopiesWithNumbers()
'UpdatebyEntendoffice20161031
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 10
        Range("A1").Value = "'00" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Totally print" & (i - 1) &"copies", vbInformation, "Kutools for Excel"
End Sub

Note: w kodzie, A1 to komórka, w której chcesz umieścić numer kolejny, 1 Aby 10 wskazuje, że należy wydrukować 10 kopii, a „'00” i ja to format sekwencji, możesz go zmienić według potrzeb.

3. naciśnij F5 aby uruchomić kod, i pojawi się okno dialogowe przypominające, że należy wydrukować 10 kopii. Kliknij OK aby zamknąć okno dialogowe, każda drukowana kopia ma swój własny numer kolejny.

Najlepsze narzędzia biurowe

🤖	Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
	Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
	Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
	Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
	Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
	Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
	15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Czytaj więcej... Darmowe pobieranie...

---

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!

Czytaj więcej... Darmowe pobieranie...