Note: The other languages of the website are Google-translated. Back to English

Hvordan oprettes stopur i Excel-regneark?

Hvis der er et stopur i dit regneark, ved du tidspunktet for at afslutte et job. Hvordan kan du oprette et stopur i et ark med en Start-, Stop- og Reset-knap som vist nedenstående skærmbillede? Hvis du klikker på Start-knappen, starter det tid, hvis du klikker på Stop-knappen, stopper det tiden, og knappen Nulstil kan hjælpe dig med at nulstille tiden. Denne artikel vil jeg tale om, hvordan man opretter et simpelt og praktisk stopur i Excel.

doc oprette stopur 1

Opret et stopur med tre knapper ved hjælp af VBA-kode


Opret et stopur med tre knapper ved hjælp af VBA-kode

For at oprette et stopur med tre knapper, Start, Stop og Nulstil, skal du gøre med følgende trin en efter en.

Indsæt først tre kommandoknapper.

1. Klik Udvikler > indsatte > Kommandoknap, se skærmbillede:

doc oprette stopur 2

2. Træk derefter musen for at tegne en knap, efter du har indsat knappen, kan du ændre billedteksten, klik venligst Udvikler > EjendommeI Ejendomme dialog, indtast den nye billedtekst “Starten”For denne knap i tekstboksen ved siden af Caption, se skærmbilleder:

doc oprette stopur 3 2 doc oprette stopur 4

3. Gentag ovenstående to trin for at indsætte andre to knapper og billedtekster som ”Stands"Og"Nulstil”, Se skærmbillede:

doc oprette stopur 5

4. Når du har indsat knapperne, skal du forlade designtilstanden ved at klikke på Udvikler > Design Mode.

For det andet skal du oprette en VBA-kode.

5. Højreklik derefter på den aktuelle fane på regnearket, og vælg Vis kode, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i Arkkode:

VBA-kode: Opret stopur:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

doc oprette stopur 6

Bemærk: I ovenstående kode, C2 er cellen, hvor stopurstiden indsættes, og KommandoKnap1, KommandoKnap2, KommandoKnap3 er knapnavne, kan du se det nøjagtige knapnavn fra Navn Box, se skærmbillede:

doc oprette stopur 7

For det tredje skal du formatere stopurets tidscelle.

6. Derefter skal du formatere tidscellen som tekst format, og du kan ændre cellestørrelse, skrifttype, skriftfarve, baggrund osv., som du har brug for, se skærmbillede:

doc oprette stopur 8

7. Efter at have afsluttet ovenstående trin, fra nu af, når du klikker Starten knappen, klokkeslættet starter nu, og klik på Stands knappen, stopper det tiden Nulstil knappen nulstiller tiden, se skærmbillede:

doc oprette stopur 9


Demo: Opret et stopur med tre knapper ved hjælp af VBA-kode


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (32)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for dette indlæg, det var meget nyttigt. Men er der en måde at justere koden på, så timeren ikke stopper, når en celle bliver redigeret? Ideelt set vil jeg gerne trykke på "Start", foretage en række ændringer af en række celler på den samme fane og derefter trykke på "Stop" for den samlede tid, der er forløbet. Ethvert råd om dette ville blive meget værdsat!
Denne kommentar blev minimeret af moderatoren på webstedet
fandt du nogensinde ud af denne? Jeg er også nødt til at holde timeren kørende, mens andre ændringer bliver lavet i det samme regneark. tak. Mike
Denne kommentar blev minimeret af moderatoren på webstedet
Dette var en stor hjælp og meget let at følge trinene.
Denne kommentar blev minimeret af moderatoren på webstedet
Har forsøgt at oprette stopuret ved hjælp af de samme koder i Forms. Timeren starter perfekt, men stopper ikke. Foreslå venligst, hvordan du kopierer det samme i formularer
Denne kommentar blev minimeret af moderatoren på webstedet
Prøv XNote stopur.
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen måde at få timeren til at tælle op eller ned til et bestemt tidspunkt? Jeg vil beholde start-, stop- og nulstillingsknapperne, men jeg har brug for, at den tæller op til et minut, kun et sekund, når jeg trykker på start. Eller tæl ned fra et minut og et sekund til nul (01:01). Tak for din hjælp!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Melissa,
Hvis du har brug for at oprette en nedtællingstimer i regnearket, kan følgende artikel måske hjælpe dig!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Denne kommentar blev minimeret af moderatoren på webstedet
hej,

Jeg så den artikel, men jeg har brug for, at den ser præcis ud som stopuret på denne side, men jeg har brug for, at den kun tæller ned fra et minut og et sekund. Jeg har brug for, at den vises i stopursform, men fungerer som en nedtælling. Nogen yderligere råd?


