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

Hogyan készítsünk stoppert az Excel munkalapon?

Ha a munkalapon van egy stopperóra, akkor tudja a munka befejezésének idejét. Hogyan hozhat létre stoppert egy lapon egy Start, Stop és Reset gombbal, az alábbi képernyőkép szerint? Ha rákattint a Start gombra, elindul az idő, ha a Stop gombra kattint, akkor leállítja az időt, és a Reset gomb segíthet az idő visszaállításában. Ebben a cikkben arról fogok beszélni, hogyan lehet egyszerű és praktikus stoppert létrehozni az Excelben.

doc 1 stopper létrehozása

Hozzon létre egy stoppert három gombbal a VBA kód használatával


Hozzon létre egy stoppert három gombbal a VBA kód használatával

Három gombbal (Start, Stop és Reset) rendelkező stopper létrehozásához kérjük, tegye egyenként a következő lépéseket.

Először tegyen be három parancsgombot.

1. Kattints Fejlesztő > betétlap > Parancsgomb, lásd a képernyőképet:

doc 2 stopper létrehozása

2. Ezután húzza az egeret egy gomb rajzolásához, a gomb behelyezése után megváltoztathatja a gomb feliratát, kattintson Fejlesztő > ingatlanok, A ingatlanok párbeszédpanelen írja be az új feliratot:Rajt”Gombra a szövegmezőben a Képaláírás, lásd a képernyőképeket:

doc 3 stopper létrehozása 2 doc 4 stopper létrehozása

3. Ismételje meg a fenti két lépést a másik két gomb beszúrásához és a következő felirathozmegáll"És"vissza”, Lásd a képernyőképet:

doc 5 stopper létrehozása

4. A gombok behelyezése után kattintson a gombra a tervezési módból Fejlesztő > Tervezési mód.

Másodszor hozzon létre egy VBA kódot.

5. Ezután kattintson a jobb gombbal az aktuális munkalap fülre, és válassza a lehetőséget Kód megtekintése, a kiugrott Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot a Lapkód:

VBA kód: Stopper létrehozása:

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 6 stopper létrehozása

Megjegyzések: A fenti kódban C2 az a cella, ahová a stopper időt beillesztik, és a Parancsgomb1, Parancsgomb2, Parancsgomb3 a gombok nevei, a pontos gomb nevét megtekintheti a név Box, lásd a képernyőképet:

doc 7 stopper létrehozása

Harmadszor, formázza meg a stopperóra celláját.

6. Ezután formázza az idő cellát szöveg formátumban, és szükség szerint megváltoztathatja a cella méretét, betűtípusát, betűszínét, hátterét stb., lásd a képernyőképet:

doc 8 stopper létrehozása

7. A fenti lépések befejezése után ezentúl, amikor rákattint Rajt gombra, az idő most kezdődik, és kattintson megáll gombot, leállítja az időt, a vissza gomb visszaállítja az időt, lásd a képernyőképet:

doc 9 stopper létrehozása


Demo: Hozzon létre egy stoppert három gombbal a VBA kód használatával


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (32)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm ezt a bejegyzést, nagyon hasznos volt. Van azonban mód a kód módosítására úgy, hogy az időzítő ne álljon le, amikor egy cellát szerkesztenek? Ideális esetben szeretném megnyomni a "Start" gombot, számos módosítást végrehajtani ugyanazon a lapon lévő cellák tartományán, majd megnyomni a "Stop" gombot a teljes eltelt időre. Bármilyen tanácsot szívesen vennénk ezzel kapcsolatban!
A weboldal moderátora ezt a megjegyzést minimalizálta
rájöttél már erre? Nekem is futnom kell az időzítőt, miközben más változtatásokat hajtanak végre ugyanabban a táblázatban. Kösz. Mikrofon
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagy segítség volt, és nagyon könnyű követni a lépéseket.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbáltam létrehozni a stoppert ugyanazokkal a kódokkal a Forms-ban. Az időzítő tökéletesen indul, de nem áll le. Kérem, javasolja, hogyan lehet ugyanazt az űrlapokon reprodukálni
A weboldal moderátora ezt a megjegyzést minimalizálta
Próbáld ki az XNote Stoppert.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van valami mód arra, hogy az időzítőt felfelé vagy lefelé számolja egy adott időpontig? Meg akarom tartani a start, stop és reset gombokat, de csak egy másodpercig kell számolnom, ha megnyomom a start gombot. Vagy számoljon vissza egy percről egy másodpercre nullára (01:01). Köszönöm a segítséget!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Melissa
ha visszaszámlálót kell létrehoznia a munkalapon, akkor a következő cikk segíthet!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

Láttam azt a cikket, de pontosan úgy kell kinéznem, mint a stopper ezen az oldalon, de csak egy perctől és egy másodperctől kell visszaszámolnom. Stopperként kell mutatnom, de visszaszámlálóként működik. További tanács?


