Como incrementar automaticamente o valor da célula após cada impressão?

Suponha que eu tenha uma página de planilha que precise ser impressa 100 cópias, e a célula A1 é o número do cheque Empresa-001. Agora, gostaria que o número aumentasse em 1 após cada impressão. Isso significa que, ao imprimir a segunda cópia, o número aumentará automaticamente para Empresa-002, na terceira cópia, será Empresa-003… na centésima cópia, será Empresa-100. Existe algum truque para resolver esse problema no Excel rapidamente e, se possível?

Incremento automático do valor da célula após cada impressão com código VBA

Incremento automático do valor da célula após cada impressão com código VBA

Normalmente, não há uma maneira direta de resolver essa tarefa no Excel, mas aqui criarei um código VBA para lidar com isso.

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Incremento automático do valor da célula após cada impressão:

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. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de inserir o número de cópias que deseja imprimir da planilha atual, veja a captura de tela:

4. Clique no botão OK, e sua planilha atual está sendo impressa agora, e ao mesmo tempo, as planilhas impressas são numeradas Empresa-001, Empresa-002, Empresa-003… na célula A1 conforme necessário.

Observação: No código acima, a célula A1 receberá os números de sequência que você ordenou, e o valor original da célula em A1 será apagado. E “Empresa-00” é o número de sequência, você pode alterá-lo conforme necessário.