Como aumentar um número automaticamente quando a pasta de trabalho é aberta?
Se você quiser aumentar um número de célula em 1 automaticamente ao abrir a pasta de trabalho todas as vezes, é claro, pode adicionar 1 manualmente. Mas, existe algum método melhor para adicionar 1 para o número automaticamente ao abrir o documento do Excel?
Aumente um número automaticamente quando a pasta de trabalho for aberta com o código VBA
Aumente um número automaticamente quando a pasta de trabalho for aberta com o código VBA
O seguinte código VBA simples pode ajudá-lo a adicionar 1 para a célula numérica automaticamente quando a pasta de trabalho for aberta a cada vez, faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
2. No Projeto-VBAProject painel, clique duas vezes Esta pasta de trabalho para abrir o Módulo, em seguida, copie e cole o código abaixo no módulo, consulte 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
Note: No código acima, Sheet1 e A2 são a folha e a célula que contém o número que você deseja aumentar automaticamente. Por favor, altere-os de acordo com sua necessidade.
3. Então você deve salvar o arquivo Excel como Pasta de trabalho habilitada para macro do Excel formato, 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 Planilha1 será adicionado 1 automaticamente.
Note: Este código só se aplica à célula numérica.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!