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

 Jak automatycznie zwiększać wartość komórki po każdym drukowaniu?

Przypuśćmy, że mam arkusz roboczy do wydrukowania w 100 egzemplarzach, komórka A1 to numer czeku Firma-001, teraz chciałbym, aby liczba ta wzrosła o 1 po każdym wydruku. Oznacza to, że kiedy wydrukuję drugi egzemplarz, numer zostanie automatycznie zwiększony do Company-002, trzeci egzemplarz to numer Company-003… sto egzemplarzy, numer to Company-100. Czy jest jakaś sztuczka, aby szybko i prawdopodobnie rozwiązać ten problem w programie Excel?

Automatycznie zwiększaj wartość komórki po każdym wydrukowaniu z kodem VBA


strzałka niebieski prawy bąbelek Automatycznie zwiększaj wartość komórki po każdym wydrukowaniu z kodem VBA

Zwykle nie ma bezpośredniego sposobu rozwiązania tego zadania w programie Excel, ale tutaj utworzę kod VBA, aby sobie z tym poradzić.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Automatyczny przyrost wartości komórki po każdym drukowaniu:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wprowadzeniu liczby kopii, które chcesz wydrukować bieżącego arkusza roboczego, patrz zrzut ekranu:

inkrementacja doc podczas drukowania 1

4, Kliknij OK przycisk, a bieżący arkusz roboczy jest teraz drukowany, a jednocześnie drukowane arkusze są ponumerowane Firma-001, Firma-002, Firma-003… w komórce A1 według potrzeb.

Uwagi: W powyższym kodzie komórka A1 zostaną wstawione numery sekwencji, które zamówiłeś, i oryginalna wartość komórki A1 zostaną usunięte. I "Firma-00”To numer kolejny, możesz go zmienić według swoich potrzeb.


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 (51)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Ten kod jest niesamowity, jest dokładnie tym, czego potrzebuję, jednak zastanawiałem się, czy jest sposób na rozpoczęcie drukowania od numeru, który jest wpisany w komórce "A1"? Na przykład, jeśli wydrukowałem 100 egzemplarzy, przy następnym nakładzie będę musiał drukować od numeru 101 i liczyć od tego miejsca. Próbowałem kilku korekt kodu, ale wydaje się, że bierze numer wpisany w komórce, tj. 101, dodaje 1, a reszta wydruków jest przyklejona do tej jednej liczby, tj. 102... Twoja pomoc byłaby bardzo mile widziana : -)
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeśli nie znalazłeś jeszcze rozwiązania, możesz edytować wiersz 17 kodu na następujący: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
To doda +1 do numeru, który masz w komórce A1.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nie wysyła do mojej drukarki
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impact de 10 egzemplarzy. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si możliwe na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'optionimpression. Czy to możliwe?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est możliwy par exemple A1=153 et faire une impresion de 10 egzemplarzy. donc je récupéré 10 impress numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi si Possible ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option wrażenie tout simplement.

Dziękuję za pomoc
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Kaju,
Aby rozwiązać problem, zastosuj poniższy kod:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Spróbuj, mam nadzieję, że może ci to pomóc, jeśli masz inny problem, skomentuj tutaj.
Ten komentarz został zminimalizowany przez moderatora na stronie
Znajdź załączone zmodyfikowane kody.

A oto w tekście:
Sub-InkrementujDrukuj()
„aktualizacja do” Extendoffice
Przyciemnij xZakończ jako wariant
Dim xStart jako wariant
Dim xScreen jako Boolean
Dim I tak długo
On Error Resume Next
Wejście:
xStart = Application.InputBox("Wprowadź pierwszą liczbę:", "Kutools for Excel")
xEnd = Application.InputBox("Wprowadź ostatnią liczbę:", "Kutools for Excel")
Jeśli TypeName(xCount) = "Boolean" to wyjdź z Sub
If (xStart = "") Lub (Not IsNumeric(xStart)) Lub (xStart < 1) Wtedy
MsgBox "Wprowadzono błąd, wprowadź ponownie", vbInformation, "Kutools for Excel"
Idź do LInput
Więcej
xScreen = Aplikacja.Aktualizacja ekranu
Application.ScreenUpdating = Fałsz
Dla I = xStart To xEnd
ActiveSheet.Range("A1").Value = "Firma-00" & I
Aktywny arkusz.Wydruk
Dalej
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Potrzebuję numerów seryjnych jak IA1-055242, IA1-055243, IA1-055244.....
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za opublikowanie tego, jest to bardzo pomocne. Moje pytanie brzmi: mam 2 różne kody kreskowe, które należy zwiększyć na jednej stronie, jak mogę zmodyfikować kod, aby to zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Przepraszam, że pytam o to w osobnym poście... Moje numery seryjne zaczynają się od ZERA, ale kiedy uruchamiam program, eliminuje zera. Próbowałem przekonwertować pole liczbowe na tekst, ale to nie naprawiło. Inne pomysły?
Ten komentarz został zminimalizowany przez moderatora na stronie
R-Click Cell, Format, Custom, gdzie jest napisane „Ogólne”, zastąp to tyloma zerami, ile będzie Twój numer seryjny. Wymusi to ilość zer potrzebnych przed numerem seryjnym. Jeśli mam grupę numerów seryjnych składających się z 10-cyfrowych numerów seryjnych, wpisuję 0000000000 w polu Typ, aby wyświetlić „0004563571” w polu numeru seryjnego.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Art. Próbowałem tego, ale kod kreskowy eliminował wiodące zera… nawet po wykonaniu niestandardowego formatu liczb.
Ten komentarz został zminimalizowany przez moderatora na stronie
mój numer seryjny zaczyna się od 227861 jak mogę drukować z
Ten komentarz został zminimalizowany przez moderatora na stronie
wydrukowane jak 30 kopii, ale teraz nie mogę drukować, uruchamiałem skrypt wiele razy, ale nie działa, nic nie rób :(
Ten komentarz został zminimalizowany przez moderatora na stronie
dziękuję za powyższe, naprawdę pomocne. czy można zapisać i zapamiętać ostatnią wartość?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Pieterze,
Aby zapisać i zapamiętać ostatnią wydrukowaną wartość podczas następnego drukowania, należy zastosować następujący kod VBA:

Sub-InkrementujDrukuj()
Dim xCount jako wariant
Dim xScreen jako Boolean
Dim I tak długo
Dim xM tak długo
Dim xMNWS jako arkusz
Dim xAWS jako arkusz roboczy
On Error Resume Next
Wejście:
xCount = Application.InputBox("Podaj liczbę kopii, które chcesz wydrukować:", "Kutools for Excel")
Jeśli TypeName(xCount) = "Boolean" to wyjdź z Sub
If (xCount = "") Lub (Not IsNumeric(xCount)) Lub (xCount < 1) Wtedy
MsgBox "wprowadzono błąd, wprowadź ponownie", vbInformation, "Kutools for Excel"
Idź do LInput
Więcej
xScreen = Aplikacja.Aktualizacja ekranu
Ustaw xAWS = Aktywny arkusz
W przypadku błędu przejdź do arkusza EMarkNumber
Ustaw xMNWS = Arkusze("IncrementPrint_MarkNumberSheet")
Arkusz z numerami EMark:
Jeśli xMNWS jest niczym, to
Ustaw xMNWS = Application.Worksheets.Add (Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumber Sheet"
xMNWS.Zakres("A1").Wartość = 0
x M = 0
xMNWS.Visible = xlArkuszBardzoUkryty
Więcej
xM = xMNWS.Zakres("A1").Wartość
End If
Application.ScreenUpdating = Fałsz
Dla I = 1 do xCount
xM = xM + 1
xAWS.Range("A1").Value = "Firma-00" & xM
xAWS.Wydruk
Dalej
xMNWS.Zakres("A1").Wartość = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Jeśli chcesz zresetować wydrukowany numer do numeru domyślnego, najpierw uruchom poniższy kod, a następnie wykonaj powyższy kod, aby wydrukować.

Sub IncrementPrint_Reinstall()
Dim xMNWS jako arkusz
W przypadku błędu przejdź do arkusza EMarkNumber
Ustaw xMNWS = Arkusze("IncrementPrint_MarkNumberSheet")
Arkusz z numerami EMark:
Jeśli nie xMNWS to nic, to
Application.DisplayAlerts = False
xMNWS.Visible = xlUkryty Arkusz
xMNWS.Usuń
Application.DisplayAlerts = True
End If
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam dziękuję za ten kod.. mam pytanie. Użyłem tego kodu, ale serie skaczą jak 0071,0072,0073. stało się jak 3x między seriami 1-100. Więc zamknąłem vba bez zapisywania, ponownie zainstaluj kod, ale drukuje ostatnią zapisaną serię (0032). Moje pytanie brzmi: jak mogę drukować w sposób ciągły bez przeskakiwania serii i jak mogę ponownie wydrukować, zaczynając od 101? naprawdę doceni twoją odpowiedź. Przepraszam za to. Nie jestem programistą, mam nadzieję, że rozumiesz. Dziękuję Ci! 
Ten komentarz został zminimalizowany przez moderatora na stronie
dziękuję za opublikowanie tego, jest to bardzo pomocne. Moje pytanie brzmi: mam 2 różne kody kreskowe, które należy zwiększyć na jednej stronie, jak mogę zmodyfikować kod, aby to zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Desmondzie,
Jeśli masz 2 miejsca na jednej stronie (np. 2 kupony lub 2 szablony / 2 kupony itp.), możesz spróbować użyć poniższego kodu. (Zakładając, że pierwszy i drugi kod kreskowy znajdują się w komórkach „A1” i „A2” tej samej strony, ten kod zwiększy wartości, takie jak Firma-1 i Firma-20 na pierwszej stronie oraz Firma-001 i Firma-002 na drugiej stronie itd. Możesz dowolnie edytować numer komórki i nazwę firmy w wierszach 003, 004, 20, 21 i 23 kodu. 
Poprosi Cię również o podanie numeru początkowego i końcowego (dzięki geniusmanowi za tę część kodu). Więc na przykład twój numer startowy. jest 1 i kończy się nr. 8, wydrukuje 4 strony po 1,2 na 1 stronie, 3,4 na 2 stronie, 5,6 na 3 stronie i ostatecznie 7,8 na 4 stronie. Mam nadzieję, że pomoże tobie lub każdemu, kto szuka tego rodzaju potrzeby/wymagania. 
Zmodyfikowany kod:---------------------------------------------------------- ------------Dodatkowe drukowanie przyrostu()
„aktualizacja do” Extendoffice
Przyciemnij xZakończ jako wariant
Dim xStart jako wariant
Dim xScreen jako Boolean
Dim I tak długo
On Error Resume Next
Wejście:
xStart = Application.InputBox("Wprowadź pierwszą liczbę:", "Kutools for Excel")
xEnd = Application.InputBox("Wprowadź ostatnią liczbę:", "Kutools for Excel")
Jeśli TypeName(xCount) = "Boolean" to wyjdź z Sub
If (xStart = "") Lub (Not IsNumeric(xStart)) Lub (xStart < 1) Wtedy
MsgBox "Wprowadzono błąd, wprowadź ponownie", vbInformation, "Kutools for Excel"
Idź do LInput
Więcej
xScreen = Aplikacja.Aktualizacja ekranu
Application.ScreenUpdating = Fałsz
Dla I = xStart To xEnd
Jeśli I Mod 2 = 0 Wtedy
ActiveSheet.Range("A1").Value = "Firma-00" & I + 1
ActiveSheet.Range("A20").Value = "Firma-00" & I
Więcej
ActiveSheet.Range("A20").Value = "Firma-00" & I + 1
ActiveSheet.Range("A1").Value = "Firma-00" & I
Aktywny arkusz.Wydruk
End If
Dalej
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

-------------------------------------------------- -------------------------------------------------- -----Dzięki, RNS
Ten komentarz został zminimalizowany przez moderatora na stronie
Moja komórka to I3, a numer to 2298, kiedy próbuję (kod VBA: Automatyczne zwiększanie wartości komórki po każdym wydrukowaniu :) daje mi 22981 jak mogę uzyskać 2298,2299,2300
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Jennifer,
Aby rozwiązać swój problem, zastosuj następujący kod VBA:
Uwaga: zmień tekst i numer prefiksu na własne.

Sub IncrementDrukuj_Num()
Dim xCount jako wariant
Dim xScreen jako Boolean
Dim I tak długo
Dim xStr jako ciąg
Dim xInt jako liczba całkowita
On Error Resume Next
xStr = "Firma-" 'tekst prefiksu
xInt = 2291 'liczba
Wejście:
xCount = Application.InputBox("Podaj liczbę kopii, które chcesz wydrukować:", "Kutools for Excel")
Jeśli TypeName(xCount) = "Boolean" to wyjdź z Sub
If (xCount = "") Lub (Not IsNumeric(xCount)) Lub (xCount < 1) Wtedy
MsgBox "wprowadzono błąd, wprowadź ponownie", vbInformation, "Kutools for Excel"
Idź do LInput
Więcej
xScreen = Aplikacja.Aktualizacja ekranu
Application.ScreenUpdating = Fałsz
Dla I = 1 do xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
Aktywny arkusz.Wydruk
Dalej
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
End Sub

Spróbuj, mam nadzieję, że ci pomoże!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, czy możesz mi w tym pomóc? Chcę, aby xINT miał więcej niż 5 cyfr. Za każdym razem, gdy wpisuję liczbę z 6 cyframi, liczba wraca do 1. Jak mogę temu zapobiec?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, bardzo interesujące, chociaż szukam innego rozwiązania, którego nie mogłem znaleźć, a nawet gdybym próbował dostosować kod, nie mogłem do tej pory osiągnąć. Idąc za twoim przykładem, musiałbym wydrukować tę samą stronę 100 razy, na przykład do tego samego pliku PDF i na każdej stronie zwiększono numer strony. Jak powiedziałem, wypróbowałem metodę sortowania, ale jak zrozumiałem, pozwala ona drukować razem, jeśli potrzebujesz wielu kopii tego samego wydruku. Z góry dziękuję Giuseppe
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, ten kod działa doskonale, ale po wartości komórki 32767 znowu wraca do 1. Po tej wartości drukuje od numeru 1.
Ten komentarz został zminimalizowany przez moderatora na stronie
bardzo dziękuję, u mnie działa. I udaje mi się wprowadzić kilka drobnych zmian do moich potrzeb. Naprawdę doceniam udostępnianie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Jennifer, spróbuj tego
Sub-InkrementujDrukuj()
„aktualizacja do” Extendoffice 20160530
Dim xCount jako wariant
Dim xScreen jako Boolean
Dim I tak długo
On Error Resume Next
Wejście:
xCount = Application.InputBox("Podaj liczbę kopii, które chcesz wydrukować:", "Kutools for Excel")
Jeśli TypeName(xCount) = "Boolean" to wyjdź z Sub
If (xCount = "") Lub (Not IsNumeric(xCount)) Lub (xCount < 1) Wtedy
MsgBox "wprowadzono błąd, wprowadź ponownie", vbInformation, "Kutools for Excel"
Idź do LInput
Więcej
xScreen = Aplikacja.Aktualizacja ekranu
Application.ScreenUpdating = Fałsz
Dla I = 1 do xCount

Aktywny arkusz.Wydruk
ActiveSheet.Range("J18").Value = AktywnySheet.Range("J18").Value + 1
Dalej
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki miliona
Ten komentarz został zminimalizowany przez moderatora na stronie
Działa dobrze do drukowania przyrostowych #. Jak drukować co 5, gdy jest to potrzebne?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób na wybranie, jakie wartości chcę wydrukować? na przykład wydrukowałem sekwencję od 1 do 30, ale muszę ponownie wydrukować sekwencję od 15 do 19.
Ten komentarz został zminimalizowany przez moderatora na stronie
hej, chcę zmienić liczbę komórek K11 po wydrukowaniu na 1-2-3-4-5-6 itp. pls możesz pomóc? a także powiedz mi, jak wywołać tę funkcję, pls help
Ten komentarz został zminimalizowany przez moderatora na stronie
Zastanawiałem się, jak zrobić małą zmianę, aby wydrukowała 1 z 10, 2 z 10, 3 z 10 itd.
W przeciwnym razie działa to świetnie. Dzięki.
Ten komentarz został zminimalizowany przez moderatora na stronie
cześć, nazywam się suresh mam dane w formacie excel bez numeru seryjnego, który lubi przykład listu przewozowego. muszę wziąć to jako wydruk 100 stron i muszę wydrukować numer seryjny, co kiedykolwiek potrzebuję, od 4 cyfr, ale podczas drukowania muszę to zrobić ręcznie. Czy możesz wyjaśnić, kto drukować, automatycznie generować kod numeru seryjnego podczas drukowania?
Ten komentarz został zminimalizowany przez moderatora na stronie
Świetny !! Nie jestem programistą, ale udało mi się zmienić ref Cell i numerację uniq, którą chciałem. Świetnie pracował dla mnie Niech cię Bóg błogosławi!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można również dodać do tego kodu, aby 2 kopie były drukowane automatycznie?
Ten komentarz został zminimalizowany przez moderatora na stronie
Myślę, że możesz zmienić tę część:ActiveSheet.Range("A1").Value = " Firma-00" & I
Aktywny arkusz.Wydruk

do
ActiveSheet.Range("A1").Value = "Firma-00" & I
Aktywny arkusz.Wydruk
Aktywny arkusz.Wydruk

zdobyć 2 egzemplarze każdego z nich.
Ten komentarz został zminimalizowany przez moderatora na stronie
Zastanawiałem się, czy możesz po prostu wydrukować plik po ponownym otwarciu i nadal jest on zgodny z kolejnym numerem?
To, co aktualnie robię, to za każdym razem, gdy otwieram plik, ALT + F11, a następnie F5 i wskazuje liczbę kopii. Następnie wydrukuje plik z poprawną numeracją, a następnie po prostu zapisze ponownie. a kiedy otworzę ponownie, wystarczy zrobić ten sam krok.
Jeśli istnieje kod, w którym można go po prostu wydrukować za każdym razem, gdy otwierasz plik, a nadal będzie on postępować zgodnie z numeracją sekwencyjną?
z góry dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Zastanawiałem się, czy możesz po prostu wydrukować plik po ponownym otwarciu i nadal jest on zgodny z kolejnym numerem?

To, co aktualnie robię, to za każdym razem, gdy otwieram plik, ALT + F11, a następnie F5 i wskazuje liczbę kopii. Następnie wydrukuje plik z poprawną numeracją, a następnie po prostu zapisze ponownie. a kiedy otworzę ponownie, wystarczy zrobić ten sam krok.

Jeśli istnieje kod, w którym można go po prostu wydrukować za każdym razem, gdy otwierasz plik, a nadal będzie on postępować zgodnie z numeracją sekwencyjną?

z góry dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo za udostępnienie powyższego kodu. Jest to bardzo pomocne dla każdego. Czy możemy dodać trochę więcej kodu, aby zwiększyć 8 liczb zamiast 1 po wydrukach? Czekam na Twoją odpowiedź. Dzięki
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
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