Hoe kan ik de celwaarde automatisch laten toenemen na elke afdruk?

Stel dat ik een werkbladpagina heb die 100 keer afgedrukt moet worden, waarbij cel A1 het controlegetal Bedrijf-001 is. Nu wil ik dat het nummer met 1 toeneemt na elke afdruk. Dat betekent dat wanneer ik de tweede kopie afdruk, het nummer automatisch verhoogd wordt naar Bedrijf-002, bij de derde kopie wordt het Bedrijf-003… bij de honderdste kopie wordt het Bedrijf-100. Is er een truc om dit probleem snel en mogelijk in Excel op te lossen?

Celwaarde automatisch laten toenemen na elke afdruk met VBA-code

Celwaarde automatisch laten toenemen na elke afdruk met VBA-code

Normaal gesproken is er geen directe manier om deze taak in Excel uit te voeren, maar hier zal ik een VBA-code maken om het te behandelen.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Celwaarde automatisch laten toenemen 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 de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin u wordt gevraagd het aantal kopieën in te voeren dat u van het huidige werkblad wilt afdrukken, zie screenshot:

4. Klik op de knop OK, en uw huidige werkblad wordt nu afgedrukt, en tegelijkertijd worden de afgedrukte werkbladen genummerd als Bedrijf-001, Bedrijf-002, Bedrijf-003… in cel A1 zoals u nodig hebt.

Opmerking: In de bovenstaande code wordt cel A1 de reeksnummers die u heeft besteld ingevoegd, en de oorspronkelijke celwaarde in A1 wordt gewist. En “Bedrijf-00” is het reeksnummer, u kunt dit naar behoefte wijzigen.