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

 Hogyan lehet automatikusan növelni a cellák értékét minden nyomtatás után?

Tegyük fel, hogy van egy munkalapom, amelyet 100 példány kinyomtatására szükségem van, az A1 cella a Company-001 csekkszám, most szeretném, ha minden nyomtatás után 1-gyel nőne a szám. Ez azt jelenti, hogy amikor kinyomtatom a második példányt, a szám automatikusan a Company-002-re nő, a harmadik példány a Company-003 ... száz példány, a szám Company-100 lesz. Van valami trükk a probléma gyors és lehetséges megoldására az Excel programban?

Automatikusan növekszik a cella értéke minden VBA kóddal történő nyomtatás után


nyíl kék jobb buborék Automatikusan növekszik a cella értéke minden VBA kóddal történő nyomtatás után

Általában nincs közvetlen módja ennek a feladatnak az Excelben történő megoldására, de itt létrehozok egy VBA kódot a kezelésére.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Automatikusan növekszik a cella értéke minden nyomtatás után:

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. Ezután nyomja meg a gombot F5 gomb a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy adja meg az aktuális munkalap kinyomtatni kívánt példányszámát, lásd a képernyőképet:

doc növekmény nyomtatáskor 1

4. Kattints OK gombra, és az aktuális munkalap most nyomtatódik, ugyanakkor a kinyomtatott munkalapok Company-001, Company-002, Company-003 ... számmal jelennek meg az A1 cellában, amire szüksége van.

Megjegyzések: A fenti kódban a cella A1 be lesz illesztve a megrendelt sorszámok és az eredeti cellaérték A1 megtisztul. És „Társaság-00”A sorszám, megváltoztathatja őket az Ön igényeinek megfelelően.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (51)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Csodálatos ez a kód, pontosan erre van szükségem, de azon tűnődtem, hogy az "A1" cellába beírt számból lehet-e valami módon elkezdeni a nyomtatást? Például, ha 100 példányt nyomtattam, a következő példányszámban a 101-es számtól kell nyomtatnom, és onnan kell felfelé számolnom. Megpróbáltam néhány kódmódosítást, de úgy tűnik, hogy csak a cellába beírt számot veszi, azaz a 101-et, ad hozzá 1-et, majd a többi nyomat megragad ezzel az egy számmal, azaz 102-vel... Nagyra értékelnénk a segítséget: -)
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha még nem talált megoldást, szerkesztheti a kód 17. sorát erre: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Ez +1-et ad az A1-es cellában lévő számhoz.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem küldi el a nyomtatómra
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression de 10 példányban. 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 lehetséges na pas à avoir aller dans basic. je voudrais que la macro s'active Directement via l'option impression. Lehetséges?
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,

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

je voudrais si c'est possible par exemple A1=153 et faire une impression de 10 copy. donc je récupéré 10 impressions 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 impression tout simplement.

Merci pour votre szárnysegédje
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Kaji!
A probléma megoldásához használja az alábbi kódot:
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

Kérjük, próbálja ki, remélem tud segíteni, ha bármilyen más problémája van, kérjük, írja meg itt.
A weboldal moderátora ezt a megjegyzést minimalizálta
Mellékelten találja meg a módosított kódokat.

