Como aumentar automaticamente um número ao abrir o livro?
Se pretender aumentar automaticamente uma célula com número em 1 sempre que abrir o livro, claro que pode adicionar 1 manualmente. Mas será que existe um método melhor para adicionar 1 ao número automaticamente ao abrir o documento do Excel?
Aumentar automaticamente um número ao abrir o livro com código VBA
Aumentar automaticamente um número ao abrir o livro com código VBA
O seguinte código VBA simples permite-lhe adicionar automaticamente 1 à célula com número sempre que o livro for aberto. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á a janela do Microsoft Visual Basic para Aplicações.
2. No painel Projeto - VBAProject, faça duplo clique em EsteLivro para abrir o Módulo. Depois, copie e cole o código abaixo no módulo. Veja a imagem:
Código VBA: Aumentar automaticamente um número ao abrir o livro:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Nota: No código acima, Folha1 e A2 são a folha e a célula que contêm o número que pretende incrementar automaticamente. Por favor, ajuste-as conforme necessário.
3. Em seguida, guarde o ficheiro do Excel no formato Livro do Excel com Macros Ativadas. Veja a imagem:
A partir de agora, sempre que abrir este livro específico, o número na célula A2 da Folha1 será automaticamente incrementado em 1.
Nota: Este código aplica-se apenas a células com números.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos