Hoe celwaarde automatisch verhogen na elke afdruk?
Stel dat ik een werkbladpagina heb die 100 exemplaren moet worden afgedrukt, de cel A1 is het chequenummer Bedrijf-001, nu zou ik willen dat het aantal na elke afdruk met 1 wordt verhoogd. Dat betekent dat wanneer ik het tweede exemplaar afdruk, het nummer automatisch wordt verhoogd naar Bedrijf-002, het derde exemplaar, het nummer Bedrijf-003 ... honderd exemplaar, het nummer wordt Bedrijf-100. Is er een truc om dit probleem snel en mogelijk in Excel op te lossen?
Celwaarde automatisch verhogen na elke afdruk met VBA-code
Celwaarde automatisch verhogen na elke afdruk met VBA-code
Normaal gesproken is er geen directe manier om deze taak in Excel op te lossen, maar hier zal ik een VBA-code maken om ermee om te gaan.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: celwaarde automatisch verhogen na elke afdruk:
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. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal exemplaren in te voeren dat u het huidige werkblad wilt afdrukken, zie screenshot:
4. Klikken OK en uw huidige werkblad wordt nu afgedrukt, en tegelijkertijd worden de afgedrukte werkbladen genummerd Bedrijf-001, Bedrijf-002, Bedrijf-003… in cel A1 zoals u nodig hebt.
Opmerking:: In de bovenstaande code, de cel A1 worden de volgnummers ingevoegd die u hebt besteld en de oorspronkelijke celwaarde erin A1 zal worden gewist. En "Bedrijf-00”Is het volgnummer, kunt u deze naar wens wijzigen.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!






































