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

Hur skapar jag stoppur i Excel-kalkylblad?

Om det finns ett stoppur i kalkylbladet vet du när det är dags att avsluta ett jobb. Hur kan du skapa ett stoppur i ett ark med en start-, stopp- och återställningsknapp enligt följande skärmdump? Om du klickar på Start-knappen kommer den att starta tiden, om du klickar på Stopp-knappen kommer den att stoppa tiden, och återställningsknappen kan hjälpa dig att återställa tiden. Den här artikeln kommer jag att prata om hur man skapar ett enkelt och praktiskt stoppur i Excel.

doc skapa stoppur 1

Skapa ett stoppur med tre knappar med hjälp av VBA-kod


Skapa ett stoppur med tre knappar med hjälp av VBA-kod

För att skapa ett stoppur med tre knappar, Start, Stop och Reset, gör med följande steg en efter en.

Först sätter du in tre kommandoknappar.

1. Klicka Utvecklare > Insert > Kommandoknapp, se skärmdump:

doc skapa stoppur 2

2. Dra sedan musen för att rita en knapp, efter att du har satt i knappen kan du ändra knapptexten, klicka Utvecklare > FastigheterI Fastigheter dialogrutan, ange den nya texten “Start”För den här knappen i textrutan bredvid Bildtext, se skärmdumpar:

doc skapa stoppur 3 2 doc skapa stoppur 4

3. Upprepa ovanstående två steg för att infoga andra två knappar och bilda dem som ”Sluta"Och"Återställa”, Se skärmdump:

doc skapa stoppur 5

4. När du har satt in knapparna ska du lämna designläget genom att klicka Utvecklare > Designläge.

För det andra, skapa en VBA-kod.

5. Högerklicka sedan på den aktuella fliken kalkylblad och välj Visa kod, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i Sheet Code:

VBA-kod: Skapa stoppur:

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 skapa stoppur 6

Anmärkningar: I ovanstående kod, C2 är cellen där stoppurstiden ska infogas och Kommandoknapp1, Kommandoknapp2, Kommandoknapp3 är knappnamnen kan du se det exakta knappnamnet från Namn Box, se skärmdump:

doc skapa stoppur 7

För det tredje formaterar du tidcellen för stoppuret.

6. Då ska du formatera tidscellen som text format, och du kan ändra cellstorlek, teckensnitt, teckensnittsfärg, bakgrund etc. som du behöver, se skärmdump:

doc skapa stoppur 8

7. Efter att ha avslutat ovanstående steg, från och med nu, när du klickar Start -knappen, tiden börjar nu och klicka Sluta knappen, kommer det att stoppa tiden, den Återställa knappen återställer tiden, se skärmdump:

doc skapa stoppur 9


Demo: Skapa ett stoppur med tre knappar med hjälp av VBA-kod


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (32)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för det här inlägget, det var till stor hjälp. Men finns det något sätt att justera koden så att timern inte stannar när en cell redigeras? Helst skulle jag vilja trycka på "Start", göra ett antal ändringar i ett cellområde på samma flik och sedan trycka på "Stopp" för den totala tiden som förflutit. Alla råd om detta skulle uppskattas mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
har du någonsin kommit på det här? Jag måste också hålla timern igång medan andra ändringar görs i samma kalkylblad. tack. Mikrofon
Denna kommentar minimerades av moderatoren på webbplatsen
Detta var till stor hjälp och mycket lätt att följa stegen.
Denna kommentar minimerades av moderatoren på webbplatsen
Har försökt skapa stoppuret med samma koder i Formulär. Timern startar perfekt men stannar inte. Vänligen föreslå hur man replikerar detsamma i formulär
Denna kommentar minimerades av moderatoren på webbplatsen
Prova XNote Stopwatch.
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att få timern att räkna upp eller ner till en viss tid? Jag vill behålla start-, stopp- och återställningsknapparna, men jag behöver att de ska räkna upp till en minut en sekund bara när jag trycker på start. Eller räkna ner från en minut och en sekund till noll (01:01). Tack för hjälpen!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Melissa,
om du behöver skapa en nedräkningstimer i kalkylbladet, kanske följande artikel kan hjälpa dig!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,

Jag såg den artikeln, men jag behöver den ska se ut exakt som stoppuret på den här sidan, men jag behöver bara räkna ner från en minut och en sekund. Jag behöver det för att visa i stoppursform, men fungerar som en nedräkning. Några ytterligare råd?


tack för att du svarar!
Denna kommentar minimerades av moderatoren på webbplatsen
Det är för en resultattavla som vi designat i excel.
Denna kommentar minimerades av moderatoren på webbplatsen
Bra, men är det möjligt att köra 2 klockor i samma ark? har gjort en andra klocka med ny start, stopp och återställningsknapp, men vid start av den andra klockan stannar den första....
Denna kommentar minimerades av moderatoren på webbplatsen
samma här kan du hitta botemedel mot detta
Denna kommentar minimerades av moderatoren på webbplatsen
Hej kompisar,
Denna metod tillämpas endast på en uppsättning knappar i ett kalkylblad.
Om det finns andra bra idéer, vänligen kommentera här.
Denna kommentar minimerades av moderatoren på webbplatsen
Är det möjligt att automatiskt stoppa timern när skärmen låser sig och starta timern automatiskt när vi låser upp datorn?
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att få timern att återställa räkningen till noll men ändå hålla timern igång? Dvs. När jag trycker på Återställ vill jag inte behöva trycka på Start igen för att tiden ska gå upp.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag använder den här proppen men ganska ofta börjar siffrorna i displaycellen ("C2") att slockna och försvinna - de visar minustecken, siffrorna är felaktiga och räkningen går förlorad. Det händer vanligtvis efter ungefär en timme eller mer men ibland även innan en timme går. Är detta en vanlig bugg? och om ja, finns det något sätt att fixa det? Jag tog bort .00 (dvs. milisekunderna) från koden genom att helt enkelt radera: & "." & Format(0, "00") rad varhelst den visas - har det något att göra med det här problemet?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för ditt tips, det gick smidigt men när jag matade in data i det här bladet har det slutat att köra, vi behöver det fortsätta köra ett tag indata Hur kan vi åtgärda det här problemet?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Nhoeun,
Kanske finns det inte på ett bra sätt för att lösa ditt problem. När du redigerar en cell kommer den att avbryta det makro som körs för närvarande.
Om du har någon annan bra metod, kommentera gärna här!
Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
HEJ. Jag har skapat stoppuret, men behöver kunna ha de olika intervallen mellan start och stopp för att sparas för att kunna spegla dem som en tids- och rörelsestudie. Några tips på hur man gör det?
Denna kommentar minimerades av moderatoren på webbplatsen
Genomfört alla steg men genom att klicka på startknappen får du felmeddelandet "Kan inte köra makrot"'file.xlsm'!CommandButton1". Makrot kanske inte är tillgängligt i den här arbetsboken eller alla makron kan vara inaktiverade.". Alla makron har aktiverats, makrot finns i Modul1. OBS: Jag kör Office 2019 för Mac så det kan vara ett problem....
Denna kommentar minimerades av moderatoren på webbplatsen
Vad sägs om att lägga till "+10s" och "2x Speed"-funktionen i den här koden?
Denna kommentar minimerades av moderatoren på webbplatsen
är 'timer' en variabel här? ser inte dess relevans i koden.
Denna kommentar minimerades av moderatoren på webbplatsen
Är det möjligt att få räknaren att bara räkna sekunder?
Så när den når 59 sekunder fortsätter den med 60, 61, 62, 63 ....
Denna kommentar minimerades av moderatoren på webbplatsen
Hej
Har följt stegen men kan inte få en tid att dyka upp i timercellen. Jag har kopierat koden men kan jag kontrollera1. Att radnumren inte behövs eller är de2. Att jag lägger koden i modul 1 inte ark1 eller denna arbetsbok3. Skulle det finnas ett makro listat i makrolistan efter att ha gjort allt detta - mitt gör det inte.
Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Janice, Du bör lägga in koden i din aktiva arkmodul som steg 5.
5. Och högerklicka sedan på den aktuella kalkylbladsfliken och välj Visa kod, i det öppnade Microsoft Visual Basic for Applications-fönstret, kopiera och klistra in följande kod i modulen.

Och du bör ändra knappens namn till ditt eget.
Obs: I ovanstående kod är C2 cellen där stoppurstiden kommer att infogas och Kommandoknapp1, Kommandoknapp2, Kommandoknapp3 är knappnamnen kan du se det exakta knappnamnet från namnrutan.

Kontrollera dem, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är lysande! Tack, Chris H
Denna kommentar minimerades av moderatoren på webbplatsen
Är det möjligt att använda en combobox eller ett dropdown-val för att starta och stoppa klockan
Denna kommentar minimerades av moderatoren på webbplatsen
Bonjour, j'ai voulu integrer ce chronomètre à une autre macro, bestämmer 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.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej! Tack för detta, hur gör jag det så att det fyller tid i efterföljande celler, ex. start/stopptid för cell C2, sedan en annan start/stopptid för cell c3, c4, c5 osv 
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL