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

 Πώς να αυξήσετε αυτόματα την τιμή κελιού μετά από κάθε εκτύπωση;

Ας υποθέσουμε, έχω μια σελίδα φύλλου εργασίας που πρέπει να εκτυπώσω 100 αντίγραφα, το κελί A1 είναι ο αριθμός ελέγχου Company-001, τώρα, θα ήθελα ο αριθμός να αυξηθεί κατά 1 μετά από κάθε εκτύπωση. Αυτό σημαίνει ότι όταν εκτυπώσω το δεύτερο αντίγραφο, ο αριθμός θα αυξηθεί αυτόματα στην Εταιρεία-002, το τρίτο αντίγραφο, ο αριθμός θα είναι Εταιρεία-003… εκατό αντίγραφο, ο αριθμός θα είναι Εταιρεία-100. Υπάρχει κάποιο κόλπο για την επίλυση αυτού του προβλήματος στο Excel γρήγορα και πιθανώς;

Αυτόματη αύξηση της τιμής κελιού μετά από κάθε εκτύπωση με κωδικό VBA


βέλος μπλε δεξιά φούσκα Αυτόματη αύξηση της τιμής κελιού μετά από κάθε εκτύπωση με κωδικό VBA

Κανονικά, δεν υπάρχει άμεσος τρόπος για να επιλύσετε αυτήν την εργασία στο Excel, αλλά, εδώ, θα δημιουργήσω έναν κώδικα VBA για να το αντιμετωπίσω.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Αυτόματη αύξηση της τιμής κελιού μετά από κάθε εκτύπωση:

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. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε τον αριθμό των αντιγράφων που θέλετε να εκτυπώσετε το τρέχον φύλλο εργασίας, δείτε το στιγμιότυπο οθόνης:

αύξηση εγγράφων κατά την εκτύπωση 1

4. Κλίκ OK κουμπί και το τρέχον φύλλο εργασίας σας εκτυπώνεται τώρα και ταυτόχρονα, τα εκτυπωμένα φύλλα εργασίας αριθμούνται Εταιρεία-001, Εταιρεία-002, Εταιρεία-003… στο κελί Α1 όπως χρειάζεστε.

Note: Στον παραπάνω κώδικα, το κελί A1 θα εισαχθούν οι αριθμοί ακολουθίας που παραγγείλατε και η αρχική τιμή κελιού A1 θα εκκαθαριστεί. Και "Εταιρεία-00Είναι ο αριθμός ακολουθίας, μπορείτε να τους αλλάξετε ανάλογα με τις ανάγκες σας.


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (51)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κωδικός είναι καταπληκτικός, είναι ακριβώς αυτό που χρειάζομαι, ωστόσο, αναρωτιόμουν αν υπάρχει τρόπος να ξεκινήσω την εκτύπωση από τον αριθμό που έχει εισαχθεί στο κελί "A1"; Για παράδειγμα, εάν έχω εκτυπώσει 100 αντίτυπα, στην επόμενη εκτύπωση θα χρειαστεί να εκτυπώσω από τον αριθμό 101 και να μετρήσω από εκεί. Δοκίμασα μερικές προσαρμογές κώδικα, αλλά φαίνεται να παίρνει μόνο τον αριθμό που έχει εισαχθεί στο κελί, π.χ. 101, προσθέτει 1 και μετά οι υπόλοιπες εκτυπώσεις έχουν κολλήσει με αυτόν τον έναν αριθμό, δηλαδή 102... Η βοήθειά σας θα εκτιμούσαμε ιδιαίτερα: -)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν δεν βρήκατε ήδη λύση, μπορείτε να επεξεργαστείτε τη γραμμή 17 του κώδικα σε αυτό: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Αυτό θα επισημάνει +1 στον αριθμό που έχετε στο κελί A1.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν στέλνεται στον εκτυπωτή μου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

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 αντίγραφα. 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 πιθανή na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. Είναι δυνατόν;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,

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

je voudrais si c'est δυνατό par exemple A1=153 et faire une impression de 10 αντίγραφα. 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 σκηνοθεσία la macro en utilisant l'option impression tout simplement.

Merci pour votre aide
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Kaji,
Για να λύσετε το πρόβλημά σας, εφαρμόστε τον παρακάτω κώδικα:
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

Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει, εάν έχετε οποιοδήποτε άλλο πρόβλημα, παρακαλώ σχολιάστε εδώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρείτε συνημμένους τους τροποποιημένους κωδικούς.