köszönöm a választ!
A weboldal moderátora ezt a megjegyzést minimalizálta
Olyan eredményjelző táblához való, amelyet Excelben terveztünk.
A weboldal moderátora ezt a megjegyzést minimalizálta
Remek, de lehet 2 órát futtatni egy lapon? csináltak egy második órát új start, stop és reset gombbal, de a második óra indításakor az első megáll...
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez itt találhat gyógymódot erre
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello barátok,
Ez a módszer egy munkalapon csak egy gombkészletre vonatkozik.
Ha vannak még jó ötletek, kommenteljetek ide.
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges-e automatikusan leállítani az időzítőt a képernyő lezárásakor, és automatikusan elindítani az időzítőt, amikor feloldjuk a számítógép zárolását?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van valami mód arra, hogy az időzítő nullára állítsa a számlálót, de az időzítő továbbra is működjön? Azaz. Amikor megnyomom a Reset gombot, nem szeretném, ha újra meg kell nyomnom a Start gombot, hogy az idő beálljon.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, én ezt a dugót használom, de elég gyakran a kijelző cellájában ("C2") elkezdenek kipörögni a számok és kialszanak - mínusz jeleket mutatnak, a számjegyek hibásak és a számláló elveszett. Általában körülbelül egy óra vagy több után következik be, de néha még egy óra eltelte előtt is. Ez gyakori hiba? és ha igen, van valami mód a javítására? Eltávolítottam a .00-t (azaz a ezredmásodperceket) a kódból úgy, hogy egyszerűen töröltem a: & "." & Format(0, "00") sor, ahol csak megjelenik – van ennek bármi köze a problémához?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönjük a tippet, zökkenőmentesen futott, de amikor bármilyen adatot beírok erre a lapra, leállt, szükségünk van rá, hogy futtasson egy darabig. Adatbevitel Hogyan javíthatjuk ki a problémát?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Nhoeun!
Lehet, hogy nem megfelelő módon oldja meg a problémáját. Amikor szerkeszt egy cellát, az megszakítja az éppen végrehajtott makrót.
Ha van más jó módszered, kérlek kommenteld ide!
Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
SZIA. Létrehoztam a stoppert, de képesnek kell lennie arra, hogy az indítás és a leállítás közötti különböző intervallumokat el tudja menteni, hogy azokat idő- és mozgástanulmányként tükrözze. Van valami tipp, hogyan kell ezt csinálni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Minden lépést végrehajtott, de a Start gombra kattintva hibaüzenet jelenik meg: "A "file.xlsm'!CommandButton1 makró nem futtatható". Előfordulhat, hogy a makró nem érhető el ebben a munkafüzetben, vagy az összes makró le van tiltva. Minden makró engedélyezve van, a makró a Modul1-ben van. MEGJEGYZÉS: Az Office 2019 for Mac rendszert futtatom, így ez probléma lehet....
A weboldal moderátora ezt a megjegyzést minimalizálta
Mit szólna ehhez a kódhoz a "+10s" és a "2x Speed" funkcióhoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
az "időzítő" itt egy változó? nem látom a relevanciáját a kódban.
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges elérni, hogy a számláló csak másodperceket számoljon?
Tehát amikor eléri az 59 másodpercet, akkor 60, 61, 62, 63 ...
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló
Követették a lépéseket, de nem sikerült megjeleníteni az időt az időzítő cellában. Kimásoltam a kódot, de ellenőrizhetem 1. Hogy a sorszámokra nincs szükség, vagy azok2. Hogy a kódot az 1. modulba tettem, nem a lap1-be vagy a ebbe a munkafüzetbe3. Ha mindezek elvégzése után szerepel egy makró a makrólistában, az enyém nem.
Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Janice! Az 5. lépésben helyezze el a kódot az aktív lap moduljába.
5. Ezután kattintson a jobb gombbal az aktuális munkalap fülre, és válassza a Kód megtekintése parancsot. A kiugró Microsoft Visual Basic for Applications ablakban másolja és illessze be a következő kódot a modulba.

És módosítania kell a gomb nevét a sajátjára.
Megjegyzés: A fenti kódban a C2 az a cella, ahová a stopperóra be lesz illesztve, és a Parancsgomb1, Parancsgomb2, Parancsgomb3 a gombok nevei, a gombok pontos nevét a Névdobozban tekintheti meg.

Kérjük, ellenőrizze őket, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez zseniális! Köszönöm, Chris H
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges-e kombinált doboz vagy legördülő menü használata az óra indításához és leállításához?
A weboldal moderátora ezt a megjegyzést minimalizálta
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer 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.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönöm ezt, hogyan tudom elkészíteni, hogy a következő cellákba töltse be az időt, pl. kezdési/leállási idő a C2 cellához, majd eltérő kezdési/leállási idő a c3, c4, c5 stb. cellához 
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi