Home Excel - Dicas Microsoft Excel VBA Excel VBA - Horas Excel planilha vba horas executa macro a cada cinco segundos

Excel planilha vba horas executa macro a cada cinco segundos

E-mail Imprimir PDF

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)

Última atualização em Sáb, 24 de Setembro de 2011 08:29  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4378
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana29038
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês42767
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10465596
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA