Relógio no Excel

Se você pretende inserir um relógio que funcione 24hs nas suas planilhas, siga as etapas abaixo:

• Abra uma planilha em branco e salve como Relógio. Use o tipo Pasta de trabalho habilitada para macro do Excel (*.xslm);
• Na célula A1, formate a célula como Hora (*13:30:55);
• Digite uma hora qualquer, por exemplo, 20:00:00;
• Insira dois botões, um para iniciar o relógio e outro para sair do Excel;
• Use o atalho Alt F11 para acessar o ambiente Microsoft Visual Basic;
• Selecione a planilha Plan1 na janela de projeto e clique duplo par abrir a janela a direita se ainda não estiver aberta;
• Copie as rotinas abaixo e cole na janela da direita:

Dim Recalcular As Date

Public Sub Iniciar()

Recalcular = Now + TimeValue("00:00:01")

Application.OnTime Recalcular, "Plan1.Atualizar"

End Sub

Sub Atualizar()

Range("A1").Value = Now Call Iniciar

End Sub

Sub Sair()

Application.Quit

End Sub

Saia do ambiente Visual Basic.

Não esqueça de criar as conexões de macros com os botões.

No botão Iniciar, clique com o botão direito do mouse. Escolha atribuir macro e escolha Iniciar.

No botão Sair, clique com o botão direito do mouse. Escolha atribuir macro e escolha Sair.

Ctrl B para salvar a planilha.

Feche a pasta e reabra novamente. Habilitar macros e clicar no botão Iniciar.

Link:

http://www.easy-share.com/1909719669/Relógio.rar