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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab 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!















