VBA'da Bekleyin veya Geciktirin
Excel'de bir zamanlayıcının yararlı olabileceği birçok örnek vardır, işte denenecek bir yöntem:
| 1234 | Alt MyTimer()Application.Wait Now + TimeValue("00:00:05")MsgBox ("5 saniye")Alt Bitiş |
Bir çift kullanım zamanlayıcı Excel VBA'da kodu duraklatıyor ve geçen süreyi ölçüyor. Aşağıdakiler sizi her kullanım için bir örnek yayınladığım ilgili yere götürecektir:
1. Application.Wait (zamanlayıcı simülasyonu) ile kod yürütmeyi istenen süre boyunca duraklatın
bağlantı: Excel'i gizle
2. VBA'da bir Zamanlayıcı ile geçen süreyi ölçün
bağlantı: Kıyaslama Kodu
Access VBA'da Bekleme veya Gecikme
Yukarıdaki yöntemleri Access VBA'da da kullanabilirsiniz. Örneğin, bir kayıt kümesinde hareket etmenin ne kadar sürdüğünü bilmek isteyebilirsiniz.
| 123456789101112131415 | Alt LoopThroughRecords()Dim Sayısı UzunDim BenchMark Çift OlarakBenchMark = Zamanlayıcı'Test Edilecek Kodun Başlangıcıdbs'yi ayarla = CurrentDbSet rst = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)ilk ile.EOF = Doğruya Kadar Yapın.Sonraki TaşıDöngüİle bitmek'Test Edilecek Kodun SonuMsgBox "" & Timer - BenchMark & "döngüye alınması saniyeler sürdü"Alt Bitiş |
