Slik setter du inn en nedtellingstidtaker i et Excel-regneark

I et nytt, åpent regneark, naviger til celle A1. Dette vil være stedet for eksempeltimeren.

Høyreklikk celle A1 og velg Formater celler.

Plukke ut Tid fra Kategori-boksen og velg en av timene: minutter: sekunder-formatene. Klikk OK for å angi celleformatet.

Få tilgang til Visual Basic-redigeringsvinduet ved å trykke ALT-F11. Klikk Sett inn fra menylinjen og klikk Modul.

Skriv inn følgende tekst i Module1-vinduet:

Dim gCount As Date
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Applikasjon. OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng As Range
Sett xRng = Application. Aktivt ark. Område("A1")
xRng. Verdi = xRng. Verdi – TimeSerial (0, 0, 1)
Hvis xRng. Verdi <= 0 Deretter
MsgBox "Nedtelling fullført."
Avslutt Sub
Slutt om
Anropstimer
End Sub

Du kan kopiere og lime inn kodeteksten ovenfor, eller du kan skrive den, linje for linje, i Module1-vinduet. VBA-editoren bruker formatering etter behov.

Minimer VBA-vinduet ved å klikke på - symbol i øvre høyre hjørne. Klikk Fil på båndet og Lagre som. Velg en plassering for å lagre filen. Gi arbeidsboken et navn i vinduet Lagre som og velg Excel-makroaktivert arbeidsbok (*.xlsm) fra Lagre som type nedtrekksliste. Klikk Lagre og gå tilbake til arbeidsboken.

Klikk på cellen A1 og gå inn 0:3:0, og trykk deretter Tast inn. Dette stiller inn tiden for 0 timer, 3 minutter og 0 sekunder.

Klikk på Utsikt fanen på båndet og klikk Makroer. Plukke ut Timer fra makrolisten og klikk Løpe. Tidtakercellen din begynner å telle ned til null når a Nedtelling fullført dialogboksen åpnes. Klikk OK for å gå tilbake til arbeidet ditt.

Tips