Satura rādītājs
Pagaidiet vai aizkavējiet VBA
Ir daudz gadījumu, kad taimeris var būt noderīgs programmā Excel, šeit ir viena metode, ko izmēģināt:
| 1234 | Papildu MyTimer ()Application.Gaidiet tūlīt + TimeValue ("00:00:05")MsgBox ("5 sekundes")Beigu apakš |
Pāris lietojumi a taimeris programmā Excel VBA pārtrauc kodu un mēra pagājušo laiku. Tālāk jūs nonāksit attiecīgajā vietā, kurā esmu ievietojis katras lietošanas piemēru:
1. Pauzējiet koda izpildi uz vēlamo laiku, izmantojot lietojumprogrammu. Pagaidiet (simulējot taimeri)
saite: paslēpt Excel
2. Izmēriet pagājušo laiku ar taimeri VBA
saite: etalona kods
Pagaidiet vai aizkavējiet piekļuvi VBA
Access VBA varat izmantot arī iepriekš minētās metodes. Piemēram, jūs varētu vēlēties uzzināt, cik ilgs laiks nepieciešams, lai pārvietotos pa ierakstu kopu.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim skaits tik ilgiDim BenchMark As DoubleBenchMark = taimeris'Pārbaudāmā koda sākumsIestatīt dbs = CurrentDbIestatiet rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Ar pirmoDarīt līdz .EOF = True.PārvietotNākamaisCilpaBeigt ar'Pārbaudāmā koda beigasMsgBox "Pagāja laiks" un taimeris - BenchMark & "sekundes, lai izveidotu cilpu"Beigu apakš |
