Hoe verhoogt u de celwaarde automatisch na elke afdruk?
In veel zakelijke en administratieve workflows is het vaak nodig om meerdere exemplaren van een document, factuur of cheque af te drukken, elk voorzien van een uniek serienummer of identificatiecode voor eenvoudige registratie en traceerbaarheid. Stel bijvoorbeeld dat u een Excel-werkblad hebt dat is opgemaakt als sjabloon voor cheques of vouchers, met in cel A1 een cheque-nummer zoals „Company-001”. Als u 100 exemplaren van deze pagina afdrukt, is het tijdrovend én foutgevoelig om het nummer handmatig aan te passen voor elk afzonderlijk exemplaar. Idealiter zorgt Excel ervoor dat de waarde in cel A1 automatisch wordt verhoogd bij elke afdrukactie: het eerste exemplaar toont dan „Company-001”, het tweede „Company-002”, enzovoort, tot en met „Company-100”.
Standaard biedt Excel geen ingebouwde functie om een celwaarde automatisch te verhogen na elke afdruktaak. U kunt deze automatisering echter realiseren met een VBA-macro. VBA is een praktische oplossing wanneer u efficiënt opeenvolgende genummerde papieren exemplaren moet genereren – bijvoorbeeld voor serieuze formulieren, tickets, cheques of andere scenario’s waarin unieke identificatoren vereist zijn op afgedrukte pagina’s. Deze aanpak voorkomt handmatige fouten, bespaart tijd en garandeert dat elk exemplaar het juiste unieke nummer krijgt.
Hieronder presenteren we een VBA-methode om celwaarden automatisch te verhogen bij elk afgedrukt exemplaar. Daarnaast biedt dit artikel handige richtlijnen voor effectief gebruik, veelvoorkomende valkuilen en praktische tips om uw Batch Afdrukken-taken binnen uw Excel-workflow optimaal te benutten.
Celwaarde automatisch verhogen na elke afdruk met VBA-code
Celwaarde automatisch verhogen na elke afdruk met VBA-code
Er is geen ingebouwde standaardoptie in Excel om een celwaarde automatisch te verhogen bij elke afdruk. Om dit proces toch te automatiseren, kunt u een VBA-macro gebruiken die efficiënt een opgegeven aantal exemplaren afdrukt, elk met een opeenvolgend verhoogde identificatiecode in cel A1. Deze aanpak is ideaal voor het genereren van gepersonaliseerde papieren documenten – zoals cheques, etiketten of formulieren – met doorlopende nummering. Houd er rekening mee dat het gebruik van macro’s vereist dat macro’s zijn ingeschakeld in uw Excel-omgeving en dat het uitvoeren van VBA-code invloed kan hebben op de beveiligingsinstellingen van uw bestand. Sla uw werk daarom altijd op voordat u code uitvoert.
1. Houd de toetsen ALT + F11 tegelijkertijd ingedrukt om het venster Microsoft Visual Basic for Applications te openen. Als u VBA voor het eerst gebruikt, moet u mogelijk het tabblad Ontwikkelaar inschakelen in uw Excel-lint.
2. Klik in de VBA-editor op Invoegen > Module om een nieuw modulevenster te openen. Kopieer en plak de onderstaande VBA-code in deze nieuwe module. Dit script helpt u het afdruknummer te verhogen voor elk exemplaar dat u afdrukt van het actieve werkblad.
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
Deze code vraagt u om het totale aantal exemplaren dat u wilt afdrukken, past de waarde in cel A1 aan voor elke afdrukcyclus en drukt elke versie automatisch af.
3. Nadat u de code hebt geplakt, controleert u of uw werkblad gereed is en of de actieve cel (meestal A1) de juiste basistekst bevat (bijvoorbeeld „Company-001”). Druk op de toets F5 of klik op Uitvoeren in de VBA-editor om de macro te starten. Er verschijnt een invoervenster waarin u wordt gevraagd hoeveel exemplaren u wilt afdrukken; voer het gewenste aantal in (bijvoorbeeld 100) en bevestig uw keuze. Zie de onderstaande schermafbeelding ter referentie:
Als u een niet-numerieke waarde invoert of op Annuleren klikt, wordt het proces zonder actie gestopt. Zorg ervoor dat u uitsluitend getallen invoert en controleer de beginwaarde in cel A1 voordat u doorgaat.
4. Klik op de knop OK. De macro drukt het werkblad nu automatisch het opgegeven aantal keren af en past de reeks in cel A1 telkens aan, zodat elke afgedrukte pagina opeenvolgend genummerd is (bijv. Company-001, Company-002, Company-003, … tot Company-100, afhankelijk van uw invoer en de opmaak in de macro).
Aanvullende opmerkingen en tips: In de code wordt cel A1gebruikt voor het serienummer. Eventuele bestaande inhoud in A1 wordt overschreven door het eerste nieuwe reeksnummer, dus als u informatie wilt behouden, maakt u een back-up van deze cel voordat u de code uitvoert. Het standaard numerieke voorvoegsel („)Company-00”) kunt u in de VBA-code aanpassen aan uw gewenste serienummerindeling; pas zowel de tekst als de numerieke opvulling naar wens aan. Wees voorzichtig bij het gebruik van de macro in gedeelde of beveiligde werkmappen, aangezien macro-uitvoering de juiste machtigingen vereist. Als uw printer traag is, voert u het script niet uit met zeer grote aantallen exemplaren om de afdrukqueue niet te overbelasten.
Als u problemen ondervindt—zoals een afdruktaak die niet start, nummers die niet correct worden verhoogd of foutmeldingen over celverwijzingen—controleer dan of macro’s zijn ingeschakeld en uw werkblad niet beveiligd is. Zorg ervoor dat u de referentiecel (A1 in dit voorbeeld) correct hebt ingesteld voordat u begint, en sla uw werkmap op vóór batchbewerkingen om onbedoeld gegevensverlies te voorkomen. Mocht u verdere aanpassingen nodig hebben—bijvoorbeeld een andere cel, getalnotatie of werkblad—pas dan de celverwijzingen en opmaakregels in de VBA-code dienovereenkomstig aan.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins