Come incrementare automaticamente il valore della cella dopo ogni stampa?

Supponiamo di avere una pagina del foglio di lavoro che deve essere stampata 100 copie, e la cella A1 contiene il numero di controllo Azienda-001. Ora vorrei che il numero aumentasse di 1 dopo ogni stampa. Ciò significa che quando stampo la seconda copia, il numero diventerà automaticamente Azienda-002, alla terza copia il numero sarà Azienda-003… alla centesima copia, il numero sarà Azienda-100. Esiste un modo rapido per risolvere questo problema in Excel, possibilmente?

Incremento automatico del valore della cella dopo ogni stampa con codice VBA

Incremento automatico del valore della cella dopo ogni stampa con codice VBA

Normalmente, non esiste un modo diretto per risolvere questa operazione in Excel, ma qui creerò un codice VBA per gestirla.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Incremento automatico del valore della cella dopo ogni stampa:

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti chiederà di inserire il numero di copie che desideri stampare del foglio di lavoro corrente, vedi screenshot:

4. Clicca sul pulsante OK, e il tuo foglio di lavoro corrente verrà stampato ora, e allo stesso tempo, i fogli di lavoro stampati saranno numerati Azienda-001, Azienda-002, Azienda-003…nella cella A1 come richiesto.

Nota: Nel codice sopra, nella cella A1 verranno inseriti i numeri di sequenza che hai ordinato, e il valore originale della cella in A1 verrà cancellato. “Azienda-00” è il numero di sequenza, puoi modificarlo secondo le tue esigenze.