Excel Contar para o próximo número na célula quando o documento é aberto

Question

Eu estou tentando fazer um documento do Excel que contará para o próximo número em uma célula toda vez que o documento for aberto. Há algum caminho? Eu apreciaria qualquer ajuda.

    

Answer 1

Você precisa de um evento que acione o processo de contagem. Isso só é possível com o VBA, tanto quanto eu sei. Mas isso não é difícil.

1. Abra o Excel e o editor de VBA com ALT + F11

2. Coloque este código em ThisWorkbook

   Private Sub Workbook_Open()
       Sheets(1).[A1] = Sheets(1).[A1] + 1
   End Sub
   

Cada vez que sua pasta de trabalho for aberta, ela conta um contador na célula A1 na primeira planilha.

Apenas para os geeks. É até possível esconder o contador dentro do seu código VBA. Coloque este código em ThisWorkbook e veja o que acontece se você reabrir sua pasta de trabalho.

Const counter = 1

Private Sub Workbook_Open()
    countUP = Mid(ActiveWorkbook.VBProject.VBComponents(1).CodeModule.Lines(1, 1), 17) + 1
    Application.VBE.CodePanes(1).CodeModule.ReplaceLine 1, "Const counter = " & countUP
End Sub