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

Sut i greu stopwats yn nhaflen waith Excel?

Os oes stopwats yn eich taflen waith, byddwch chi'n gwybod yr amser i orffen swydd. Sut allwch chi greu stopwats mewn dalen gyda Botwm Cychwyn, Stopio ac Ailosod fel y dangosir y screenshot canlynol? Os cliciwch y botwm Start, bydd yn amser cychwyn, os cliciwch ar Stop botwm, bydd yn stopio amser, a gall y botwm Ailosod eich helpu i ailosod amser. Yr erthygl hon, byddaf yn siarad am sut i greu stopwats syml a defnyddiol yn Excel.

doc creu stopwats 1

Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA


Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA

I greu stopwats gyda thri botwm, Cychwyn, Stopio ac Ailosod, gwnewch y camau canlynol fesul un.

Yn gyntaf, mewnosodwch dri botwm gorchymyn.

1. Cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn, gweler y screenshot:

doc creu stopwats 2

2. Yna llusgwch y llygoden i dynnu botwm, ar ôl mewnosod y botwm, gallwch newid pennawd y botwm, cliciwch Datblygwr > Eiddo, Yn y Eiddo deialog, nodwch y pennawd newydd “dechrau”Ar gyfer y botwm hwn yn y blwch testun wrth ymyl y Geiriad, gweler sgrinluniau:

doc creu stopwats 3 2 doc creu stopwats 4

3. Ailadroddwch y ddau gam uchod i fewnosod dau fotwm arall a'u rhoi mewn pennawd fel “Stop"A"Ailosod”, Gweler y screenshot:

doc creu stopwats 5

4. Ar ôl mewnosod y botymau, dylech adael y modd dylunio trwy glicio Datblygwr > Modd Dylunio.

Yn ail, creu cod VBA.

5. Ac yna, cliciwch ar y dde ar y tab taflen waith gyfredol, a dewiswch Gweld y Cod, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwlau:

Cod VBA: Creu stopwats:

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 creu stopwats 6

Nodyn: Yn y cod uchod, C2 yw'r gell lle bydd yr amser stopwats yn cael ei fewnosod, a'r Botwm Gorchymyn1, Botwm Gorchymyn2, Botwm Gorchymyn3 yw'r enwau botwm, gallwch weld union enw'r botwm o'r Blwch Enw, gweler y screenshot:

doc creu stopwats 7

Yn drydydd, fformatiwch y gell amser stopwats.

6. Yna dylech fformatio'r gell amser fel Testun fformat, a gallwch newid maint y gell, ffont, lliw ffont, cefndir, ac ati yn ôl yr angen, gweler y screenshot:

doc creu stopwats 8

7. Ar ôl gorffen uwchben y camau, o hyn ymlaen, pan gliciwch dechrau botwm, bydd yr amser yn dechrau nawr, a chlicio Stop botwm, bydd yn stopio amser, y Ailosod botwm yn ailosod yr amser, gweler y screenshot:

doc creu stopwats 9


Demo: Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (28)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y post hwn, roedd yn ddefnyddiol iawn. Fodd bynnag, a oes ffordd i addasu'r cod i'w wneud fel nad yw'r amserydd yn dod i ben pan fydd cell yn cael ei golygu? Yn ddelfrydol, hoffwn daro "Start," gwneud nifer o newidiadau i ystod o gelloedd ar yr un tab, ac yna taro "Stop" am gyfanswm yr amser a aeth heibio. Byddai unrhyw gyngor ar hyn yn cael ei werthfawrogi'n fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
wnaethoch chi erioed ffigur hwn allan? Mae angen i mi hefyd gadw'r amserydd i redeg tra bod newidiadau eraill yn cael eu gwneud yn yr un daenlen. diolch. Mike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn help mawr ac yn hawdd iawn dilyn y camau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi ceisio creu'r stop wats gan ddefnyddio'r un codau yn Forms. Mae'r amserydd yn dechrau'n berffaith iawn ond nid yw'n stopio. Awgrymwch sut i atgynhyrchu'r un peth mewn ffurflenni
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar Stopwats XNote.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i gael yr amserydd i gyfrif i fyny neu i lawr i amser penodol? Rwyf am gadw'r botymau cychwyn, stopio ac ailosod, ond mae angen imi gyfrif hyd at un munud un eiliad yn unig, unwaith y byddaf yn pwyso cychwyn. Neu cyfrif i lawr o un funud un eiliad i sero (01:01). Diolch am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Melissa,
os oes angen i chi greu amserydd cyfrif i lawr ar y daflen waith, efallai y gall yr erthygl ganlynol eich helpu!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Fe welais i'r erthygl honno, ond dwi ei angen i edrych yn union fel y stop wats ar y dudalen hon, ond dwi ei angen i gyfrif i lawr o un munud un eiliad yn unig. Dwi angen iddo ddangos ar ffurf stopwats, ond yn gweithio fel cyfrif i lawr. Unrhyw gyngor pellach?


diolch am ateb!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae ar gyfer sgorfwrdd a ddyluniwyd gennym yn excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych, ond a yw'n bosibl rhedeg 2 gloc yn yr un ddalen? wedi gwneud ail gloc gyda botwm cychwyn, stopio ac ailosod newydd, ond wrth ddechrau'r ail gloc mae'r un cyntaf yn stopio....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
un modd yma gallwch chi ddod o hyd i iachâd o hyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ffrindiau,
Dim ond i un set o fotymau mewn taflen waith y cymhwysir y dull hwn.
Os oes syniadau da eraill, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl atal yr amserydd yn awtomatig pan fydd sgrin yn cloi a chychwyn yr amserydd yn awtomatig pan fyddwn yn datgloi'r cyfrifiadur?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i gael yr amserydd ailosod y cyfrif i sero ond dal i gadw'r amserydd i redeg? h.y. Pan fyddaf yn pwyso Ailosod, nid wyf am orfod pwyso Start eto am yr amser i dicio i fyny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i'n defnyddio'r stopiwr hwn ond yn aml iawn mae'r niferoedd yn y gell arddangos ("C2") yn dechrau ffrio allan ac yn mynd i ffwrdd - maen nhw'n dangos arwyddion minws, mae'r digidau yn anghywir ac mae'r cyfrif yn cael ei golli. Fel arfer mae'n digwydd ar ôl tua awr neu fwy ond weithiau hyd yn oed cyn i awr fynd heibio. Ai byg cyffredin yw hwn? ac os oes, a oes ffordd i'w drwsio? Fe wnes i dynnu'r .00 (hy y miliseconds) o'r cod trwy ddileu'r: & "." & Fformat(0, "00") llinell ble bynnag mae'n ymddangos - a oes rhaid i hynny wneud unrhyw beth gyda'r broblem hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich awgrym, Roedd yn rhedeg yn esmwyth ond pan fyddaf yn mewnbynnu unrhyw ddata yn y daflen hon Mae wedi stopio rhedeg, Mae angen iddo barhau i redeg am ychydig mewnbynnu data Sut gallwn ni drwsio'r broblem hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Noeon,
Efallai nad oes ffordd dda i ddatrys eich problem. Pan fyddwch yn golygu cell, bydd yn torri ar draws y macro a weithredir ar hyn o bryd.
Os oes gennych unrhyw ddull da arall, rhowch sylwadau yma!
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Rwyf wedi creu'r stopwats, ond mae angen i mi allu cael y cyfnodau amrywiol rhwng y dechrau a'r stop i gael fy achub er mwyn gallu eu hadlewyrchu fel astudiaeth amser a mudiant. Unrhyw awgrymiadau ar sut i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gwneud pob cam ond clicio ar y botwm cychwyn rhowch y neges gwall "Methu rhedeg y macro "'file.xlsm'!CommandButton1". Mae'n bosib na fydd y macro ar gael yn y llyfr gwaith hwn neu efallai bod pob macro wedi'i analluogi.". Mae'r holl macros wedi'u galluogi, mae'r macro ym Modiwl 1. SYLWCH: Rwy'n rhedeg Office 2019 ar gyfer Mac felly gallai hynny fod yn broblem....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth am ychwanegu nodwedd "+10s" a "2x Speed" yn y cod hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ydy 'amserydd' yn newidyn yma? ddim yn gweld ei berthnasedd yn y cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl cael y cownter i gyfrif eiliadau yn unig?
Felly pan fydd yn cyrraedd 59 eiliad, mae'n parhau gyda 60, 61, 62, 63 ....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo
Wedi dilyn y camau ond yn methu cael amser i ymddangos yn y gell amserydd. Rwyf wedi copïo'r cod ond a allaf wirio1. Nad oes angen y rhifau llinell neu ydyn nhw2. Fy mod yn rhoi'r cod ym modiwl 1 nid taflen 1 neu Y llyfr gwaith hwn3. A ddylai fod macro wedi'i restru yn y rhestr macro ar ôl gwneud hyn i gyd - nid yw fy un i.
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Janice, Dylech roi'r cod yn eich modiwl dalen weithredol fel cam 5.
5. Ac yna, de-gliciwch ar y tab taflen waith gyfredol, a dewis Gweld Cod, yn y ffenestr Microsoft Visual Basic for Applications sydd wedi'i popio allan, copïwch a gludwch y cod canlynol i'r Modiwl.

A dylech chi newid enw'r botwm i'ch enw chi.
Nodyn: Yn y cod uchod, C2 yw'r gell lle bydd yr amser stopwats yn cael ei fewnosod, ac mae'r Botwm Gorchymyn1, Botwm Gorchymyn2, Botwm Gorchymyn3 yw'r enwau botwm, gallwch weld yr union enw botwm o'r Blwch Enw.

Gwiriwch nhw, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych! Diolch, Chris H
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl defnyddio blwch combo neu gwymplen i ddechrau a stopio'r cloc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch am hyn, sut ydw i'n ei wneud fel ei fod yn llenwi amser mewn celloedd dilynol, ex. amser cychwyn/stopio ar gyfer cell C2, yna amser cychwyn/stopio gwahanol ar gyfer cell c3, c4, c5 ac ati 
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir