Lang L: none (table-of-contents)
Oodake või viivitage VBA -s
On palju juhtumeid, kus taimer võib Excelis kasulik olla, siin on üks meetod, mida proovida:
| 1234 | Alam MyTimer ()Application.Oota kohe + TimeValue ("00:00:05")MsgBox ("5 sekundit")End Sub |
Paar kasutusviisi a taimer Excelis VBA peatavad koodi ja mõõdavad kulunud aega. Järgmine viib teid vastavasse kohta, kuhu olen postitanud näite iga kasutamise kohta:
1. Peatage rakenduse abil koodi täitmine soovitud aja jooksul. Oodake (taimerit simuleerides)
link: peida Excel
2. Mõõtke möödunud aega taimeriga VBA -s
link: Benchmarking Code
Oodake või viivitage Access VBA -s
Ülaltoodud meetodeid saate kasutada ka Access VBA -s. Näiteks võite soovida teada, kui kaua kulub kirjete kogumi liikumiseks.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Loe nii kauaDim BenchMark As DoubleBenchMark = Taimer'Testitava koodi algusMäära dbs = CurrentDbMäära rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Koos esimesegaTehke kuni .EOF = Tõsi.MoveNextLoopLõpeta'Koodi lõpp testimiseksMsgBox "Kulus" ja taimer - BenchMark & "sekundit silmuseni"End Sub |
