Αντίστροφη μέτρηση στη γραμμή κατάστασης χρησιμοποιώντας VBA στο Microsoft Excel

Αν αναρωτιέστε πώς μπορώ να δημιουργήσω χρονοδιακόπτη στο excel

Ερώτηση:

Στη γραμμή κατάστασης εμφανίζεται μια αντίστροφη μέτρηση από 30 έως 0 δευτερόλεπτα.

Απάντηση:
Εισαγάγετε τον ακόλουθο κώδικα στην τυπική μονάδα.

Sub CountDown () Dim intCounter As Integer Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True For intCounter = 30 To 1 Step -1 Application.StatusBar = intCounter & "Seconds…" Application.Wait Now + TimeSerial (0, 0, 1) Επόμενη εφαρμογή intCounter.StatusBar = False Application.DisplayStatusBar = bln End Sub Με αυτόν τον τρόπο μπορείτε να χρησιμοποιήσετε τη γραμμή κατάστασης για να εμφανίσετε χρονοδιακόπτη excel vba.