Esperar ou atrasar no VBA
Existem muitos casos em que um cronômetro pode ser útil no Excel; aqui está um método para tentar:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 segundos")End Sub |
Alguns usam de um cronômetro no Excel VBA, pausam o código e medem o tempo decorrido. A seguir, você será levado ao respectivo local em que postei um exemplo de cada uso:
1. Pause a execução do código por um período de tempo desejado com Application.Wait (simulando um cronômetro)
link: Ocultar Excel
2. Meça o tempo decorrido com um temporizador em VBA
link: Código de Benchmarking
Aguarde ou atrase no Access VBA
Você também pode usar os métodos acima no Access VBA. Por exemplo, você pode querer saber quanto tempo leva para percorrer um conjunto de registros.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count enquanto LongDim BenchMark As DoubleBenchMark = Timer'Início do código para testarDefinir dbs = CurrentDbDefina rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Com o primeiroFaça até .EOF = Verdadeiro.MoveNextCicloTerminar com'Fim do código para testarMsgBox "Demorou" & Timer - BenchMark e "segundos para fazer o loop"End Sub |
