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.
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:
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:
3. Gentag ovenstående to trin for at indsætte andre to knapper og billedtekster som ”Stands"Og"Nulstil”, Se skærmbillede:
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
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:
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:
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:
Demo: Opret et stopur med tre knapper ved hjælp af VBA-kode
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!