Come inserire il conto alla rovescia in Excel?
Se vuoi gestire alcuni dati in un tempo limitato, puoi inserire un timer per il conto alla rovescia nel foglio di lavoro dei dati e, al termine del conto alla rovescia, verrà visualizzata una finestra di dialogo per ricordartelo. Qui ti dirò un codice VBA per inserire un conto alla rovescia in Excel.
Inserisci il conto alla rovescia in Excel
Inserisci il conto alla rovescia in Excel
In Excel, non è possibile eseguire il conto alla rovescia, ma puoi copiare il seguente codice VBA per aiutare il conto alla rovescia.
1. Selezionare una cella e formattarla come formattazione dell'ora facendo clic con il pulsante destro del mouse sulla cella e selezionando formato celle, quindi nella finestra di dialogo, facendo clic su Ora e selezionando 13:30:55 nel Tipologia elenco, infine facendo clic OK per uscire da questa finestra di dialogo. Vedi screenshot:
2. Digitare il tempo per il quale si desidera eseguire il conto alla rovescia nella cella di formattazione. Vedi screenshot:
3. Stampa Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
4. Clic inserire > Moduli e quindi copia il seguente VBA nella nuova finestra.
VBA: 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
Consiglio: E1 nel codice sopra indica la cella dell'ora digitata nel passaggio 2.
5. Clic Correre pulsante o premere F5 per eseguire il conto alla rovescia. Ora il tempo è contato alla rovescia.
6. E quando il conto alla rovescia è finito, una finestra di dialogo spuntata te lo ricorderà.
Consiglio: Non è possibile interrompere il conto alla rovescia quando è in esecuzione tranne che per la chiusura della cartella di lavoro.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!