Sisällysluettelo
Odota tai viivytä VBA: ssa
On monia tapauksia, joissa ajastin voi olla hyödyllinen Excelissä, tässä on yksi tapa kokeilla:
| 1234 | Sub MyTimer ()Application.Odota nyt + TimeValue ("00:00:05")MsgBox ("5 sekuntia")End Sub |
Pari käyttötapaa a ajastin Excel VBA: ssa keskeytetään koodi ja mitataan kulunut aika. Seuraava vie sinut siihen paikkaan, johon olen lähettänyt esimerkin jokaisesta käytöstä:
1. Keskeytä koodin suoritus halutuksi ajaksi Sovelluksella. Odota (ajastimen simulointi)
linkki: Piilota Excel
2. Mittaa kulunut aika ajastimella VBA: ssa
linkki: Benchmarking Code
Odota tai viivytä Access VBA: ssa
Voit myös käyttää yllä olevia menetelmiä Access VBA: ssa. Haluat esimerkiksi tietää, kuinka kauan tietuejoukon läpi siirtyminen kestää.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Laske niin kauanDim BenchMark As DoubleBenchMark = Ajastin'Testattavan koodin alkuAseta dbs = CurrentDbAseta rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Ensimmäisen kanssaTee kunnes .EOF = TosiSiirräSeuraavaSilmukkaLopeta'Testattavan koodin loppuMsgBox "Kesti" & Ajastin - BenchMark & "sekuntia silmukkaan"End Sub |
