Come si inserisce un timer conto alla rovescia in Excel?
Se desidera elaborare alcuni dati entro un tempo limitato, può inserire un timer conto alla rovescia nel foglio di lavoro: al termine del conto alla rovescia, verrà visualizzata una finestra di dialogo per ricordarglielo. Di seguito le illustrerò un codice VBA per aggiungere un timer conto alla rovescia in Excel.
Inserire un timer conto alla rovescia in Excel
Inserire un timer conto alla rovescia in Excel
Excel non include una funzione nativa per il conto alla rovescia, ma puoi utilizzare il seguente codice VBA per gestire il conteggio del tempo in modo efficace.
1. Seleziona una cella e formattala come orario: fai clic con il pulsante destro del mouse sulla cella e scegli Imposta formato cella. Nella finestra di dialogo che si apre, clicca su Ora, seleziona 13:30:55 dall’elenco Tipo e infine fai clic su OK per chiudere la finestra. Vedere lo screenshot:
 |
 |
 |
2. Digita nella cella formattata il tempo da cui far partire il conto alla rovescia. Vedi lo screenshot:
3. Premere i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic, Applications Edition.
4. Fare clic su Inserisci > Modulo e copiare il seguente codice VBA nella nuova finestra.
VBA: Timer conto alla rovescia.
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 riportato sopra indica la cella in cui hai digitato l’orario al passaggio 2.
5. Fare clic sul pulsante Esegui oppure premere F5 per avviare il timer conto alla rovescia. A questo punto, il tempo viene contato alla rovescia.
6. Al termine del conto alla rovescia, apparirà una finestra di dialogo a comparsa per avvisarla.
Suggerimento: Non puoi interrompere il conto alla rovescia mentre è in esecuzione, a meno che tu non chiuda la cartella di lavoro.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi