Come inserire un timer di countdown in Excel?

Se desideri gestire alcuni dati entro un limite di tempo, puoi inserire un timer di countdown nel tuo foglio di lavoro dei dati e, al termine del countdown, apparirà una finestra di dialogo pop-up per avvisarti. Qui ti mostrerò un codice VBA per inserire un timer di countdown in Excel.

Inserisci un timer di countdown in Excel

Inserisci un timer di countdown in Excel

In Excel, non è possibile effettuare il countdown del tempo, ma puoi copiare il seguente codice VBA per aiutarti a contare alla rovescia.

1. Seleziona una cella e formattala come formato orario facendo clic con il pulsante destro del mouse sulla cella e selezionando Imposta formato cella, quindi nella finestra di dialogo, fai clic su Orario e seleziona 13:30:55 nell'elenco Tipo, infine fai clic su OK per uscire da questa finestra di dialogo. Vedi screenshot:

2. Digita il tempo che desideri contare alla rovescia nella cella formattata. Vedi screenshot:

3. Premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

4. Fai clic su Inserisci > Modulo e poi copia il seguente codice VBA nella nuova finestra.

VBA: Timer di countdown.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Suggerimento: E1 nel codice sopra indica la cella dell'orario che hai digitato nel passaggio 2.

5. Fai clic sul pulsante Esegui o premi F5 per avviare il timer di countdown. Ora il tempo verrà contato alla rovescia.

6. E quando il countdown sarà terminato, apparirà una finestra di dialogo pop-up per avvisarti.

Suggerimento: Non puoi interrompere il countdown mentre è in esecuzione, a meno che tu non chiuda la cartella di lavoro.