tak for svaret!
Denne kommentar blev minimeret af moderatoren på webstedet
Det er til en resultattavle, som vi har designet i excel.
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk, men er det muligt at køre 2 ure i samme ark? har lavet et andet ur med ny start, stop og reset knap, men når man starter det andet ur stopper det første....
Denne kommentar blev minimeret af moderatoren på webstedet
samme her kan du finde kur mod dette
Denne kommentar blev minimeret af moderatoren på webstedet
Hej venner,
Denne metode anvendes kun på ét sæt knapper i et regneark.
Hvis der er andre gode ideer, så kommenter gerne her.
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt automatisk at stoppe timeren, når skærmen låser, og starte timeren automatisk, når vi låser computeren op?
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen måde at få timeren til at nulstille tælleren, men stadig holde timeren kørende? dvs. Når jeg trykker på Nulstil, vil jeg ikke skulle trykke på Start igen, før tiden tikker op.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg bruger denne stopper, men ganske ofte begynder tallene i displaycellen ("C2") at gnide ud og forsvinde - de viser minustegn, cifrene er forkerte, og optællingen er tabt. Det sker normalt efter omkring en time eller mere, men nogle gange endda før der går en time. Er dette en almindelig fejl? og hvis ja, er der en måde at løse det på? Jeg fjernede .00 (dvs. millisekunderne) fra koden ved blot at slette: & "." & Format(0, "00") linje, hvor end den vises - har det noget at gøre med dette problem?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for dit tip, det kørte problemfrit, men når jeg indtastede data i dette ark, er det holdt op med at køre, vi har brug for det, fortsæt med at køre et stykke tid inputdata Hvordan kan vi løse dette problem?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nhoeun,
Måske er der ikke en god måde til at løse dit problem. Når du redigerer en celle, vil den afbryde den aktuelt udførte makro.
Hvis du har en anden god metode, så kommenter gerne her!
Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
HEJ. Jeg har lavet stopuret, men skal kunne have de forskellige intervaller mellem start og stop for at blive gemt for at kunne afspejle dem som en tids- og bevægelsesundersøgelse. Nogle tips til hvordan man gør det?
Denne kommentar blev minimeret af moderatoren på webstedet
Udført alle trinene, men ved at klikke på startknappen får du fejlmeddelelsen "Kan ikke køre makroen "'file.xlsm'!CommandButton1". Makroen er muligvis ikke tilgængelig i denne projektmappe, eller alle makroer kan være deaktiveret.". Alle makroer er blevet aktiveret, makroen er i modul 1. BEMÆRK: Jeg kører Office 2019 til Mac, så det kan være et problem....
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad med at tilføje "+10s" og "2x Speed"-funktion i denne kode?
Denne kommentar blev minimeret af moderatoren på webstedet
er 'timer' en variabel her? kan ikke se dens relevans i koden.
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt at få tælleren til kun at tælle sekunder?
Så når den når 59 sekunder, fortsætter den med 60, 61, 62, 63 ....
Denne kommentar blev minimeret af moderatoren på webstedet
Hej
Har fulgt trinene, men kan ikke få et tidspunkt til at vises i timercellen. Jeg har kopieret koden, men kan jeg tjekke 1. At linjenumrene ikke er nødvendige eller er de2. At jeg lægger koden ind i modul 1 ikke ark1 eller denne projektmappe3. Skulle der være en makro opført i makrolisten efter at have gjort alt dette - gør min det ikke.
Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Janice, Du bør indsætte koden i dit aktive arkmodul som trin 5.
5. Og højreklik derefter på den aktuelle regnearksfane, og vælg Vis kode, i det åbnede Microsoft Visual Basic for Applications-vindue, kopier og indsæt venligst følgende kode i modulet.

Og du bør ændre knappens navn til dit eget.
Bemærk: I ovenstående kode er C2 cellen, hvor stopurstiden vil blive indsat, og KommandoKnap1, KommandoKnap2, KommandoKnap3 er knapnavnene, kan du se det nøjagtige knapnavn fra navneboksen.

Tjek dem venligst, tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Det her er genialt! Tak, Chris H
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt at bruge en kombinationsboks eller et dropdown-valg til at starte og stoppe uret
Denne kommentar blev minimeret af moderatoren på webstedet
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, bestemmer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Tak for dette, hvordan laver jeg det, så det udfylder tid i efterfølgende celler, f.eks. start/stop tid for celle C2, derefter en anden start/stop tid for celle c3, c4, c5 osv 
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL