Sådan indsætter du en nedtællingstimer i et Excel-regneark

I et nyt, åbent regneark skal du navigere til celle A1. Dette vil være placeringen af ​​eksempeltimeren.

Højreklik på celle A1 og vælg Formater celler.

Vælg Tid fra boksen Kategori og vælg en af ​​timerne: minutter: sekunders formater. Klik Okay for at indstille celleformatet.

Få adgang til Visual Basic-redigeringsvinduet ved at trykke på ALT-F11. Klik Indsæt fra menulinjen og klik modul.

Indtast følgende tekst i vinduet Modul 1:

Dæmp gCount As Date
Undertimer()
gCount = Now + TimeValue("00:00:01")
Ansøgning. OnTime gCount, "EndMessage"
Slut Sub
Sub EndMessage()
Dim xRng As Range
Indstil xRng = Application. ActiveSheet. Interval ("A1")
xRng. Værdi = xRng. Værdi - TimeSerial (0, 0, 1)
Hvis xRng. Værdi <= 0 Så
MsgBox "Nedtælling fuldført."
Afslut Sub
Afslut Hvis
Opkaldstimer
Slut Sub

Du kan kopiere og indsætte kodeteksten ovenfor, eller du kan skrive den linje for linje i vinduet Modul1. VBA-editoren anvender formatering efter behov.

Minimer VBA-vinduet ved at klikke på - symbol i øverste højre hjørne. Klik Fil på båndet og Gem som. Vælg en placering for at gemme din fil. Giv din projektmappe et navn i vinduet Gem som, og vælg Excel-makroaktiveret projektmappe (*.xlsm) fra Gem som type drop-down liste. Klik Gemme og vende tilbage til arbejdsbogen.

Klik på celle A1 og gå ind 0:3:0, og tryk derefter på Gå ind. Dette indstiller tiden til 0 timer, 3 minutter og 0 sekunder.

Klik på Udsigt fanen på båndet og klik Makroer. Vælg Timer fra makrolisten og klik Løb. Din timercelle begynder at tælle ned til nul, når en Nedtælling fuldført dialog åbnes. Klik Okay at vende tilbage til dit arbejde.

Tip