Atualização segundo a segundo no Excel

Às vezes gostaríamos que, ao usar a função =AGORA() do Excel, que o Excel atualizasse a mesma automaticamente, para termos a data e a hora segundo a segundo dentro do Excel (apenas por diversão, claro). Ou seja: queremos uma atualização segundo a segundo da nossa planilha.

Coloque em uma célula qualquer a função

=AGORA()

Entre no Editor do Visual Basic (Fica no menu de Macros: no Excel 2003 é no menu Ferramentas, opção Macro e escolha Editor do Visual Basic, já no Excel 2010, use o atalho Alt+F11)

No Editor do Microsoft Visual Basic escolha, no menu Inserir, a opção Módulo. Cole o código abaixo:

' ' ' ' ' ' ' inicio código

Dim Go As Boolean

Sub StartClock()
Go = True
MyClock
End Sub

Sub MyClock()
If Go Then
ActiveSheet.Calculate
Application.OnTime Now() + TimeValue("00:00:01"), "MyClock"
End If
End Sub

Sub StopClock()
Go = False
End Sub

' ' ' ' ' ' ' ' ' ' fim código

Agora feche a janela do Visual Basic (é opcional: pode deixar aberta e não precisa salvar se fechar) e volte ao Excel. Entre no menu Ferramentas e na opção Macro selecione Macros… (ou tecle o atalho Alt+F8)

Agora basta executar a macro StartClock quando quiser o Excel atualizado a cada segundo ou StopClock para parar a atualização…

Gostou? Tem dúvidas? Entre em contato ou deixe um comentário!