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

 Kako samodejno povečati vrednost celice po vsakem tiskanju?

Recimo, da imam stran delovnega lista, ki jo je treba natisniti v 100 izvodih, celica A1 je kontrolna številka Company-001, zdaj bi rad, da se število poveča za 1 po vsakem izpisu. To pomeni, da ko natisnem drugo kopijo, se številka samodejno poveča na Company-002, tretja kopija pa številka Company-003… sto kopija, številka bo Company-100. Ali obstaja kakšen trik za hitro in mogoče rešitev te težave v Excelu?

Samodejno priraste vrednost celice po vsakem tiskanju s kodo VBA


puščica modri desni mehurček Samodejno priraste vrednost celice po vsakem tiskanju s kodo VBA

Običajno te naloge v Excelu ni mogoče rešiti neposredno, toda tukaj bom ustvaril kodo VBA, ki bo obravnavala to težavo.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Samodejno priraste vrednost celice po vsakem tiskanju:

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da vnesete število kopij, ki jih želite natisniti na trenutnem delovnem listu, glejte sliko zaslona:

povečanje dokumenta pri tiskanju 1

4. Kliknite OK in vaš trenutni delovni list se zdaj tiska, hkrati pa so natisnjeni delovni listi oštevilčeni Company-001, Company-002, Company-003… v celici A1, kot potrebujete.

Opombe: V zgornji kodi celica A1 bodo vstavljene zaporedne številke, ki ste jih naročili, in izvirna vrednost celice v A1 bo očiščeno. In “Podjetje-00"Je zaporedna številka, jih lahko spremenite glede na vaše potrebe.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (51)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda je neverjetna, to je točno tisto, kar potrebujem, vendar me je zanimalo, ali obstaja način, da začnem tiskati s številke, ki je vpisana v celico "A1"? Na primer, če sem natisnil 100 izvodov, bom moral pri naslednjem tiskanju natisniti od številke 101 in od tam šteti. Preizkusil sem nekaj prilagoditev kode, vendar se zdi, da vzame samo številko, vneseno v celico, tj. 101, doda 1, nato pa se preostali natisi zataknejo s to eno številko, tj. 102... Zelo bi hvaležni za vašo pomoč: -)
Ta komentar je moderator na spletnem mestu minimiziral
Če še niste našli rešitve, lahko uredite vrstico 17 kode na to: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
To bo dodalo +1 številki, ki jo imate v celici A1.
Ta komentar je moderator na spletnem mestu minimiziral
Ne pošlje na moj tiskalnik
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une print de 10 kopij. 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 possible na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'optionpress. Ali je možno?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

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

je voudrais si c'est possible par exemple A1=153 et faire unepress de 10 copies. donc je récupéré 10 prikazov 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'optionpress tout simplement.

Hvala za vašo pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni kaji,
Če želite rešiti svojo težavo, uporabite spodnjo kodo:
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

Prosimo, poskusite, upam, da vam lahko pomaga, če imate še kakšno težavo, komentirajte tukaj.
Ta komentar je moderator na spletnem mestu minimiziral
Poiščite priložene spremenjene kode.

