Počakajte ali zamudite v VBA
Obstaja veliko primerov, ko je časovnik lahko koristen v Excelu, tukaj je en način, da poskusite:
1234 | Sub MyTimer ()Aplikacija. Počakajte zdaj + TimeValue ("00:00:05")MsgBox ("5 sekund")End Sub |
Par uporabnikov a časovnik v Excelu VBA zaustavljajo kodo in merijo pretečeni čas. Naslednje vas bo popeljalo na ustrezno mesto, kjer sem objavil primer vsake uporabe:
1. Z aplikacijo začasno ustavite izvajanje kode za želeni čas. Počakajte (simulira časovnik)
povezava: Skrij Excel
2. Izmerite pretečeni čas s časovnikom v VBA
povezava: Primerjalna koda
Počakajte ali zamudite v Access VBA
V Access VBA lahko uporabite tudi zgornje metode. Na primer, morda bi radi vedeli, kako dolgo traja premikanje po nizu zapisov.
123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Časovnik'Začetek preskušanja kodeNastavite dbs = CurrentDbNastavi rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)S prvimNaredi do .EOF = Res.Premakni se naprejZankaKončaj s'Konec preskusne kodeMsgBox "Trajalo je" & Timer - BenchMark & "seconds to loop"End Sub |