Sette inn en Nedtelling i et Excel-regneark

January 6

Et nedtellingsur i et Excel-regneark kan være nyttig på en tidssensitiv ark, slik at brukeren kan holde oversikt over hvor mye tid de har igjen før en gitt hendelse eller frist. Mens Excel ikke har en nedtellingsfunksjon eller funksjonen, kan du bruke den innebygde Visual Basic for Applications (VBA) programmeringsspråk for å lage en nedtelling i en enkelt Excel celle.

Bruksanvisning

1 Åpne Excel 2010-regneark der du ønsker å legge inn et tidsur. Høyreklikk på cellen der du vil timeren til å gå og velg "Formater celler." Klikk "Custom" på venstre side av vinduet som vises, og velg deretter "h: mm: ss" fra listen til høyre. Klikk "OK" for å fortsette.

2 Hold nede "Alt" og trykk "F11" for å åpne opp VBA konsollen. Velg gjeldende regneark fra listen på venstre side av konsollen. Klikk på den lille pilen ved siden av "Sett inn Userform" -knappen øverst på skjermen, som er den andre knappen fra venstre side, og velg "Module" fra listen over alternativer som vises. Dobbeltklikk på "Modul 1" når det vises i listen.

3 Klikk på den hvite plass på høyre side av skjermen, og skriv inn følgende kode:

Sub opptellings ()

Dim CountDown As Date

Countdown = nå + TIMEVALUE ( "0:00:01")

Application.OnTime Countdown ", Realcount"

End Sub

Denne koden vil tillate resten av koden for å behandle én gang hvert sekund.

4 Trykk enter for å få tilgang til en ny linje på siden. Skriv til følgende kode:

Sub Realcount ()

Dim count As Range

Sett count = [E1]

count.Value = count.Value - TimeSerial (0, 0, 1)

Hvis tellingen & lt; = 0 Then

MsgBox "Countdown fullført."

Exit Sub

Slutt om

Ring opptellings

End Sub

Endre "E1" til hva cellen du ønsker å bruke for nedtellingen. Denne koden gjør selve nedtelling og sjekker for å se om nedtellingen er fullført.

5 Klikk på "X" i øvre høyre hjørne av konsollen for å lukke det.

6 Velg den cellen som du bruker for nedtelling og skrive inn ønsket nedtelling tid. Vær sikker på at du skriver timer, minutter og sekunder, selv om timer og minutter er null. "02:30" er to timer og tretti minutter; "0: 2: 30" er to minutter og tretti sekunder.

7 Klikk på "Utvikler" fanen på toppen av skjermen, og klikk deretter på "Makroer" knappen på venstre side av båndet. Velg "opptellings" fra listen og klikk "Run." Nedtellingen vil starte, og det vil fortsette til det blir til null, når du vil se en meldingsboks som forklarer at nedtellingen er fullført.

Hint

Hvis du ønsker å gjøre den numeriske nedtellingen større, kan du velge et antall celler, så lenge spesifiserte cellen er i øvre venstre hjørne av utvalget, og velg "Slå sammen og Center" fra "Home" -kategorien. Deretter endrer skriften (fra hjemmet også), før tallene er så store som du vil de skal være.