In tukaj je v besedilu:
Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd kot različica
Dim xStart kot različica
Zatemni xScreen kot Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Application.InputBox("Prosim, vnesite prvo številko:", "Kutools for Excel")
xEnd = Application.InputBox("Vnesite zadnjo številko:", "Kutools za Excel")
Če TypeName(xCount) = "Boolean", Nato zapustite Sub
Če (xStart = "") Ali (Not IsNumeric(xStart)) Ali (xStart < 1) Potem
MsgBox "Vnešena je napaka, vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Napačno
Za I = xStart To xEnd
ActiveSheet.Range("A1").Value = "Podjetje-00" & I
ActiveSheet.PrintOut
Naslednji
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Konec Če
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Potrebujem serijske številke, kot so IA1-055242, IA1-055243, IA1-055244 .....
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, ker ste to objavili, je zelo koristno. Moje vprašanje je naslednje: imam 2 različni črtni kodi, ki ju je treba povečati na eni strani, kako lahko spremenim kodo, da to storim?
Ta komentar je moderator na spletnem mestu minimiziral
Oprostite, da to sprašujem v ločenem prispevku... Moje serijske številke se začnejo z NULO, a ko zaženem program, odstrani ničle. Poskušal sem pretvoriti številsko polje v besedilo, vendar to ni popravilo. Druge ideje?
Ta komentar je moderator na spletnem mestu minimiziral
R-kliknite Cell, Format, Custom, kjer piše »Splošno«, to zamenjajte s toliko ničel, kolikor bo vaša serijska številka. To bo prisililo količino ničel, potrebnih pred vašo serijsko številko. Če imam skupino serijskih številk, ki so 10-mestne serijske številke, vnesem 0000000000 v polje Vrsta, da se v polju serijska številka prikaže '0004563571'.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala Art. To sem res poskusil, vendar je črtna koda še naprej odpravljala vodilne ničle... tudi potem, ko sem naredila obliko številk po meri.
Ta komentar je moderator na spletnem mestu minimiziral
moja serijska številka se začne z 227861 kako lahko natisnem iz
Ta komentar je moderator na spletnem mestu minimiziral
natisnjeno kot 30 kopij, vendar zdaj ne morem natisniti, velikokrat sem zagnal skript, vendar ne deluje, ne delajte ničesar :(
Ta komentar je moderator na spletnem mestu minimiziral
hvala za zgornje, res v pomoč. ali je mogoče shraniti in zapomniti zadnjo vrednost
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Pieter,
Če želite ob naslednjem tiskanju shraniti in zapomniti zadnjo natisnjeno vrednost, uporabite naslednjo kodo VBA:

Sub IncrementPrint()
Dim xCount As Varianta
Zatemni xScreen kot Boolean
Dim I As Long
Dim xM Tako dolgo
Dim xMNWS kot delovni list
Dim xAWS kot delovni list
On Error Resume Next
LInput:
xCount = Application.InputBox("Vnesite število kopij, ki jih želite natisniti:", "Kutools for Excel")
Če TypeName(xCount) = "Boolean", Nato zapustite Sub
Če (xCount = "") Ali (Not IsNumeric(xCount)) Ali (xCount < 1) Potem
MsgBox "napaka vnesena, prosim vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na LInput
Else
xScreen = Application.ScreenUpdating
Nastavite xAWS = ActiveSheet
Ob napaki Pojdite na EMarkNumberSheet
Nastavite xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Če xMNWS ni nič potem
Nastavite xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Vrednost = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Else
xM = xMNWS.Razpon("A1").Vrednost
Konec Če
Application.ScreenUpdating = Napačno
Za I = 1 do xCount
xM = xM + 1
xAWS.Range("A1").Value = "Podjetje-00" & xM
xAWS.PrintOut
Naslednji
xMNWS.Razpon("A1").Vrednost = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Konec Če
End Sub

Če morate natisnjeno številko ponastaviti na privzeto številko, najprej zaženite spodnjo kodo in nato izvedite zgornjo kodo za tiskanje.

Sub IncrementPrint_Reinstall()
Dim xMNWS kot delovni list
Ob napaki Pojdite na EMarkNumberSheet
Nastavite xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Če ne, potem je xMNWS nič
Application.DisplayAlerts = False
xMNWS.Vidno = xlSheetHidden
xMNWS.Izbriši
Application.DisplayAlerts = True
Konec Če
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala za to kodo. Imam vprašanje. Uporabil sem to kodo, vendar serije skačejo kot 0071,0072,0073. zgodilo kot 3x med serijami 1-100. Zato sem zaprl vba brez shranjevanja, ponovno namestite kodo, vendar je natisnil zadnjo serijo, ki je bila shranjena (0032). Moje vprašanje je, kako lahko tiskam neprekinjeno, ne da bi serija preskočila in kako lahko ponovno natisnem, začenši s 101? bo res cenil vaš odgovor. oprosti za to. Nisem programer, upam, da razumete. Hvala vam! 
Ta komentar je moderator na spletnem mestu minimiziral
hvala, ker ste to objavili, je zelo koristno. Moje vprašanje je naslednje: imam 2 različni črtni kodi, ki ju je treba povečati na eni strani, kako lahko spremenim kodo, da to naredim?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Desmond,
Če imate 2 mesti na eni strani (na primer 2 kupona ali 2 predlogi / 2 kupona itd.), lahko poskusite uporabiti spodnjo kodo. (Ob predpostavki, da sta vaša 1. črtna koda in 2. črtna koda v celicah "A1" in "A20" na isti strani, bo ta koda povečala vrednosti, kot sta Company-001 in Company-002 na prvi strani ter Company-003 in Company-004 na drugi strani in tako naprej. Številko celice in ime podjetja lahko uredite po želji v vrsticah 20, 21, 23, 24 in 28,29, XNUMX kode. 
Prosil vas bo tudi, da vnesete začetno in končno številko (Hvala geniusmanu za ta del kode). Tako na primer vaša začetna št. je 1 in končna št. 8 bo natisnil 4 strani po 1,2 na 1. strani, 3,4 na 2. strani, 5,6 na 3. strani in končno 7,8 na 4. strani. Upam, da bo pomagalo vam ali komu, ki išče to vrsto potreb/zahtev. 
Spremenjena koda:------------------------------------------------------- ------------------Sub IncrementPrint()
'updateby Extendoffice
Dim xEnd kot različica
Dim xStart kot različica
Zatemni xScreen kot Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Application.InputBox("Prosim, vnesite prvo številko:", "Kutools for Excel")
xEnd = Application.InputBox("Vnesite zadnjo številko:", "Kutools za Excel")
Če TypeName(xCount) = "Boolean", Nato zapustite Sub
Če (xStart = "") Ali (Not IsNumeric(xStart)) Ali (xStart < 1) Potem
MsgBox "Vnešena je napaka, vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Napačno
Za I = xStart To xEnd
Če je I Mod 2 = 0 Potem
ActiveSheet.Range("A1").Value = "Podjetje-00" & I + 1
ActiveSheet.Range("A20").Value = "Podjetje-00" & I
Else
ActiveSheet.Range("A20").Value = "Podjetje-00" & I + 1
ActiveSheet.Range("A1").Value = "Podjetje-00" & I
ActiveSheet.PrintOut
Konec Če
Naslednji
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Konec Če
End Sub

-------------------------------------------------- -------------------------------------------------- -----Hvala, RNS
Ta komentar je moderator na spletnem mestu minimiziral
Moja celica je I3 in številka je 2298, ko poskusim (koda VBA: samodejno povečaj vrednost celice po vsakem tiskanju:), mi da 22981, kako naj pridem do 2298,2299,2300
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, jennifer,
Če želite rešiti svojo težavo, uporabite naslednjo kodo VBA:
Opomba: spremenite besedilo in številko predpone v svoje.

Sub IncrementPrint_Num()
Dim xCount As Varianta
Zatemni xScreen kot Boolean
Dim I As Long
Dim xStr kot niz
Dim xInt kot celo število
On Error Resume Next
xStr = "Podjetje-" 'besedilo predpone
xInt = 2291 'število
LInput:
xCount = Application.InputBox("Vnesite število kopij, ki jih želite natisniti:", "Kutools for Excel")
Če TypeName(xCount) = "Boolean", Nato zapustite Sub
Če (xCount = "") Ali (Not IsNumeric(xCount)) Ali (xCount < 1) Potem
MsgBox "napaka vnesena, prosim vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Napačno
Za I = 1 do xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Naslednji
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Konec Če
End Sub

Prosim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, mi lahko pomagate pri tem? Želim, da je xINT več kot 5 števk. Vsakič, ko vnesem številko s 6 števki, se štetje vrne na 1. Kako lahko to preprečim?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, zelo zanimivo, čeprav iščem drugačno rešitev, ki je nisem mogel najti in tudi če bi poskušal prilagoditi kodo, do zdaj ne bi uspelo. Po vašem primeru bi moral isto stran natisniti 100-krat, na primer v isti PDF in na vsaki strani se je številka strani povečala. KOT sem rekel, sem poskusil z metodo združevanja, vendar, kot sem razumel, omogoča tiskanje skupaj, če potrebujete več kopij istega izpisa. vnaprej hvala Giuseppe
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ta koda deluje odlično, vendar se po vrednosti celice 32767 spet vrne na 1. Po tej vrednosti se tiska iz številke 1.
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala, meni deluje. In uspem narediti nekaj manjših sprememb, ki ustrezajo mojim potrebam. Resnično cenim vašo deljenje.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Jennifer, poskusi to
Sub IncrementPrint()
'updateby Extendoffice 20160530
Dim xCount As Varianta
Zatemni xScreen kot Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Application.InputBox("Vnesite število kopij, ki jih želite natisniti:", "Kutools for Excel")
Če TypeName(xCount) = "Boolean", Nato zapustite Sub
Če (xCount = "") Ali (Not IsNumeric(xCount)) Ali (xCount < 1) Potem
MsgBox "napaka vnesena, prosim vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Napačno
Za I = 1 do xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Naslednji
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
Konec Če
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Milijonkrat hvala
Ta komentar je moderator na spletnem mestu minimiziral
Dobro deluje za tiskanje inkrementalnih #-jev. Kako natisnem vsakih 5., 10. po potrebi?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da izberem, katere vrednosti želim natisniti? na primer natisnil sem zaporedje od 1 do 30, vendar moram znova natisniti zaporedje od 15 do 19.
Ta komentar je moderator na spletnem mestu minimiziral
Hej, želim spremeniti številko celice K11 po tiskanju v 1-2-3-4-5-6 itd., ali lahko pomagate? in mi tudi povej, kako pokličem to funkcijo, prosim za pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Spraševal sem se, kako narediti majhno spremembo, tako da natisne 1 od 10, 2 od 10, 3 od 10 itd.
Sicer to deluje odlično. Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, moje ime je suresh, imam podatke v formatu excel brez serijske številke, ki ima rad primer potnega lista. Moram ga vzeti kot tiskanje 100 strani in moram natisniti serijsko številko, kar potrebujem, iz 4-mestne, vendar moram med tiskanjem narediti ročno. ali lahko razložite, koga naj natisne, samodejno ustvari kodo serijske številke med tiskanjem
Ta komentar je moderator na spletnem mestu minimiziral
Super !! Nisem programer, vendar mi je uspelo spremeniti ref celice in unikatno številčenje, ki sem ga želel. Delal mi je odlično, Bog te blagoslovi!
Ta komentar je moderator na spletnem mestu minimiziral
Ali je možno tudi to kodo dodati, da se avtomatsko natisneta 2 izvoda?
Ta komentar je moderator na spletnem mestu minimiziral
Mislim, da bi lahko spremenili ta del: ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

do
ActiveSheet.Range("A1").Value = "Podjetje-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

da dobite 2 izvoda vsakega.
Ta komentar je moderator na spletnem mestu minimiziral
Zanima me, ali lahko po ponovnem odprtju preprosto natisnete datoteko in še vedno sledi zaporedni številki?
Trenutno počnem vsakič, ko odprem datoteko, ALT + F11 in nato F5 in navedem število kopij. Nato bo natisnil datoteko s pravilnim oštevilčenjem, nato pa ponovno shranil. in ko bom ponovno odprl, moram narediti isti korak.
Če obstaja koda, s katero jo lahko preprosto natisnete vsakič, ko odprete datoteko, in bo še vedno sledila zaporednemu številčenju?
Hvala vnaprej
Ta komentar je moderator na spletnem mestu minimiziral
Zanima me, ali lahko po ponovnem odprtju preprosto natisnete datoteko in še vedno sledi zaporedni številki?

Trenutno počnem vsakič, ko odprem datoteko, ALT + F11 in nato F5 in navedem število kopij. Nato bo natisnil datoteko s pravilnim oštevilčenjem, nato pa ponovno shranil. in ko bom ponovno odprl, moram narediti isti korak.

Če obstaja koda, s katero jo lahko preprosto natisnete vsakič, ko odprete datoteko, in bo še vedno sledila zaporednemu številčenju?

Hvala vnaprej
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala, ker ste delili zgornjo kodo. To je zelo koristno za vse. Ali lahko po izpisih dodamo še nekaj kode za povečanje 8 številk namesto 1? Čakam na vaš odgovor. Hvala
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL