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
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.
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!
