Como inserir um temporizador no MS Excel
Abra uma planilha do Excel e clique em "Desenvolvedor" na barra de menu na parte superior da tela. Se ele não aparecer na lista, clique no botão "Microsoft Office", "Opções do Excel", "Popular" e selecione a guia "Mostrar desenvolvedor".
Clique em "Inserir" na nova janela que aparece e selecione "Procedimento" no menu suspenso, digite um nome para o novo procedimento, como "ExcelTimer" e certifique-se do tipo selecionado é "Sub".
Escreva o seguinte texto em linhas separadas no painel à direita, entre "Public Sub ExcelTimer ()" e "End Sub": Dim PauseTime, Iniciar, Concluir, TotalTime If (MsgBox ("Pressione Sim para Obter um Lembrete de Pausa", 4 )) = vbYes Então PauseTime = 10 Start = Timer Do while Timer <Iniciar + PauseTime DoEvents Application.Speech.Speak "Hora de fazer uma pausa!" Loop Finish = Timer TotalTime = Finish - Start MsgBox "Pausa durou" & TotalTime & "seconds" Else End End Se End Sub
Verifique a função pressionando a tecla "F5". Uma planilha padrão do Excel será aberta e você verá uma pequena janela com o texto "Pressione sim para obter um lembrete de intervalo" (pressione "Sim" para obter um lembrete). Clique no botão "Sim" Se você não vir o mesmo, certifique-se de ter inserido corretamente o código na etapa 3.
Clique em "OK" quando o timer terminar a execução para retornar à planilha.
Atribuir uma tecla de atalho para esta ação, selecionando-o nas listas de macro e clique em "Opções".