Como aumentar um número automaticamente ao abrir a pasta de trabalho?
Se você deseja aumentar uma célula numérica em 1 automaticamente toda vez que abrir a pasta de trabalho, é claro que pode adicionar 1 manualmente. Mas, existe algum método melhor para adicionar 1 ao número automaticamente ao abrir o documento do Excel?
Aumente um número automaticamente ao abrir a pasta de trabalho com código VBA
Aumente um número automaticamente ao abrir a pasta de trabalho com código VBA
O seguinte código VBA simples pode ajudá-lo a adicionar 1 à célula numérica automaticamente sempre que a pasta de trabalho for aberta. Por favor, siga estas instruções:
1. Pressione e segure as teclas ALT + F11, isso abrirá a janela Microsoft Visual Basic for Applications.
2. No painel Project-VBAProject, clique duas vezes em ThisWorkbook para abrir o Módulo, depois copie e cole o código abaixo no módulo, veja a captura de tela:
Código VBA: Aumente um número automaticamente quando a pasta de trabalho for aberta:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub
Observação: No código acima, Sheet1 e A2 são a planilha e a célula que contêm o número que você deseja aumentar automaticamente. Altere-os conforme necessário.
3. Em seguida, você deve salvar o arquivo do Excel no formato Pasta de Trabalho Habilitada para Macro do Excel, veja a captura de tela:
A partir de agora, quando você abrir esta pasta de trabalho específica, o número na célula A2 na Sheet1 será aumentado automaticamente em 1.
Observação: Este código só se aplica à célula numérica.
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