Αναμονή ή Καθυστέρηση στο VBA
Υπάρχουν πολλές περιπτώσεις όπου ένας χρονοδιακόπτης θα μπορούσε να είναι χρήσιμος στο Excel, εδώ είναι μια μέθοδος για να δοκιμάσετε:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 δευτερόλεπτα")Τέλος υπο |
Ένα ζευγάρι χρησιμοποιεί α μετρών την ώραν στο Excel VBA θέτουν σε παύση τον κώδικα και μετρούν τον χρόνο που έχει παρέλθει. Τα παρακάτω θα σας μεταφέρουν στο αντίστοιχο μέρος που έχω δημοσιεύσει ένα παράδειγμα κάθε χρήσης:
1. Παύση εκτέλεσης κώδικα για ένα επιθυμητό χρονικό διάστημα με την εφαρμογή. Περιμένετε (προσομοίωση χρονοδιακόπτη)
σύνδεσμος: Απόκρυψη Excel
2. Μετρήστε τον χρόνο που πέρασε με ένα χρονόμετρο σε VBA
σύνδεσμος: Κώδικας συγκριτικής αξιολόγησης
Περιμένετε ή καθυστερήστε την πρόσβαση VBA
Μπορείτε επίσης να χρησιμοποιήσετε τις παραπάνω μεθόδους στο Access VBA. Για παράδειγμα, μπορεί να θέλετε να μάθετε πόσος χρόνος χρειάζεται για να μετακινηθείτε σε μια συσκευή εγγραφής.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Χρονοδιακόπτης'Έναρξη κώδικα για δοκιμήΟρίστε dbs = CurrentDbΡύθμιση rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Με πρώτηΕκτελέστε μέχρι .EOF = True.MoveNextΒρόχοςΤέλος μεΤέλος κώδικα σε δοκιμήMsgBox "Χρειάστηκε" & Χρονοδιακόπτης - BenchMark & "δευτερόλεπτα για βρόχο"Τέλος υπο |
