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.
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:
2. Dra sedan musen för att rita en knapp, efter att du har satt i knappen kan du ändra knapptexten, klicka Utvecklare > Våra BostäderI Våra Bostäder dialogrutan, ange den nya texten “Start”För den här knappen i textrutan bredvid Bildtext, se skärmdumpar:
3. Upprepa ovanstående två steg för att infoga andra två knappar och bilda dem som ”Sluta"Och"Återställa”, Se skärmdump:
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 Bladkod:
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
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:
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:
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:
Demo: Skapa ett stoppur med tre knappar med hjälp av VBA-kod
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!