In Excel, kan det ikke nedtellingstiden, men du kan kopiere den oppfølging VBA-kode for å hjelpe teller ned tiden.
1. Velg en celle og formatere den som tiden formatering ved å høyreklikke på cellen og velge Formater celler, deretter i dialog klikke Tid og velge 13:30:55 i Type-listen, endelig klikke OK for å avslutte denne dialogen. Se skjermbilde:
2. Skriv den tiden du ønsker å nedtelling inn formater cellen. Se skjermbilde:
tre. Trykk ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
4. Klikk Sett > Modul og deretter kopiere følgende VBA inn i det nye vinduet
VBA:.. Nedtell.tidtaker
Dim gCount Som Date'Updateby20140925Sub Timer () gCount = nå + TIMEVALUE ("0:00:01") Application.OnTime gCount, "ResetTime" End SubSub ResetTime () Dim xRng Som RangeSet xRng = Application.ActiveSheet.Range ("E1") xRng.Value = xRng.Value - TimeSerial (0, 0, 1) Hvis xRng.Value < = 0 Then MsgBox "Countdown fullført." Exit SubEnd IfCall TimerEnd SubTip: E1 i koden ovenfor indikerer tiden cellen du skriver i trinn 2.
5. Klikk Kjør-knappen eller trykk F5 for å kjøre nedtelleren. Nå er tiden telles ned.
6. Og når nedtellingen er ferdig, vil en popped out dialog minne deg
. Tips: Du kan ikke stoppe nedtellingen når den er i gang, bortsett lukker arbeidsboken
.