Come inserire un timer per il conto alla rovescia in un foglio di lavoro Excel
Di per sé, Excel non ha una funzione per includere un timer per il conto alla rovescia. Tuttavia, con un linguaggio di programmazione chiamato Visual Basic for Applications (VBA), è possibile scrivere una semplice macro per eseguire la funzione di conto alla rovescia. Questo articolo mostra come creare una macro che abilita un timer per contare fino a 12 ore, adatto per la gestione del tempo all'interno di un foglio di lavoro.
Formattare la cella del timer
Passaggio 1
In un nuovo foglio di lavoro aperto, vai alla cella A1. Questa sarà la posizione del timer di esempio.
Passaggio 2
Fai clic destro sulla cella A1 e seleziona Formato celle.
Passaggio 3
Seleziona Ora dalla casella Categoria e scegli uno dei formati ore:minuti:secondi. Fai clic su OK per impostare il formato della cella.
Creare la macro
Passaggio 1
Accedi alla finestra di modifica di Visual Basic premendo ALT+F11. Fai clic su Inserisci dalla barra dei menu e clicca su Modulo.
Passaggio 2
Inserisci il seguente testo nella finestra Modulo1:
Dim gCount As Date
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("A1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Puoi copiare e incollare il codice sopra, oppure digitarlo riga per riga nella finestra Modulo1. L'editor VBA applica la formattazione necessaria.
Passaggio 3
Riduci a icona la finestra VBA facendo clic sul simbolo - nell'angolo in alto a destra. Fai clic su File sulla barra multifunzione e Salva con nome. Seleziona una posizione per salvare il file. Nella finestra Salva con nome, dai un nome alla cartella di lavoro e seleziona Cartella di lavoro con attivazione macro di Excel (*.xlsm) dall'elenco a discesa Salva come. Fai clic su Salva e torna alla cartella di lavoro.
Utilizzare il timer
Passaggio 1
Fai clic sulla cella A1 e inserisci 0:3:0, poi premi Invio. Questo imposta il tempo per 0 ore, 3 minuti e 0 secondi.
Passaggio 2
Fai clic sulla scheda Visualizza sulla barra multifunzione e clicca su Macro. Seleziona Timer dall'elenco Macro e fai clic su Esegui. La cella del timer inizierà il conto alla rovescia fino a zero, quando si aprirà una finestra di dialogo Countdown completato. Fai clic su OK per tornare al lavoro.
Suggerimento
Non devi per forza usare la cella A1. Posiziona il timer ovunque e modifica il riferimento alla cella alla riga 8 del codice del timer da A1 a qualunque cella tu utilizzi.