Como incrementar automaticamente o valor da célula após cada impressão?
Em muitos fluxos de trabalho administrativos e empresariais, pode ser necessário imprimir várias cópias de um documento, fatura ou cheque, cada uma rotulada com um número de série único ou identificador para facilitar o registro e o acompanhamento. Por exemplo, imagine que você tenha uma planilha do Excel formatada como um modelo de cheque ou voucher, e a célula A1 contém um número de cheque como "Empresa-001". Ao imprimir 100 cópias dessa página, seria tedioso e suscetível a erros atualizar manualmente o número para cada impressão individual. Idealmente, você gostaria que o Excel incrementasse automaticamente o valor na célula A1 a cada ação de impressão, de modo que a primeira impressão mostre "Empresa-001", a segunda "Empresa-002" e assim por diante, até "Empresa-100".
Por padrão, o Excel não oferece um recurso nativo para aumentar automaticamente o valor de uma célula após cada tarefa de impressão. No entanto, você pode alcançar essa automação com a ajuda de uma macro VBA. Usar VBA é uma solução prática se você precisar gerar cópias numeradas consecutivamente de forma eficiente, especialmente ao trabalhar com formulários em série, ingressos, cheques ou qualquer cenário que requeira identificadores únicos para páginas impressas. Essa abordagem ajuda a evitar erros manuais, economiza tempo e garante que cada cópia receba um número único conforme necessário.
A seguir, apresentamos um método VBA para incrementar automaticamente os valores das células para cada cópia impressa. Além disso, este artigo oferece orientações sobre o uso eficaz, possíveis advertências e dicas práticas para otimizar tarefas de impressão em lote no seu fluxo de trabalho do Excel.
Incrementar automaticamente o valor da célula após cada impressão com código VBA
Incrementar automaticamente o valor da célula após cada impressão com código VBA
Não há uma opção direta e nativa no Excel para incrementar automaticamente o valor de uma célula com cada impressão. Para automatizar esse processo, você pode usar uma macro VBA para imprimir eficientemente um número especificado de cópias, cada uma com um identificador incrementado na célula A1. Esse método é especialmente adequado para gerar cópias físicas personalizadas (como cheques, etiquetas, formulários, etc.) com numeração sequencial. Observe que o uso de macros pode exigir a habilitação de macros no ambiente do Excel, e a execução de código VBA pode afetar as configurações de segurança do arquivo. Sempre salve seu trabalho antes de executar qualquer código.
1. Pressione as teclas ALT + F11 juntas para abrir a janela Microsoft Visual Basic for Applications. Se esta for a sua primeira vez usando VBA, pode ser necessário habilitar a guia Desenvolvedor na faixa de opções do Excel.
2. No editor VBA, clique em Inserir > Módulo para abrir uma nova janela de módulo. No novo módulo, copie e cole o código VBA fornecido abaixo. Este script ajudará você a incrementar o número da impressão para cada cópia que você imprimir da planilha ativa.
Código VBA: Incrementar automaticamente o 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
Este código solicita o número total de cópias que você deseja imprimir, manipula a atualização da célula A1 para cada ciclo de impressão e imprime cada versão automaticamente.
3. Após colar o código, certifique-se de que sua planilha está pronta e a célula ativa (geralmente A1) contém o texto base correto (como "Empresa-001"). Pressione a tecla F5 ou clique em Executar no editor VBA para iniciar a macro. Uma caixa de diálogo aparecerá perguntando quantas cópias você deseja imprimir; insira o número desejado (por exemplo, 100) e confirme a entrada. Consulte a captura de tela da interface abaixo para referência:
Se você inserir um valor não numérico ou clicar em Cancelar, o processo será interrompido sem nenhuma ação. Certifique-se de inserir apenas números e verifique novamente o valor inicial na célula A1 antes de prosseguir.
4. Clique no botão OK. Agora, a macro imprimirá automaticamente a planilha o número especificado de vezes, ajustando a sequência na célula A1 a cada vez, de modo que cada página impressa seja numerada em ordem (por exemplo, Empresa-001, Empresa-002, Empresa-003, ... até Empresa-100, dependendo da sua entrada e da formatação no macro).
Notas e dicas adicionais: No código, a célula A1 é usada para o número de série. Qualquer conteúdo existente em A1 será substituído pelo primeiro número da nova sequência, então, se você tiver informações que deseja manter, certifique-se de fazer backup dessa célula antes de executar o código. O prefixo numérico padrão ("Empresa-00") pode ser ajustado no código VBA para corresponder ao formato de série preferido; altere tanto o texto quanto o preenchimento numérico conforme desejado. Tenha cuidado ao usar a macro em pastas de trabalho compartilhadas ou protegidas, pois a execução de macros requer as permissões adequadas. Se sua impressora for lenta, evite executar o script com números muito grandes de cópias para evitar sobrecarregar a fila de impressão.
Se você encontrar problemas como o trabalho de impressão não iniciando, os números não sendo incrementados corretamente ou erros relacionados a referências de células, verifique se as macros estão habilitadas e se sua planilha não está protegida. Certifique-se de ter definido corretamente a célula de referência (A1 neste exemplo) antes de executar e considere salvar sua pasta de trabalho antes de operações em lote para evitar perda de dados involuntária. Se for necessária mais personalização (como usar uma célula diferente, formato numérico ou planilha), ajuste as referências de células e as linhas de formatação no código VBA conforme apropriado.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins