Așteptați sau întârziați în VBA
Există multe cazuri când un cronometru ar putea fi util în Excel, iată o metodă de încercat:
| 1234 | Sub MyTimer ()Aplicație. Așteptați acum + TimeValue ("00:00:05")MsgBox („5 secunde”)Sfârșitul Sub |
Un cuplu folosește un temporizator în Excel VBA întrerup codul și măsoară timpul scurs. Următoarele vă vor duce la locul respectiv în care am postat un exemplu de fiecare utilizare:
1. Întrerupeți executarea codului pentru o perioadă de timp dorită cu Application.Wait (simulând un cronometru)
link: Ascundeți Excel
2. Măsurați timpul scurs cu un temporizator în VBA
link: Cod de comparare
Așteptați sau întârziați în Access VBA
De asemenea, puteți utiliza metodele de mai sus în Access VBA. De exemplu, ați putea dori să știți cât durează să treceți printr-un set de înregistrări.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark ca dubluBenchMark = Timer„Începutul codului de testatSetați dbs = CurrentDbSetați rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Cu primaFă până .EOF = Adevărat.MoveNextBuclăSe termina cu„Sfârșitul codului de testatMsgBox "A durat" & Timer - BenchMark & "secunde pentru a se bucla"Sfârșitul Sub |