Και εδώ είναι στο κείμενο:
Sub IncrementPrint()
«ενημέρωση κατά Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Μείωση xScreen ως Boolean
Dim I As Long
On Error Συνέχιση Επόμενη
Είσοδος LI:
xStart = Application.InputBox("Παρακαλώ εισάγετε τον πρώτο αριθμό:", "Kutools for Excel")
xEnd = Application.InputBox("Παρακαλώ εισάγετε τον τελευταίο αριθμό:", "Kutools for Excel")
Αν TypeName(xCount) = "Boolean" Τότε βγείτε από το Sub
Αν (xStart = "") Ή (Not Is Numeric(xStart)) Ή (xStart < 1) Τότε
MsgBox "Error entered, please enter again", vbInformation, "Kutools for Excel"
Μετάβαση στο LInput
Αλλού
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Για I = xStart To xEnd
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
Επόμενο
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρειάζομαι σειριακούς αριθμούς όπως IA1-055242, IA1-055243, IA1-055244 .....
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ που το δημοσιεύσατε, είναι πολύ χρήσιμο. Η ερώτησή μου είναι η εξής: Έχω 2 διαφορετικούς γραμμωτούς κώδικες που πρέπει να προστεθούν σε μία σελίδα, πώς μπορώ να τροποποιήσω τον κώδικα για να το κάνω αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη που το ρωτάω σε ξεχωριστή ανάρτηση... Οι σειριακές μου αριθμοί ξεκινούν με ΜΗΔΕΝ, αλλά όταν εκτελώ το πρόγραμμα εξαλείφει τα μηδενικά. Προσπάθησα να μετατρέψω το πεδίο αριθμών σε κείμενο, αλλά αυτό δεν διορθώθηκε. Άλλες ιδέες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
R-Κάντε κλικ στο Cell, Format, Custom, Όπου λέει "Γενικά", αντικαταστήστε το με τόσα μηδενικά όσα θα είναι ο σειριακός σας αριθμός. Αυτό θα επιβάλει το ποσό των μηδενικών που απαιτούνται μπροστά από τον σειριακό αριθμό σας. Εάν έχω μια ομάδα σειριακών αριθμών που είναι 10ψήφιοι σειρές, εισάγω 0000000000 στο πεδίο Τύπος για να εμφανιστεί το '0004563571' στο πεδίο σειριακού αριθμού.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ Art. Το δοκίμασα, αλλά ο γραμμωτός κώδικας εξαφάνιζε τα μηδενικά που προηγούνται... ακόμα και αφού έκανα μια προσαρμοσμένη μορφή αριθμού.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο σειριακός αριθμός μου ξεκινά με 227861 πώς μπορώ να εκτυπώσω από
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
εκτυπώθηκε σαν 30 αντίτυπα αλλά τώρα δεν μπορώ να εκτυπώσω, έτρεξα το σενάριο πολλές φορές αλλά δεν λειτουργεί, μην κάνω τίποτα :(
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ για τα παραπάνω, πραγματικά χρήσιμη. είναι δυνατόν να αποθηκεύσετε και να θυμάστε την τελευταία τιμή
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Pieter,
Για να αποθηκεύσετε και να θυμάστε την τελευταία εκτυπωμένη τιμή όταν θα εκτυπώσετε την επόμενη φορά, θα πρέπει να εφαρμόσετε τον ακόλουθο κώδικα VBA:

Sub IncrementPrint()
Dim xCount As Variant
Μείωση xScreen ως Boolean
Dim I As Long
Dim xM As Long
Dim xMNWS ως φύλλο εργασίας
Dim xAWS ως φύλλο εργασίας
On Error Συνέχιση Επόμενη
Είσοδος LI:
xCount = Application.InputBox ("Παρακαλώ εισάγετε τον αριθμό των αντιγράφων που θέλετε να εκτυπώσετε:", "Kutools for Excel")
Αν TypeName(xCount) = "Boolean" Τότε βγείτε από το Sub
Αν (xCount = "") Ή (Not IsNumeric(xCount)) Ή (xCount < 1) Τότε
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
Μετάβαση στο LInput
Αλλού
xScreen = Application.ScreenUpdating
Ορισμός xAWS = ActiveSheet
Σε σφάλμα Μετάβαση στο EMarkNumberSheet
Ορισμός xMNWS = Φύλλα ("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Αν το xMNWS δεν είναι τίποτα τότε
Ορισμός xMNWS = Application.Worksheets.Add(Τύπος:=xlΦύλλο εργασίας)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Τιμή = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
Αλλού
xM = xMNWS.Range("A1").Τιμή
End If
Application.ScreenUpdating = False
Για I = 1 To xCount
xM = xM + 1
xAWS.Range("A1").Value = "Company-00" & xM
xAWS.PrintOut
Επόμενο
xMNWS.Range("A1").Τιμή = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
Sub End

Εάν πρέπει να επαναφέρετε τον εκτυπωμένο αριθμό στον προεπιλεγμένο αριθμό, εκτελέστε πρώτα τον παρακάτω κωδικό και, στη συνέχεια, εκτελέστε τον παραπάνω κωδικό για εκτύπωση.

Sub IncrementPrint_Reinstall()
Dim xMNWS ως φύλλο εργασίας
Σε σφάλμα Μετάβαση στο EMarkNumberSheet
Ορισμός xMNWS = Φύλλα ("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet:
Αν όχι το xMNWS δεν είναι τίποτα τότε
Application.DisplayAlerts = False
xMNWS.Visible = xlSheetHidden
xMNWS.Διαγραφή
Application.DisplayAlerts = True
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, ευχαριστώ για αυτόν τον κωδικό.. Έχω μια ερώτηση. Χρησιμοποίησα αυτόν τον κωδικό, αλλά οι σειρές πηδούν σαν 0071,0072,0073. συνέβη 3 φορές μεταξύ των σειρών 1-100. Οπότε έκλεισα το vba χωρίς αποθήκευση και εγκαταστήσω τον κώδικα, αλλά τύπωσε την τελευταία σειρά που αποθηκεύτηκε (0032). Η ερώτησή μου είναι πώς μπορώ να εκτυπώνω συνεχώς χωρίς να πηδάει η σειρά και πώς μπορώ να ξανατυπώσω ξανά ξεκινώντας από το 101; θα εκτιμήσω πραγματικά την απάντησή σας. συγγνώμη γι 'αυτό. Δεν είμαι προγραμματιστής, ελπίζω να καταλαβαίνεις. Σας ευχαριστώ! 
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστούμε που το δημοσιεύσατε, είναι πολύ χρήσιμο. Η ερώτησή μου είναι η εξής: Έχω 2 διαφορετικούς γραμμωτούς κώδικες που πρέπει να προστεθούν σε μία σελίδα, πώς μπορώ να τροποποιήσω τον κώδικα για να το κάνω αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ντέσμοντ,
Εάν έχετε 2 θέσεις σε μία σελίδα (όπως 2 κουπόνια ή 2 πρότυπα / 2 κουπόνια κ.λπ.), τότε μπορείτε να δοκιμάσετε να χρησιμοποιήσετε τον παρακάτω κωδικό. (Υποθέτοντας ότι ο 1ος γραμμικός κώδικας και ο 2ος γραμμωτός κώδικας βρίσκονται στα κελιά "A1" και "A20" της ίδιας σελίδας, αυτός ο κωδικός θα αυξήσει τιμές όπως Company-001 και Company-002 στην πρώτη σελίδα και Company-003 και Company-004 στη δεύτερη σελίδα Μπορείτε να επεξεργαστείτε τον αριθμό κελιού και το όνομα της εταιρείας όπως θέλετε στις γραμμές 20, 21, 23, 24 και 28,29 του κώδικα. 
Θα σας ζητήσει επίσης να εισαγάγετε τον αριθμό έναρξης και τον αριθμό λήξης (Ευχαριστούμε τον geniusman για αυτό το μέρος του κώδικα). Έτσι, για παράδειγμα, ο αριθμός εκκίνησης σας. είναι 1 και κατάληξη αρ. 8, θα εκτυπώσει 4 σελίδες του 1,2 στην 1η σελίδα, 3,4 στη 2η σελίδα, 5,6 στην 3η σελίδα και τέλος 7,8 στην 4η σελίδα. Ελπίζω να βοηθήσει εσάς ή οποιονδήποτε αναζητά αυτού του είδους την ανάγκη/απαίτηση. 
Τροποποιημένος κωδικός:----------------------------------------------- ------------Sub IncrementPrint()
«ενημέρωση κατά Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Μείωση xScreen ως Boolean
Dim I As Long
On Error Συνέχιση Επόμενη
Είσοδος LI:
xStart = Application.InputBox("Παρακαλώ εισάγετε τον πρώτο αριθμό:", "Kutools for Excel")
xEnd = Application.InputBox("Παρακαλώ εισάγετε τον τελευταίο αριθμό:", "Kutools for Excel")
Αν TypeName(xCount) = "Boolean" Τότε βγείτε από το Sub
Αν (xStart = "") Ή (Not Is Numeric(xStart)) Ή (xStart < 1) Τότε
MsgBox "Error entered, please enter again", vbInformation, "Kutools for Excel"
Μετάβαση στο LInput
Αλλού
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Για I = xStart To xEnd
If I Mod 2 = 0 Τότε
ActiveSheet.Range("A1").Value = "Company-00" & I + 1
ActiveSheet.Range("A20").Value = "Company-00" & I
Αλλού
ActiveSheet.Range("A20").Value = "Company-00" & I + 1
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
End If
Επόμενο
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
End If
Sub End

-------------------------------------------------- -------------------------------------------------- -----Ευχαριστώ, RNS
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το κελί μου είναι I3 και ο αριθμός είναι 2298 όταν δοκιμάζω το (κωδικός VBA: Αυτόματη αύξηση τιμής κελιού μετά από κάθε εκτύπωση:) μου δίνει 22981 πώς μπορώ να το φτάσω στο 2298,2299,2300
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Τζένιφερ,
Για να αντιμετωπίσετε το πρόβλημά σας, εφαρμόστε τον ακόλουθο κώδικα VBA:
Σημείωση: Αλλάξτε το κείμενο και τον αριθμό του προθέματος σε δικό σας.

Sub IncrementPrint_Num()
Dim xCount As Variant
Μείωση xScreen ως Boolean
Dim I As Long
Dim xStr ως συμβολοσειρά
Dim xInt ως ακέραιος αριθμός
On Error Συνέχιση Επόμενη
xStr = κείμενο προθέματος "Εταιρεία-" '
xInt = 2291 'αριθμός
Είσοδος LI:
xCount = Application.InputBox ("Παρακαλώ εισάγετε τον αριθμό των αντιγράφων που θέλετε να εκτυπώσετε:", "Kutools for Excel")
Αν TypeName(xCount) = "Boolean" Τότε βγείτε από το Sub
Αν (xCount = "") Ή (Not IsNumeric(xCount)) Ή (xCount < 1) Τότε
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
Μετάβαση στο LInput
Αλλού
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Για I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Τιμή = xStr & xInt
ActiveSheet.PrintOut
Επόμενο
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
End If
Sub End

Δοκιμάστε το, ελπίζω να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια μπορείτε να με βοηθήσετε σε αυτό; Θέλω το xINT να είναι πάνω από 5 ψηφία. Κάθε φορά που βάζω έναν αριθμό με 6 ψηφία, ο αριθμός επιστρέφει στο 1. Πώς μπορώ να το αποτρέψω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, πολύ ενδιαφέρον παρόλο που ψάχνω για μια διαφορετική λύση που δεν μπορούσα να βρω και ακόμα κι αν προσπάθησα να προσαρμόσω τον κώδικα δεν μπορούσα να επιτύχω μέχρι στιγμής. Ακολουθώντας το παράδειγμά σας θα χρειαζόταν να εκτυπώσω την ίδια σελίδα 100 φορές, στο ίδιο PDF για παράδειγμα και σε κάθε σελίδα ο αριθμός σελίδας αυξήθηκε. Όπως είπα δοκίμασα τη μέθοδο collate αλλά όπως κατάλαβα σας επιτρέπει να εκτυπώνετε μαζί εάν χρειάζεστε πολλά αντίγραφα της ίδιας εκτύπωσης. ευχαριστώ εκ των προτέρων Giuseppe
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, αυτός ο κωδικός λειτουργεί άψογα, αλλά μετά την τιμή του κελιού 32767 και πάλι επιστρέφει στο 1. Μετά από αυτήν την τιμή εκτυπώνεται από τον αριθμό 1.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ, μου δουλεύει. Και καταφέρνω να κάνω μερικές μικρές αλλαγές για να ταιριάζουν στις ανάγκες μου. Εκτιμώ πραγματικά για την κοινή χρήση σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Jennifer, δοκίμασε αυτό
Sub IncrementPrint()
«ενημέρωση κατά Extendoffice 20160530
Dim xCount As Variant
Μείωση xScreen ως Boolean
Dim I As Long
On Error Συνέχιση Επόμενη
Είσοδος LI:
xCount = Application.InputBox ("Παρακαλώ εισάγετε τον αριθμό των αντιγράφων που θέλετε να εκτυπώσετε:", "Kutools for Excel")
Αν TypeName(xCount) = "Boolean" Τότε βγείτε από το Sub
Αν (xCount = "") Ή (Not IsNumeric(xCount)) Ή (xCount < 1) Τότε
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
Μετάβαση στο LInput
Αλλού
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
Για I = 1 To xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Επόμενο
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χάρη ένα εκατομμύριο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί καλά για την εκτύπωση σταδιακών #. Πώς εκτυπώνω κάθε 5η, 10η, όταν χρειάζεται;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να επιλέξω ποιες τιμές θέλω να εκτυπώσω; Για παράδειγμα, εκτύπωσα τη σειρά 1 έως 30, αλλά πρέπει να ξανατυπώσω τη σειρά 15 έως 19 ξανά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, θέλω να αλλάξω τον αριθμό του αριθμού κελιού K11 μετά την εκτύπωση σε 1-2-3-4-5-6 κ.λπ., μπορείτε να βοηθήσετε; και επίσης πείτε μου πώς να καλέσω αυτή τη συνάρτηση, pls help
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αναρωτιόμουν πώς να κάνω μια μικρή αλλαγή ώστε να εκτυπώνει 1 από 10, 2 από 10, 3 από 10 κ.λπ.
Διαφορετικά αυτό λειτουργεί υπέροχα. Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, το όνομά μου είναι σίγουρο ότι έχω δεδομένα σε μορφή excel χωρίς σειριακό αριθμό που του αρέσει ένα παράδειγμα τιμολόγησης. Πρέπει να το πάρω ως εκτύπωση 100 σελίδων και πρέπει να εκτυπώσω τον σειριακό αριθμό ό,τι χρειάζομαι από ένα 4ψήφιο, αλλά κατά την εκτύπωση πρέπει να το κάνω με μη αυτόματο τρόπο. μπορείτε να εξηγήσετε ποιος θα εκτυπωθεί αυτόματα να δημιουργήσετε τον κωδικό σειράς κατά την εκτύπωση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μεγάλος !! Δεν είμαι προγραμματιστής αλλά κατάφερα να αλλάξω το Cell ref και την uniq αρίθμηση που ήθελα. Δούλεψε υπέροχα για μένα ο Θεός να σε έχει καλά!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει επίσης η δυνατότητα προσθήκης σε αυτόν τον κωδικό, ώστε να εκτυπωθούν αυτόματα 2 αντίγραφα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Νομίζω ότι θα μπορούσατε να αλλάξετε αυτό το τμήμα:ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut

προς την
ActiveSheet.Range("A1").Value = "Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

για να λάβετε 2 αντίγραφα από το καθένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αναρωτιόμουν αν μπορείτε απλώς να εκτυπώσετε απευθείας το αρχείο μετά το άνοιγμα και να εξακολουθεί να ακολουθεί τον αύξοντα αριθμό;
Αυτό που κάνω αυτή τη στιγμή είναι κάθε φορά που ανοίγω το αρχείο, ALT + F11 μετά F5 και υποδεικνύω τον αριθμό των αντιγράφων. Στη συνέχεια, θα εκτυπώσει το αρχείο με τη σωστή αρίθμηση και, στη συνέχεια, θα αποθηκεύσει ξανά. και όταν θα ανοίξω ξανά, πρέπει απλώς να κάνω το ίδιο βήμα.
Εάν υπάρχει ένας κωδικός στον οποίο μπορείτε απλώς να τον εκτυπώνετε απευθείας κάθε φορά που ανοίγετε το αρχείο και θα εξακολουθεί να ακολουθεί τη διαδοχική αρίθμηση;
ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αναρωτιόμουν αν μπορείτε απλώς να εκτυπώσετε απευθείας το αρχείο μετά το άνοιγμα και να εξακολουθεί να ακολουθεί τον αύξοντα αριθμό;

Αυτό που κάνω αυτή τη στιγμή είναι κάθε φορά που ανοίγω το αρχείο, ALT + F11 μετά F5 και υποδεικνύω τον αριθμό των αντιγράφων. Στη συνέχεια, θα εκτυπώσει το αρχείο με τη σωστή αρίθμηση και, στη συνέχεια, θα αποθηκεύσει ξανά. και όταν θα ανοίξω ξανά, πρέπει απλώς να κάνω το ίδιο βήμα.

Εάν υπάρχει ένας κωδικός στον οποίο μπορείτε απλώς να τον εκτυπώνετε απευθείας κάθε φορά που ανοίγετε το αρχείο και θα εξακολουθεί να ακολουθεί τη διαδοχική αρίθμηση;

ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστούμε πολύ που μοιραστήκατε τον παραπάνω κώδικα. Είναι πολύ χρήσιμο για όλους. Μπορούμε να προσθέσουμε περισσότερο κωδικό για να αυξήσουμε 8 αριθμούς αντί για 1 μετά την εκτύπωση; Περιμένω την απάντησή σας. Ευχαριστώ
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL