Palaukite arba atidėkite VBA
Yra daug atvejų, kai laikmatis gali būti naudingas „Excel“, čia yra vienas būdas išbandyti:
| 1234 | Antrasis „MyTimer“ ()Application.Palauk dabar + TimeValue ("00:00:05")„MsgBox“ („5 sekundės“)Pabaiga Sub |
Pora naudoja a laikmatis „Excel VBA“ pristabdo kodą ir matuoja praėjusį laiką. Toliau pateksite į atitinkamą vietą, kurioje paskelbiau kiekvieno naudojimo pavyzdį:
1. Pristabdykite kodo vykdymą norimą laiką naudodami programą. Palaukite (imituodami laikmatį)
nuoroda: paslėpti „Excel“
2. Išmatuokite praleistą laiką laikmačiu VBA
nuoroda: Palyginimo kodas
Palaukite arba atidėkite prieigą prie VBA
Taip pat galite naudoti aukščiau pateiktus metodus „Access VBA“. Pavyzdžiui, galbūt norėsite sužinoti, kiek laiko reikia perkelti įrašų rinkinį.
| 123456789101112131415 | Sub LoopThroughRecords ()Šviesiai skaičiuoti kaip ilgai„Dim BenchMark As Double“„BenchMark“ = laikmatis„Kodo testavimo pradžiaNustatykite dbs = CurrentDbNustatykite rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Su pirmDaryti iki .EOF = Tiesa.PerkeltiToliauKilpaPabaiga su„Bandomo kodo pabaiga„MsgBox“ „Užtruko“ ir laikmatis - „BenchMark“ ir „sekundės, kol ciklas baigėsi“Pabaiga Sub |
