Notifications
Clear all

Macro que não para de calcular células

2 Posts
2 Usuários
0 Reactions
898 Visualizações
(@sjmartins)
Posts: 41
Eminent 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
(@issamu)
Posts: 605
Honorable 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/

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 15/07/2015 11:18 am