Saberexcel - o site de quem precisa Aprender Lidar Macros Microsoft Excel VBA
Prezado Douglas,
Aproveitei de sua pergunta e disponiblizei este exemplo de como repetir um macro a cada cinco segundos, também para algumas pessoas que precise venha precisar de um exemplo semelhante. O exemplo executa um macro a cada intervalo de cinco segundos, ou se desejar aumentar o intervalo é so mudar no código a quantidade de segundos desejadas para execução do procedimento. Observe que retornei o horario para planilha com intuíto didático para ajudar alguém que precise retornar o horario. Fique com Deus, Expedito Marcondes
Option Explicit
Public Iniciar_Tempo As Variant 'programção do horário
Public Const vIntervaloSegundos = 5 '5 segundos
Public Const vMensagem = "Pequena_Mensagem" 'nome da macro a ser executada
Sub Repetir_Mensagem()
'Programação do horário mantém + 5 segundos
Iniciar_Tempo = TimeValue(Now + TimeSerial(0, 0, vIntervaloSegundos))
Application.OnTime Iniciar_Tempo, vMensagem
End Sub
Sub Parar_mensagem()
On Error Resume Next
Application.OnTime Iniciar_Tempo, vMensagem, , False
End Sub
Sub Pequena_Mensagem()
Dim sbx
'mensagem será gravada na coluna(b) e (D) - intenção didática
[B65000].End(xlUp).Offset(1, 0).Value = Iniciar_Tempo
[B65000].End(xlUp).Offset(0, 2).Value = "Hora de Aprender VBA(Saberexcel)"
sbx = MsgBox("Se escolher 'NÃO', a mensagem continua !" & vbLf _
& "Quer parar a mensagem ?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Escola Saberexcel VBA Treinamentos - Horários")
If sbx = 7 Then 'se a resposta for igual a 7 (Não)
'continuar a repetir a mensagem
Repetir_Mensagem
Else
'parar a programação de repetição da mensagem
Parar_mensagem
End If
End Sub
Sub limpar_teste()
Saber1.[b2:d40].ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
Baixe o exemplo de planilha contendo os macros acima
Excel vba planilha tempo executa macro a cada cinco segundos (32.58 KB)