Notifications
Clear all

Macro que não para de calcular células

2 Posts
2 Usuários
0 Reactions
885 Visualizações
(@sjmartins)
Posts: 0
New Member
Topic starter
 

olá pessoal,

Acho que deve haver no fórum mas não sabia como pesquisar.

Por exemplo, gravei uma macro que fica recalculando as fórmulas, sou seja, f9 apertado. Queria dar um jeito que la não parasse, continuasse calculando sem parar.
Será que dá? :D :D

-------------------------------------------------

Sub aleat()
'
' aleat Macro
'

'
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate
Calculate

End Sub

 
Postado : 15/07/2015 10:31 am
(@issamu)
Posts: 0
New Member
 
Const sTempo As String = "00:00:05"

Public Sub TimerDefinir()
    Application.OnTime EarliestTime:=Now + TimeValue(sTempo), Procedure:="TimerAtualizar"
End Sub

Public Sub TimerCancelar()
    Application.OnTime EarliestTime:=Now + TimeValue(sTempo), Procedure:="TimerAtualizar", Schedule:=False
End Sub

Public Sub TimerAtualizar()
    Calculate
    TimerDefinir
End Sub

Execute a rotina TimerAtualizar e assim a rotina para calcular vai rodar a cada 5 segundos, que pode ser ajustado na primeira linha para mais ou menos.
Para parar a rotina deve-se executar a rotina TimerCancelar.

Para mais informações, acesse: http://web.archive.org/web/20150406163646/http://ambienteoffice.com.br/officevba/executar_macro_periodicamente_ou_num_horario/

 
Postado : 15/07/2015 11:18 am