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.