Hvordan indsættes nedtællingstimer i Excel?
Hvis du vil håndtere nogle data i en begrænset periode, kan du indsætte en nedtællingstimer i dit dataark, og når tiden er nede, er der en poppet ud-dialog for at minde dig om. Her vil jeg fortælle dig en VBA-kode for at indsætte en nedtællingstimer i Excel.
Indsæt nedtællingstimer i Excel
Indsæt nedtællingstimer i Excel
I Excel kan det ikke nedtællingstid, men du kan kopiere følgende VBA-kode for at hjælpe med at tælle tiden ned.
1. Vælg en celle, og formater den som tidsformatering ved at højreklikke på cellen og vælge den formater celler, klik derefter på i dialogboksen Tid og vælge 13:30:55 i Type til sidst klikke OK for at afslutte denne dialog. Se skærmbillede:
2. Indtast det tidspunkt, du vil nedtælle, i formateringscellen. Se skærmbillede:
3. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
4. klik indsatte > Moduler og kopier derefter følgende VBA i det nye vindue.
VBA: Nedtællingstimer.
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
Tip: E1 i ovenstående kode angiver den tidscelle, du skriver i trin 2.
5. klik Kør knappen eller tryk på F5 for at køre nedtællingstimeren. Nu tælles tiden ned.
6. Og når nedtællingen er afsluttet, vil en pop-out-dialog minde dig.
Tip: Du kan ikke stoppe nedtællingen, når den kører, undtagen at lukke projektmappen.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!