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 conto alla rovescia. Tuttavia, con un linguaggio di programmazione chiamato Visual Basic, Applications Edition, è possibile scrivere una semplice macro per eseguire la funzione di conto alla rovescia. Questo articolo mostra come creare una macro che consenta a un timer di contare alla rovescia fino a 12 ore, adatta per la gestione del tempo all'interno di un foglio di lavoro.

Formatta la cella timer

Passaggio 1

In un nuovo foglio di lavoro aperto, vai alla cella A1. Questa sarà la posizione del timer di esempio.

Passaggio 2

Fare clic con il pulsante destro del mouse sulla cella A1 e seleziona Formatta 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.

Crea la macro

Passaggio 1

Accedi alla finestra di modifica di Visual Basic premendo ALT-F11 . Fai clic su Inserisci dalla barra dei menu e fai clic su Modulo .

Passaggio 2

Immettere il seguente testo nella finestra Modulo1:

Dim gConta come data
Timer secondario()
gCount =Now + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
Fine Sub
Sub EndMessage()
Dim xRng come intervallo
Imposta xRng =Application.ActiveSheet.Range ("A1")
xRng.Value =xRng.Value - TimeSerial(0, 0, 1)
Se xRng.Value <=0 Allora
MsgBox "Conto alla rovescia completato."
Esci Sub
Finisci se
Timer di chiamata
Fine Sub

Puoi copiare e incollare il testo del codice sopra, oppure puoi digitarlo, riga per riga, nella finestra del Modulo1. L'editor VBA applica la formattazione secondo necessità.

Passaggio 3

Riduci a icona la finestra VBA facendo clic su - simbolo nell'angolo in alto a destra. Fai clic su File sulla barra multifunzione e Salva con nome . Seleziona una posizione in cui salvare il file. Nella finestra Salva con nome, assegna un nome alla cartella di lavoro e seleziona Cartella di lavoro abilitata per Excel (*.xlsm) dal Salva come tipo menu `A tendina. Fai clic su Salva e torna alla cartella di lavoro.

Utilizzo del timer

Passaggio 1

Fare clic sulla cella A1 e inserisci 0:3:0 , quindi premi Invio . Questo imposta il tempo per 0 ore, 3 minuti e 0 secondi.

Passaggio 2

Fai clic su Visualizza scheda sulla barra multifunzione e fai clic 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 un Conto alla rovescia completato si apre la finestra di dialogo. Fai clic su OK per tornare al tuo lavoro.

Suggerimento

Non è necessario utilizzare la cella A1. Posiziona il timer ovunque e modifica il riferimento di cella nella riga 8 del codice del timer da A1 a qualsiasi cella utilizzi.