És itt van szövegben:
Sub IncrementPrint()
'frissítés Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Dim xScreen Boolean-ként
Dim I As Long
On Error Resume Next
Lbemenet:
xStart = Application.InputBox("Kérjük, adja meg az első számot:", "Kutools for Excel")
xEnd = Application.InputBox("Kérjük, adja meg az utolsó számot:", "Kutools for Excel")
Ha TypeName(xCount) = "Logiai", akkor lépjen ki a Sub
Ha (xStart = "") Vagy (Nem IsNumeric(xStart)) Vagy (xStart < 1) Akkor
MsgBox "Hiba lépett be, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a LIInputhoz
Más
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Hamis
I = xStart To xEnd
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Következő
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Olyan sorozatszámokra van szükségem, mint IA1-055242, IA1-055243, IA1-055244 .....
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, hogy közzétetted, nagyon hasznos. A kérdésem a következő: 2 különböző vonalkódom van, amit egy oldalon kell növelni, hogyan tudom módosítani a kódot ehhez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Bocsánat, hogy ezt egy külön bejegyzésben kérdezem... A sorozatszámaim NULLA-val kezdődnek, de a program futtatásakor kiiktatja a nullákat. Megpróbáltam a számmezőt szöveggé alakítani, de ez nem oldotta meg. Egyéb ötletek?
A weboldal moderátora ezt a megjegyzést minimalizálta
R-kattintson a Cella, Formátum, Egyéni lehetőségre. Ahol az „Általános” felirat szerepel, cserélje ki annyi nullára, amennyi a sorozatszáma lesz. Ez a szükséges számú nullát kényszeríti a sorozatszám elé. Ha van egy 10 számjegyű sorozatszám-csoportom, akkor beírom a 0000000000 értéket a Típus mezőbe, hogy a „0004563571” megjelenjen a sorozatszám mezőben.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm Art. Megpróbáltam, de a vonalkód folyamatosan eltávolította a kezdő nullákat... még az egyéni számformátum elkészítése után is.
A weboldal moderátora ezt a megjegyzést minimalizálta
a sorozatszámom 227861-el kezdődik, honnan tudok nyomtatni
A weboldal moderátora ezt a megjegyzést minimalizálta
30 példányban nyomtattam, de most nem tudok nyomtatni, sokszor lefuttattam a szkriptet, de nem működik, ne csinálj semmit :(
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm a fentieket, nagyon hasznos volt. lehetséges-e elmenteni és megjegyezni az utolsó értéket
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Pieter,
Az utoljára nyomtatott érték mentéséhez és emlékezéséhez, amikor legközelebb nyomtat, alkalmazza a következő VBA-kódot:

Sub IncrementPrint()
Dim xCount As Variant
Dim xScreen Boolean-ként
Dim I As Long
Dim xM As Long
Dim xMNWS munkalapként
Dim xAWS munkalapként
On Error Resume Next
Lbemenet:
xCount = Application.InputBox("Kérjük, adja meg a nyomtatni kívánt példányszámot:", "Kutools for Excel")
Ha TypeName(xCount) = "Logiai", akkor lépjen ki a Sub
Ha (xCount = "") Vagy (Nem IsNumeric(xCount)) Vagy (xCount < 1) Akkor
MsgBox "hiba lépett be, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a LIInputhoz
Más
xScreen = Application.ScreenUpdating
Állítsa be: xAWS = ActiveSheet
Hiba esetén Ugrás az EMarkNumberSheet oldalra
Set xMNWS = Lapok ("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Ha az xMNWS semmi, akkor
Set xMNWS = Application.Worksheets.Add(Típus:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Érték = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Más
xM = xMNWS.Tartomány("A1").Érték
Ha véget
Application.ScreenUpdating = Hamis
Ha I = 1 - xCount
xM = xM + 1
xAWS.Range("A1").Érték = " Company-00" & xM
xAWS.PrintOut
Következő
xMNWS.Range("A1").Érték = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Ha véget
End Sub

Ha vissza kell állítania a nyomtatott számot az alapértelmezett számra, kérjük, először futtassa az alábbi kódot, majd a nyomtatáshoz hajtsa végre a fenti kódot.

Sub IncrementPrint_Reinstall()
Dim xMNWS munkalapként
Hiba esetén Ugrás az EMarkNumberSheet oldalra
Set xMNWS = Lapok ("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Ha nem, az xMNWS akkor semmi
Application.DisplayAlerts = Hamis
xMNWS.Visible = xlSheetHidden
xMNWS.Delete
Application.DisplayAlerts = Igaz
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönjük ezt a kódot. Lenne egy kérdésem. Ezt a kódot használtam, de a sorozatok 0071,0072,0073-hoz hasonlóan ugrálnak. 3x történt az 1-100 sorozat között. Tehát bezártam a vba-t mentés nélkül, telepítsem újra a kódot, de kinyomtatja az utolsó elmentett sorozatot (0032). A kérdésem az lenne, hogy hogyan tudok folyamatosan nyomtatni anélkül, hogy a sorozat ugrálna, és hogyan tudom újra nyomtatni 101-től? nagyon hálás lesz a válaszáért. elnézést ezért. Nem vagyok programozó, remélem érted. Köszönöm! 
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm, hogy közzétetted, nagyon hasznos. A kérdésem a következő: 2 különböző vonalkódom van, amit egy oldalon kell növelni, hogyan tudom módosítani a kódot ehhez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Desmond!
Ha 2 helyed van egy oldalon (pl. 2 kupon vagy 2 sablon / 2 utalvány stb.), akkor megpróbálhatod az alábbi kódot. (Feltételezve, hogy az 1. vonalkód és a 2. vonalkód ugyanazon oldal "A1" és "A20" celláiban található, ez a kód olyan értékeket fog növelni, mint például a Vállalat-001 és a Vállalat-002 az első oldalon, valamint a Vállalat-003 és a Vállalat-004 a második oldalon és így tovább. A kód 20., 21., 23., 24. és 28,29. sorában tetszés szerint szerkesztheti a cellaszámot és a cégnevet. 
Azt is kérni fogja, hogy adja meg a kezdő- és a zárószámot (Köszönet geniusmannak a kód ezen részéért). Tehát például a kezdőszámod. az 1, és a vége nem. 8, az 4. oldalra 1,2 oldalt 1-t, a 3,4. oldalra 2-et, a 5,6. oldalra 3-ot és végül a 7,8. oldalra 4-at nyomtat. Remélhetőleg segít Önnek vagy bárkinek, aki ilyen típusú igényt/követelményt keres. 
Módosított kód:----------------------------------------------- ------------Sub IncrementPrint()
'frissítés Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Dim xScreen Boolean-ként
Dim I As Long
On Error Resume Next
Lbemenet:
xStart = Application.InputBox("Kérjük, adja meg az első számot:", "Kutools for Excel")
xEnd = Application.InputBox("Kérjük, adja meg az utolsó számot:", "Kutools for Excel")
Ha TypeName(xCount) = "Logiai", akkor lépjen ki a Sub
Ha (xStart = "") Vagy (Nem IsNumeric(xStart)) Vagy (xStart < 1) Akkor
MsgBox "Hiba lépett be, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a LIInputhoz
Más
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Hamis
I = xStart To xEnd
Ha I Mod 2 = 0 Akkor
ActiveSheet.Range("A1").Value = " Company-00" & I + 1
ActiveSheet.Range("A20").Value = " Company-00" & I
Más
ActiveSheet.Range("A20").Value = " Company-00" & I + 1
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
Ha véget
Következő
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Ha véget
End Sub

--------------------------------------------------- --------------------------------------------------- -----Köszönöm, RNS
A weboldal moderátora ezt a megjegyzést minimalizálta
A cellám I3, és a szám 2298, amikor megpróbálom a (VBA kód: A cellaérték automatikus növelése minden nyomtatás után:) 22981-et ad, hogyan tudom elérni a 2298,2299,2300-at
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Jennifer
A probléma megoldásához használja a következő VBA-kódot:
Megjegyzés: Kérjük, módosítsa az előtag szövegét és számát a sajátjára.

Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen Boolean-ként
Dim I As Long
Dim xStr As String
Dim xInt As Integer
On Error Resume Next
xStr = "Vállalat-" 'előtag szövege
xInt = 2291 'szám
Lbemenet:
xCount = Application.InputBox("Kérjük, adja meg a nyomtatni kívánt példányszámot:", "Kutools for Excel")
Ha TypeName(xCount) = "Logiai", akkor lépjen ki a Sub
Ha (xCount = "") Vagy (Nem IsNumeric(xCount)) Vagy (xCount < 1) Akkor
MsgBox "hiba lépett be, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a LIInputhoz
Más
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Hamis
Ha I = 1 - xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Érték = xStr & xInt
ActiveSheet.PrintOut
Következő
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Ha véget
End Sub

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello tudnál nekem ebben segíteni? Azt akarom, hogy az xINT 5 számjegynél több legyen. Minden alkalommal, amikor beírok egy 6 számjegyű számot, a szám visszaáll 1-re. Hogyan akadályozhatom meg ezt?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, nagyon érdekes annak ellenére, hogy más megoldást keresek, amit nem találtam, és még ha megpróbáltam volna testreszabni a kódot, ez eddig nem sikerült. Az Ön példáját követve 100-szor ki kellene nyomtatnom ugyanazt az oldalt, például ugyanabba a PDF-be, és minden oldalon nőtt az oldalszám. Ahogy mondtam, kipróbáltam az összeválogatási módszert, de ahogy megértettem, ez lehetővé teszi a közös nyomtatást, ha több példányra van szüksége ugyanabból a nyomatból. előre is köszönöm, Giuseppe
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ez a kód kiválóan működik, de a 32767-es cellaérték után ismét 1-re áll vissza. Ezt követően az 1-es számtól nyomtat.
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm szépen, nekem bevált. És sikerül néhány apró változtatást végrehajtanom az igényeimnek megfelelően. Nagyon köszönöm a megosztásokat.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Jennifer, próbáld ki
Sub IncrementPrint()
'frissítés Extendoffice 20160530
Dim xCount As Variant
Dim xScreen Boolean-ként
Dim I As Long
On Error Resume Next
Lbemenet:
xCount = Application.InputBox("Kérjük, adja meg a nyomtatni kívánt példányszámot:", "Kutools for Excel")
Ha TypeName(xCount) = "Logiai", akkor lépjen ki a Sub
Ha (xCount = "") Vagy (Nem IsNumeric(xCount)) Vagy (xCount < 1) Akkor
MsgBox "hiba lépett be, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a LIInputhoz
Más
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Hamis
Ha I = 1 - xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Érték = ActiveSheet.Range("J18").Érték + 1
Következő
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönet egy millió
A weboldal moderátora ezt a megjegyzést minimalizálta
Jól működik növekményes #-ok nyomtatásához. Hogyan nyomtathatok minden 5., 10. alkalommal, amikor szükséges?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód kiválasztani, hogy milyen értékeket akarok nyomtatni? például kinyomtattam az 1-től 30-ig terjedő sorozatot, de újra ki kell nyomtatnom a 15-től 19-ig terjedő sorozatot.
A weboldal moderátora ezt a megjegyzést minimalizálta
hé, szeretném megváltoztatni a K11-es cellaszámot a nyomtatás után 1-2-3-4-5-6-ra stb., kérlek segítenél? és azt is mondja meg, hogyan hívjam ezt a függvényt, kérem, segítsen
A weboldal moderátora ezt a megjegyzést minimalizálta
Azon tűnődtem, hogyan lehet egy kis változtatást végrehajtani, hogy 1-ből 10-et, 2-ből 10-t, 3-ből 10-at stb.
Különben ez remekül működik. Kösz.
A weboldal moderátora ezt a megjegyzést minimalizálta
szia, a nevem suresh van egy adatom excel formátumban sorszám nélkül, ami szereti a fuvarlevelet. 100 oldalas nyomtatásnak kell tekintenem, és ki kell nyomtatnom a sorozatszámot, amire szükségem van egy 4 számjegyből, de nyomtatás közben manuálisan kell tennem. meg tudja magyarázni, hogy ki nyomtathat, automatikusan generálja a sorozatszám kódot nyomtatás közben
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagy !! Nem vagyok programozó, de sikerült megváltoztatnom a cella ref-t és az egyedi számozást, amit akartam. Nekem kiválóan bevált, Isten áldja meg!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt a kódot is lehet hozzátenni, hogy 2 példány automatikusan ki legyen nyomtatva?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szerintem módosíthatod ezt a részt: ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

nak nek
ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

hogy mindegyikből 2 példányt kapjon.
A weboldal moderátora ezt a megjegyzést minimalizálta
Azon tűnődtem, hogy újranyitás után ki tudod-e nyomtatni a fájlt, és továbbra is követi a sorszámot?
Amit jelenleg csinálok, minden alkalommal, amikor megnyitom a fájlt, nyomja meg az ALT + F11, majd az F5 billentyűket, és jelezze a másolatok számát. Ezután kinyomtatja a fájlt a megfelelő számozással, majd újra elmenti. és amikor újra kinyitom, ugyanazt a lépést kell tennem.
Ha van egy kód, ahol egyszerűen kinyomtathatja minden alkalommal, amikor megnyitja a fájlt, és továbbra is követi a sorszámozást?
thanks in advance
A weboldal moderátora ezt a megjegyzést minimalizálta
Azon tűnődtem, hogy újranyitás után ki tudod-e nyomtatni a fájlt, és továbbra is követi a sorszámot?

Amit jelenleg csinálok, minden alkalommal, amikor megnyitom a fájlt, nyomja meg az ALT + F11, majd az F5 billentyűket, és jelezze a másolatok számát. Ezután kinyomtatja a fájlt a megfelelő számozással, majd újra elmenti. és amikor újra kinyitom, ugyanazt a lépést kell tennem.

Ha van egy kód, ahol egyszerűen kinyomtathatja minden alkalommal, amikor megnyitja a fájlt, és továbbra is követi a sorszámozást?

thanks in advance
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönjük a fenti kód megosztását. Nagyon hasznos mindenkinek. Hozzáadhatunk még egy kódot, hogy a nyomtatás után 8 helyett 1 számot növelhessünk?Várom a válaszát. Kösz
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi